Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Ajuda na sintaxe


Artanis

Pergunta

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

Link para o comentário
Compartilhar em outros sites

8 respostass a esta questão

Posts Recomendados

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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?

Link para o comentário
Compartilhar em outros sites

  • 0

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...

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...