paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-27 09:31:52 +01:00
Code Issues Packages Projects Releases Wiki Activity

- added support for datetime-parameters

Browse Source 
git-svn-id: trunk@1205 -
This commit is contained in:
joost 2005-09-27 16:46:55 +00:00
parent 294bf06cda
commit 7cfc057994
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fcl/db/sqldb/postgres/pqconnection.pp
View File

@ -346,7 +346,7 @@ const TypeStrings : array[TFieldType] of string =
'numeric',
'date',
'time',
'datetime',
'timestamp',
'Unknown',
'Unknown',
'Unknown',
@ -470,7 +470,12 @@ begin
begin
setlength(ar,Aparams.count);
for i := 0 to AParams.count -1 do
ar[i] := pchar(AParams[i].asstring);
case AParams[i].DataType of
ftdatetime : ar[i] := pchar(formatdatetime('YYYY-MM-DD',AParams[i].AsDateTime));
else
ar[i] := pchar(AParams[i].asstring);
writeln(ar[i]);
end;
res := PQexecPrepared(tr,pchar('prepst'+nr),Aparams.count,@Ar[0],nil,nil,0)
end
else