PostgreSQL Timestamp

Code samples and contributions from users for ZeosLib's DBOs of version 6.x

Moderators: gto, cipto_kh, EgonHugeist, mdaems

User avatar
simpsomboy
Fresh Boarder
Fresh Boarder
Posts: 6
Joined: 14.09.2005, 06:05

PostgreSQL Timestamp

Postby simpsomboy » 11.07.2007, 23:25

The Timestamp fiels, was not getting milisecs information from database.
at PostgreSQL this results in a error on update a record, by comparsion
invalid, because postgresql expects milisecs on timestamp, and when comparing values its doesn't match.


The Diff File to svn revision 267 Folows:

Code: Select all

Index: src/core/ZSysUtils.pas
===================================================================
--- src/core/ZSysUtils.pas   (revision 267)
+++ src/core/ZSysUtils.pas   (working copy)
@@ -865,7 +865,7 @@
 }
 function AnsiSQLDateToDateTime(const Value: string): TDateTime;
 var
-  Year, Month, Day, Hour, Min, Sec: Word;
+  Year, Month, Day, Hour, Min, Sec, Msec: Word;
   Temp: string;
 begin
   Temp := Value;
@@ -883,17 +883,18 @@
       except
       end;
     end;
-    Temp := Copy(Temp, 12, 8);
+    Temp := Copy(Temp, 12, 12);
   end;
   if Length(Temp) >= 8 then
   begin
     Hour := StrToIntDef(Copy(Temp, 1, 2), 0);
     Min := StrToIntDef(Copy(Temp, 4, 2), 0);
     Sec := StrToIntDef(Copy(Temp, 7, 2), 0);
+    MSec := StrToIntDef(Copy(Temp, 10, 3), 0);
     try
       if Result >= 0 then
-        Result := Result + EncodeTime(Hour, Min, Sec, 0)
-      else Result := Result - EncodeTime(Hour, Min, Sec, 0)
+        Result := Result + EncodeTime(Hour, Min, Sec, MSec)
+      else Result := Result - EncodeTime(Hour, Min, Sec, MSec)
     except
     end;
   end;
Index: src/dbc/ZDbcCache.pas
===================================================================
--- src/dbc/ZDbcCache.pas   (revision 267)
+++ src/dbc/ZDbcCache.pas   (working copy)
@@ -2195,7 +2195,7 @@
       end;
     stTimestamp: SetTimestamp(ColumnIndex, Frac(Value));
     stString, stUnicodeString:
-      SetString(ColumnIndex, FormatDateTime('hh:nn:ss', Value));
+      SetString(ColumnIndex, FormatDateTime('hh:nn:ss.zzz', Value));
   end;
 end;
 
@@ -2224,7 +2224,7 @@
         PDateTime(@FBuffer.Columns[FColumnOffsets[ColumnIndex - 1] + 1])^ := Value;
       end;
     stString, stUnicodeString:
-      SetString(ColumnIndex, FormatDateTime('yyyy-mm-dd hh:nn:ss', Value));
+      SetString(ColumnIndex, FormatDateTime('yyyy-mm-dd hh:nn:ss.zzz', Value));
   end;
 end;
 
Index: src/dbc/ZDbcPostgreSqlStatement.pas
===================================================================
--- src/dbc/ZDbcPostgreSqlStatement.pas   (revision 267)
+++ src/dbc/ZDbcPostgreSqlStatement.pas   (working copy)
@@ -358,10 +358,10 @@
           [FormatDateTime('yyyy-mm-dd', SoftVarManager.GetAsDateTime(Value))]);
       stTime:
         Result := Format('''%s''::time',
-          [FormatDateTime('hh":"mm":"ss', SoftVarManager.GetAsDateTime(Value))]);
+          [FormatDateTime('hh":"mm":"ss"."zzz', SoftVarManager.GetAsDateTime(Value))]);
       stTimestamp:
         Result := Format('''%s''::timestamp',
-          [FormatDateTime('yyyy-mm-dd hh":"mm":"ss',
+          [FormatDateTime('yyyy-mm-dd hh":"mm":"ss"."zzz',
             SoftVarManager.GetAsDateTime(Value))]);
       stAsciiStream, stUnicodeStream:
         begin


Return to “User Contributions”

Who is online

Users browsing this forum: No registered users and 1 guest