SQL. ADO

Delphi

06/05/2005

Estou usando a query abaixo para selecionar registros de acordo com o digitado no campo EdtPesquisa.text...
Uso ADOQuery (estou usando tabelas criadas no Access);
Eu usava o mesmo código com Tabelas Paradox e não dava erro nenhum, porém, com ADO(Access) fica
aparecendo essa mensagem logo abaixo.
Por favor, me digam o que é que há de errado, visto que com Paradox a consulta é realizada sem problemas e depois que mudei pra Access fica aparecendo essa mensagem ! ?
Obrigado!

´ Erro de sintaxe(operador faltando)na expressão de consulta tblCadProcesso.NUMPROCESSO = TblMovimentacao.NUMPROCESSO LEFT JOIN TblProcAdv ON TblCadProcesso.Cod_Proc_Adv = TblProcAdv.CODPROCADV ´


Case rgpOpcoes.ItemIndex Of
0:
Begin
If (EdtPesquisa.Text <> ´´) Then

Begin
DMProcINSS.QryPesquisa.Close;
DMProcINSS.QryPesquisa.SQL.Clear;
DMProcINSS.QryPesquisa.SQL.Add(´SELECT * FROM TblCadProcesso LEFT JOIN TblMovimentacao ´);
DMProcINSS.QryPesquisa.SQL.Add(´ON TblCadProcesso.NUMPROCESSO = TblMovimentacao.NUMPROCESSO ´);
DMProcINSS.QryPesquisa.SQL.Add(´LEFT JOIN TblProcAdv ON TblCadProcesso.Cod_Proc_Adv = TblProcAdv.CODPROCADV´);
DMProcINSS.QryPesquisa.SQL.Add(´WHERE TblCadProcesso.AUTOR LIKE ´´+EdtPesquisa.Text+´¬´ ´);
DMProcINSS.QryPesquisa.SQL.Add(´AND TblCadProcesso.NUMPROCESSO = TblMovimentacao.NUMPROCESSO ´);
DMProcINSS.QryPesquisa.SQL.Add(´AND TblCadProcesso.COD_PROC_ADV = TblProcAdv.CODPROCADV ´);
DMProcINSS.QryPesquisa.SQL.Add(´AND DATACADASTRO BETWEEN :Data1´);
DMProcINSS.QryPesquisa.SQL.Add(´AND :Data2´);
DMProcINSS.QryPesquisa.parambyname(´Data1´).Value := StrToDate(Data1.Text);
DMProcINSS.QryPesquisa.parambyname(´Data2´).Value := StrToDate(Data2.Text);
DMProcINSS.QryPesquisa.SQL.Add(´ORDER BY AUTOR´);
DMProcINSS.QryPesquisa.Open;
DMProcINSS.QryPesquisa.Refresh;
ContarPesquisa.Caption := IntToStr(DMProcINSS.QryPesquisa.RecordCount);
If DMProcINSS.QryPesquisa.IsEmpty Then
ShowMessage(´Nada foi Encontrado de Acordo com a sua Pesquisa´);
EdtPesquisa.SetFocus;
End
Else
ShowMessage(´Estão faltando parâmetros para a Pesquisa´);
End;


Alexandretavares

Alexandretavares

Curtidas 0
POSTAR