(Resolvido) Ajuda na sintaxe

[Artanis]

Galera, estou fazendo um programa e me enrolei toda em uma besteira, alguém poderia me dizer o que está faltando nisso

qryM.SQL.Add('UPDATE AGENDA SET AGENDA.STATUSAG='''+IntToStr(STATUSAG)+''' IN '+

'(select PACIENTEPS.PRONT, AGENDA.STATUSAG, AGENDA.DATA '+

'From AGENDA Inner Join ACAO On ACAO.CODACAO = AGENDA.CODACAO Inner '+

'Join PACIENTEPS On AGENDA.CODPS = PACIENTEPS.CODPS Inner Join PACIENTE '+

'On PACIENTE.CODIGOPACIENTE = PACIENTEPS.CODIGOPACIENTE where '+

'PACIENTEPS.PRONT='''+IntToStr(pront)+''' and agenda.data ='''+DateToStr(data)''')');

alguém me ajude

[Jhonas]

qryM.SQL.Add('UPDATE AGENDA SET AGENDA.STATUSAG='''+IntToStr(STATUSAG)+''' IN '+
'(select PACIENTEPS.PRONT, AGENDA.STATUSAG, AGENDA.DATA '+
'From AGENDA Inner Join ACAO On ACAO.CODACAO = AGENDA.CODACAO Inner '+
'Join PACIENTEPS On AGENDA.CODPS = PACIENTEPS.CODPS Inner Join PACIENTE '+
'On PACIENTE.CODIGOPACIENTE = PACIENTEPS.CODIGOPACIENTE where '+
'PACIENTEPS.PRONT='''+IntToStr(pront)+''' and agenda.data ='''+DateToStr(data)+''')');

O erro estava aqui

+DateToStr(data)+''')');

faltou acrescentar o +

abraço

[Artanis]

ahhh....sabia q estava falatando alguma coisa do tipo...

valw Jhonas.

Mas é o seguinte tenho o seguinte erro

"No argument for format '%s'"

que acontece quando tento fazer o seguinte

"data:= qry.fieldbyname('DATA').AsDateTime;"

a variavel é do tipo DateTime

o q eu faço?

[Jhonas]

Mas é o seguinte tenho o seguinte erro

"No argument for format '%s'"

Nenhum arqumento para o formato '%s'

esse erro não esta nessa linha de comando

data:= qry.fieldbyname('DATA').AsDateTime;

abraço

[Artanis]

mas então onde é o problema, pois antes dessa linha estou usando um int...

qry.Close;

qry.SQL.Clear;

qry.SQL.Add('select count(*) from AGENDA');

qry.Open;

cont:= qry.fieldbyname('count').AsInteger;

if (cont>0) then

begin

while cont > 0 do

begin

PRONT:= qry.fieldbyname('PRONT').AsInteger;

data:= qry.fieldbyname('DATA').AsDateTime;

STATUSAG:= qry.fieldbyname('STATUSAG').AsInteger;

qryM.SQL.Clear;

try...

[Jhonas]

Use o debugger ( break point ) do delphi para saber exatamente onde esta o erro

abraço

[Artanis]

o erro está na linha

PRONT:= qry.fieldbyname('PRONT').AsInteger;

[Jhonas]

Mas é o seguinte tenho o seguinte erro

"No argument for format '%s'"

esse erro tá mais para a montagem da SQL do que para a linha de comando

PRONT:= qry.fieldbyname('PRONT').AsInteger;

abraço

[Artanis]

você é um anjo sabia Jhonas....valw