´type mismatch in expression´

Delphi

03/03/2004

Quando executo o procedure abaixo recebo a seguinte mensagem: ´Project Financial.exe raised exception class EDBEngineError with message ´type mismatch in expression´. Process stopped. Use step or run to continue.´

como posso dar um jeito nisso ???
Obrigado por qualquer ajuda!
Alexandre Tavares


procedure TFrmBaixaDoc.EdtPesquisa2Exit(Sender: TObject);
begin
If (EdtPesquisa.Text <> ´´) AND (EdtPesquisa2.Text <> ´´) AND (EdtPesquisa3.Text <> ´´) Then
Begin
DMFactoring.Query.Close;
DMFactoring.Query.SQL.Clear;
DMFactoring.Query.SQL.Add(´SELECT * FROM Sacado_cedente´);
DMFactoring.Query.SQL.Add(´WHERE CGC_CPF = ´´+edtPesquisa.Text+´´´);
DMFactoring.Query.SQL.Add(´AND BAIXADO = ´´+EdtPesquisa2.Text+´´´);
DMFactoring.Query.SQL.Add(´AND QDO_BAIXAR = ´´+EdtPesquisa2.Text+´´´);
DMFactoring.Query.SQL.Add(´ORDER BY CGC_CPF´);
DMFactoring.Query.Open;
If DMFactoring.Query.IsEmpty Then
ShowMessage(´Nada foi Encontrado de Acordo com a sua Pesquisa´);

If not DMFactoring.Query.IsEmpty Then
DMFactoring.Query.Edit;

End
Else
ShowMessage(´Estão faltando parâmetros para a Pesquisa´);
end;


Alexandretavares

Alexandretavares

Curtidas 0

Respostas

Caninha51

Caninha51

03/03/2004

tenta inserindo espaços no final de cada linha...

...ADD(´Select * from tabela ´);
...ADD(´Where cod = 2 ´)

Falow

Caninha51


GOSTEI 0
Djjunior

Djjunior

03/03/2004

sei não mas tenta tirar duas ´´ no final das linhas que estão no where ou mude mesmo para parametros e os passe depois de adicionar as linhas da query

espero ter ajudado, mas, qualquer coisa é só falar


GOSTEI 0
POSTAR