OK amigo, então considere o nome da variável declarada, no caso aDATAANOTSERV.
Qual seria o problema, já que digo _CLARAMENTE_ que não há problemas?
fabio giro <[EMAIL PROTECTED]> escreveu: A função
está recebendo aDATAANOTSERV e você está usando ParamByName('par03').AsString
:= pDATAANOTSERV;
Ricardo César Cardoso <[EMAIL PROTECTED]> escreveu: Bom dia
companheiros de lista.
Tenho a seguinte função:
*****************************************
Function PegaNUMANOTSERV(aNUMMAQCAMVEI, aNBOLANOTSERV: Integer; aDATAANOTSERV:
TDate; aTIPOANOTSERV, aTROLEOANOTSERV: String): Integer;
Var
Temp : Integer;
aSQL : TSQLQuery;
Begin
aSQL := TSQLQuery.Create(nil);
with aSQL do
begin
SQLConnection := dm.ConSENPAR;
with SQL do
begin
Add('Select NUMANOTSERV ' );
Add('From ANOTSERV ' );
Add('Where NUMMAQCAMVEI = :par01' );
Add(' And NBOLANOTSERV = :par02' );
Add(' And DATAANOTSERV = :par03' );
Add(' And TIPOANOTSERV = :par04' );
Add(' And TROLEOANOTSERV = :par05' );
end;
ParamByName('par01').AsInteger := aNUMMAQCAMVEI;
ParamByName('par02').AsInteger := aNBOLANOTSERV;
ParamByName('par03').AsString := pDATAANOTSERV;
ParamByName('par04').AsString := aTIPOANOTSERV;
ParamByName('par05').AsString := aTROLEOANOTSERV;
Open;
end;
Temp := aSQL.Fields[0].AsInteger;
aSQL.Free;
Result := Temp;
End;
***
Sempre que tento passar a data para o banco de dados como parâmetro o banco
não retorna os dados esperados. O campo DATAANOTSERV é do tipo DATE e o banco
de dados é Firebird v1.5.2
Tentei passar o parâmetro como Date (AsDate e AsDateTime) e como String
(AsString) mas mesmo tendo registros que atendam aos requisitos da consulta,
nenhum dado é retornado quando a consulta é feita pela aplicação.
Fazendo a mesma consulta num front-end (IBExpert) a consulta retorna os dados
normalmente.
Não tenho nenhuma mensagem de erro em nenhuma das adaptações que tentei.
Grato,
Ricardo.
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
