GARANTIR DESCONTO

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????


Rodrigo Maciel

Rodrigo Maciel

Responder

Posts

17/01/2008

Thiagopedro

Estou com o mesmo problema.

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.

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

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar