Olá Alan.
Não sei se vc recebeu uma resposta que mandei logo depois da pergunta que fiz
sobre o banco, mas o ideal seria que vc trocasse a sua instrução por parâmetros.
Não me lembro como me referencio a um parametro no SQL Server, mas no Firebird
seria algo assim:
<<with dm.qryControleVF do
begin
close;
sql.Clear;
StrSQL := 'INSERT INTO '+
' tbvisitafunpac'+ // Tabela
'(RLDFPCIDOC, '+ // Relacionamento paciente
funcionario
' RLDCODVST,'+ // Vistante
' TIPO, '+ // Tipo 0 visita funcionario
' DATAENTRADA,'+ // Data de entrada
' HORAENTRADA,'+ // Hora da entrada
' Arquivo)' + // Arquivo foto
' VALUES('+
' :pRLDFPCIDOC, ' +
' :pRLDCODVST, ' +
' :pTIPO, ' +
' :pDATAENTRADA, ' +
' :pHORAENTRADA, ' +
' :pFOTO)';
ParamByName('pRLDFPCIDOC' ).AsString := edtCodRLF.Text;
ParamByName('pRLDCODVST' ).AsString := EdtVSTTID.Text;
ParamByName('pTIPO' ).AsString := '0';
ParamByName('pDATAENTRADA' ).AsDate := Date;
ParamByName('pHORAENTRADA' ).AsTime := Now;
ParamByName('pARQUIVO' ).AsString := edtarquivo.text;
SQL.Add(StrSQL);
Prepared:=True;
ExecSQL;
Prepared:=False;
end;>>
Se não me engano parâmetros no SQL Server são usados quando se coloca um @ na
frente, não é? Então bastaria onde vc coloca o ':' troca por '@' e assim vc
teria o comando que precisa.
Sds,
Ricardo.
alan_adolfo2 <[EMAIL PROTECTED]> escreveu: SQL
Server 7.0
--- Em [email protected], Ricardo César Cardoso
<[EMAIL PROTECTED]> escreveu
>
> Qual o banco que vc está usando?
>
> alan_adolfo2 <[EMAIL PROTECTED]>
escreveu: Ola galera da comunidade
Delhpi
> Estou com uma pequeno problema em meu SQL é gostaria q alguem
> pudesse me ajudar.
>
> Tenho um Insert e não estou consegundo inserir a data de entrada
> pois esta me apresentando este erro:
>
> "The conversion of a char data type to a datetime data type
resulted
> in an out-of-range datetime value."
>
> E não estou conseguindo resolver alguem poderia me ajugar o
código é
> este aqui:
>
> with dm.qryControleVF do
> begin
> close;
> sql.Clear;
> StrSQL := 'INSERT INTO '+
> ' tbvisitafunpac'+ // Tabela
> '(RLDFPCIDOC, '+ // Relacionamento paciente
> funcionario
> ' RLDCODVST,'+ // Vistante
> ' TIPO, '+ // Tipo 0 visita funcionario
> ' DATAENTRADA,'+ // Data de entrada
> ' HORAENTRADA,'+ // Hora da entrada
> ' Arquivo)' + // Arquivo foto
> ' VALUES(' + QuotedStr(edtCodRLF.Text) +
> ','+ QuotedStr(EdtVSTTID.Text) + //VSTTID
> ','+ QuotedStr('0') +
> ','+ QuotedStr(DateToStr(date))+
> ','+ QuotedStr(FormatDateTime('""""
HH:MM:SS
> AM/PM', StrToDateTime(DateTimeToStr(Now))))+
> ','+ QuotedStr(edtarquivo.text)+ ')';
> SQL.Add(StrSQL);
> Prepared:=True;
> ExecSQL;
> Prepared:=False;
> end;
>
>
>
> __._
>
>
>
> __________________________________________________
> Fale com seus amigos de graça com o novo Yahoo! Messenger
> http://br.messenger.yahoo.com/
>
> [As partes desta mensagem que não continham texto foram removidas]
>
_
__________________________________________________
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
