Fórum ´type mismatch in expression´ #217810
03/03/2004
0
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;
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
Curtir tópico
+ 0
Responder
Posts
03/03/2004
Caninha51
tenta inserindo espaços no final de cada linha...
...ADD(´Select * from tabela ´);
...ADD(´Where cod = 2 ´)
Falow
Caninha51
...ADD(´Select * from tabela ´);
...ADD(´Where cod = 2 ´)
Falow
Caninha51
Responder
Gostei + 0
03/03/2004
Djjunior
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
espero ter ajudado, mas, qualquer coisa é só falar
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)