Fórum EOleException ´Erro não especificado´ #229502
03/05/2004
0
Estou criando em Delphi 7 um projeto que acessa por meio de uma conexão ADO um banco de dados Access 2000. Tenho uma query que utilizo para localizar o bairro, a cidade e o CEP do endereço que o usuário cadastrou. O problema é que quando tento abrir a query obtenho a seguinte mensagem de erro:
Debugger Exception Notification
Project cadastro.exe raised exception class EOleException with message ´Erro não especificado´. Process stopped. Use step or run to continue.
O SQL do query é o seguinte:
if Edit_Endereco.Text <> ´´ then
begin
with DM_Cadastro.ADOQRY_Cep.SQL do
begin
DM_Cadastro.ADOQRY_Cep.Close;
DM_Cadastro.ADOQRY_Cep.SQL.Clear;
DM_Cadastro.ADOQRY_Cep.SQL.Add(´Select * From Cep´);
DM_Cadastro.ADOQRY_Cep.SQL.Add(´where Local like ´¬´ +
Form_Cep.Edit_Endereco.Text + ´¬´´);
DM_Cadastro.ADOQRY_Cep.SQL.add(´order by Local´);
end;
try
DM_Cadastro.ADOQRY_Cep.open;
except
DM_Cadastro.ADOQRY_Cep.ExecSQL;
end;
if DM_Cadastro.ADOQRY_Cep.RecordCount > 0 then
DBGrid_Cep.Enabled := True
else
DBGrid_Cep.Enabled := False;
if DM_Cadastro.ADOQRY_Cep.RecordCount = 1 then
BitBtn_OK.Enabled := True
else
BitBtn_OK.Enabled := False;
end;
:cry: Como posso resolver isso????
Debugger Exception Notification
Project cadastro.exe raised exception class EOleException with message ´Erro não especificado´. Process stopped. Use step or run to continue.
O SQL do query é o seguinte:
if Edit_Endereco.Text <> ´´ then
begin
with DM_Cadastro.ADOQRY_Cep.SQL do
begin
DM_Cadastro.ADOQRY_Cep.Close;
DM_Cadastro.ADOQRY_Cep.SQL.Clear;
DM_Cadastro.ADOQRY_Cep.SQL.Add(´Select * From Cep´);
DM_Cadastro.ADOQRY_Cep.SQL.Add(´where Local like ´¬´ +
Form_Cep.Edit_Endereco.Text + ´¬´´);
DM_Cadastro.ADOQRY_Cep.SQL.add(´order by Local´);
end;
try
DM_Cadastro.ADOQRY_Cep.open;
except
DM_Cadastro.ADOQRY_Cep.ExecSQL;
end;
if DM_Cadastro.ADOQRY_Cep.RecordCount > 0 then
DBGrid_Cep.Enabled := True
else
DBGrid_Cep.Enabled := False;
if DM_Cadastro.ADOQRY_Cep.RecordCount = 1 then
BitBtn_OK.Enabled := True
else
BitBtn_OK.Enabled := False;
end;
:cry: Como posso resolver isso????
Rodrigo Maciel
Curtir tópico
+ 0
Responder
Posts
17/01/2008
Thiagopedro
Estou com o mesmo problema.
Alguém pode ajudar ?
Alguém pode ajudar ?
Responder
Gostei + 0
18/01/2008
Aroldo Zanela
Colega,
A primeira coisa que eu faria seria atualizar o MDAC/JET. Mas faz o seguinte teste abaixo.
A primeira coisa que eu faria seria atualizar o MDAC/JET. Mas faz o seguinte teste abaixo.
if Edit_Endereco.Text <> ´´ then begin with DM_Cadastro.ADOQRY_Cep do begin Close; SQL.Text := ´Select * From Cep where Local like "¬´ + Form_Cep.Edit_Endereco.Text + ´¬"´); add(´order by Local´); // Vamos ver o que tem dentro da instrução SQL ShowMessage(SQL.Text); Open; DBGrid_Cep.Enabled := RecordCount > 0; BitBtn_OK.Enabled := RecordCount = 1; end; end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)