Use as´sim é mais fácil e menos dificel de dar erro....
StrSQL := 'INSERT INTO '+
' tbvisitafunpac'+
'(RLDFPCIDOC, '+
' RLDCODVST,'+
' TIPO, '+
' DATAENTRADA,'+
' HORAENTRADA,'+
' Arquivo)'+
' VALUES(:CodRLF ,:VSTTID, 0 , :DataSaida,:DataEntrada,:arquivo)';
ParaByName('CodTLF').asstring := Edit.text ;
ParaByName('VSTTID').asstring := Edit.text ;
ParaByName('DataSaida').asdate := StrTodate ( edit.text );
ParaByName('DataEntrada').asdate := StrTodate ( edit.text );
ParaByName('arquivo').asstring := Edit.text ;
execSql;
Espero ter ajudado.. Wesley
----- Original Message -----
From: alan_adolfo2
To: delphi-br@yahoogrupos.com.br
Sent: Friday, March 30, 2007 10:02 AM
Subject: [delphi-br] Me ajude em SQL
bom dia galera do Delphi
Estou com um pequeno problema em minha sql gostaria q alguem pudece
me ajudar.
acredito q seja a data e hora q esteja dando erro para salvar.
aq esta o SQL:
StrSQL := 'INSERT INTO '+
' tbvisitafunpac'+
'(RLDFPCIDOC, '+
' RLDCODVST,'+
' TIPO, '+
' DATAENTRADA,'+
' HORAENTRADA,'+
' Arquivo)'+
' VALUES('+QuotedStr(edtCodRLF.Text) +
','+QuotedStr(EdtVSTTID.Text) +
','+QuotedStr('0') +
','+QuotedStr(LedtDataSaida.Text) +
','+QuotedStr((LedtDataEntrada.Text)) +
','+ QuotedStr(edtarquivo.text)+ ')';
------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.446 / Virus Database: 268.18.22/739 - Release Date: 29/3/2007
13:36
[As partes desta mensagem que não continham texto foram removidas]
