(Resolvido) Ajuda com SQL.ADD

[Artanis]

Gente alguém sabe como me ajudar???

esse é o código:

qryEmail.DisableControls;

qryEmail.Close;

qryEmail.SQL.Clear;

qryEmail.SQL.Add('Select PACIENTEPS.PRONT, PACIENTE.NOME, AGENDA.DATA, AGENDA.HORA, PACIENTE.EMAIL, ACAO.DESCRICAO, PACIENTEPS.CODPS, AGENDA.STATUSAG, AGENDA.SEQ ');

qryEmail.SQL.Add('From AGENDA Inner Join ACAO On ACAO.CODACAO = AGENDA.CODACAO Inner Join');

qryEmail.SQL.Add('PACIENTEPS On AGENDA.CODPS = PACIENTEPS.CODPS Inner Join');

qryEmail.SQL.Add('PACIENTE On PACIENTE.CODIGOPACIENTE = PACIENTEPS.CODIGOPACIENTE And');

qryEmail.SQL.Add('AGENDA.DATA Between '+toString(edtDtHj)+' And '+toString(edtDtFinal)+' And');

qryEmail.SQL.Add('PACIENTE.PRONT = PACIENTEPS.PRONT And PACIENTE.EMAIL <> '' And AGENDA.STATUSAG = 2');

qryEmail.Open;

qryEmail.EnableControls;

Ta dando erro nos edits, diz [Error] uEmail.pas(97): Missing operator or semicolon

já tentei de todas as formas, é um edit com uma data...já converti, coloquei aquele monte de aspas mas nada...hora ele roda mas da como fim de string...já tentei colocar na mesma linha e nada...

alguém me da uma luz????

[kuroi]

qual banco você usa?? se for sql, tenta isso:

qryEmail.SQL.Add('AGENDA.DATA Between '''+toString(edtDtHj)+''' And '''+toString(edtDtFinal)+''' And');
qryEmail.SQL.Add('PACIENTE.PRONT = PACIENTEPS.PRONT And PACIENTE.EMAIL <> '''' And AGENDA.STATUSAG = 2');[/code]


se for access, tente assim:
[code]qryEmail.SQL.Add('AGENDA.DATA Between #'+toString(edtDtHj)+'# And #'+toString(edtDtFinal)+'# And');
qryEmail.SQL.Add('PACIENTE.PRONT = PACIENTEPS.PRONT And PACIENTE.EMAIL <> '''' And AGENDA.STATUSAG = 2');

[Artanis]

esto usando o interbase ^.^

[kuroi]

acho q no interbase o delimitador de data é o ' (aspa simples).

então o primero exemplo q passei deve servi pra vc, tenta ai.

[Artanis]

EBAAAA!!!!

Deu certo!!!

Muito obrigada kuroi :D

[kuroi]

sou um genio hehe

[Artanis]

|O|