Wie vergleichen Firebird TimeStamp und Delphi DateTime?

Ich habe Folgendes Skript, das nie abrufen alle Daten, die seit TimeStamp-Datentyp in Firebird/Interbase ist nicht DateTime (*)

Wie soll ich es beheben ?? TX. 

 with DMApp.qryValidPeriod_ do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select P.* from PERIOD P, FISCAL_YR F');    
    SQL.Add('where');
    SQL.Add('P.FISCAL_YR_ID = F.FISCAL_YR_ID and');     
    SQL.Add('F.ENTITY_DB_ID = :PRIMARY_DB_ID and');     
    SQL.Add('F.FISCAL_YR_ID = :CURR_FY_ID and');        
    SQL.Add(':pTranDate BETWEEN P.BEG_PERIOD and P.END_PERIOD');

    ParamByName('pTranDate').AsDateTime :=  sBATCH_DATE;

//BEG_PERIOD und END_PERIOD sind TimeStamp-Datentyp wie "2010-11-09 12:00'
//parameter return-Datentyp wie "2010-11-09'

(*) Ein Zeitstempel ist eine Spalte Datentyp verfügbar in Firebird/Interbase/SQL Server..., das hilft, um die Datenintegrität sicherzustellen. Zeitstempel werden automatisch jedes mal aktualisiert, wenn Sie eine Zeile mit einer timestamp-Spalte eingefügt oder aktualisiert wird. Werte in timestamp-Spalten sind nicht datetime-Daten, aber binary(8) varbinary(8) - Daten. Der timestamp-Datentyp hat keinen Bezug zu dem system Zeit, es ist einfach ein monoton steigender Zähler, deren Werte immer innerhalb einer Datenbank eindeutig sein (so dass es im Grunde eine eindeutige Zufallszahl.)

  • Ist der TimeStamp in diesem Beispiel Ihre eigenen benutzerdefinierten Datentyp? Weil wir arbeiten sehr viel mit standart TIMESTAMP-Datentyp und es funktioniert gut, wenn im Vergleich zu query-Parametern.
  • Nein, es ist nicht. Es ist Firebird 2.5. Wie oben gezeigt, die Tasche nie wieder irgendwelche Daten - (da der Wert des Parameters pTranDate ist der Datum-format, wie im debugger)
  • Code sollte normalerweise funktionieren. Der Grund, warum die Abfrage gibt keine Ergebnisse vielleicht etwas anders. Überprüfen Sie Ihre anderen Parametern.
  • Beispiel: Delphi-put '2010-11-09' als der Wert der pTranDate parameter. Mit diesem Wert das Skript keine Daten zurückgibt. Wenn ich buchstäblich ersetzen Sie diesen Parameterwert mit '2010-11-09 00:00', dann das script die Daten liefert.
  • '2010-11-09' ist ein string-Wert, wie gehen Sie es an die parameter?
  • '2010-11-09' ist ein string-Wert, wie gehen Sie es an die parameter? .. mit dem sql-editor kommt mit anydac. Nun alles eingerichtet ist, so dass mein Skript gibt Werte, wie es ist. Ich war mixing-Parameter zwischen den Datenbanken, die ich mit der Anydac multi-Datenbank-Verbindung. Vielen Dank für Ihre Hilfe. Sie hatten Recht, ich sollte überprüft haben, die Parameter zweimal.

InformationsquelleAutor volvox | 2010-11-11
  1. 5

    Nicht, dass Sie falsch verstanden TIMESTAMP-Datentypen in Firebird? In SQL92 TIMESTAMP ist ein standard-Datentyp zu halten, sowohl Datum und Uhrzeit-Werte. Es wird nicht automatisch aktualisiert und die Funktionen zurückgeben TIMESTAMP-Werte beziehen sich auf die Datenbank Zeit.

    AFAIK, die Firebird-TIMESTAMP-Implementierung folgt die SQL-92-Regeln (http://www.firebirdsql.org/index.php?op=guide&id=ib6_newfeatures#datetime), und es sollte perfekt funktionieren mit Delphi .AsDateTime parameter.

    SQL Server Zeitstempel, die wie von Ihnen beschrieben - und es sollte nie verwendet werden, im Vergleich mit Datum und Uhrzeit, "Der SQL Server-Datentyp timestamp hat nichts zu tun mit Zeit-und Datumsangaben" http://msdn.microsoft.com/en-us/library/ms191240(SQL.90).aspx

    • Sorry - ja, ich war die Beschreibung der SQL Server-TIMESTAMP. Meine obige Skript zurückgeben von Daten nur, wenn param pTranDate ist der "Datum"Uhrzeit" - format (das ist 2010-11-09 00:00). Wie es ist, bekomme ich nur das Datum (2010-11-09)
    • SORRY Jungs - ich war die Vermischung der Dinge zwischen Firebird und SQL-Server (da meine Anwendung ist multi-server). JETZT mit Eure Hilfe ich habe die Dinge richtig und Delphi DateTime ist OK arbeitet mit Firebird TimeStamp-Datentyp.
    InformationsquelleAutor
  2. 1

    In der Regel, ich benutze es als string-parameter, da der Zeit Teil.
    Idee ist, haben die Einstellungen unabhängig vom format, zum Beispiel "11-NOV-2010 12:32:25'

    Zum Beispiel, könnten Sie versuchen, 

    ParamByName('pTranDate').AsString :=  FormatSQLDateTime(sBATCH_DATE);

    Wo Sie haben ähnliche Funktionen wie diese

    function FormatSQLDate(date: TDate) : string;
const months : array[1..12] of string[3] =
('JAN','FEB','MAR','APR','MAY','JUN','JUL','AUG','SEP','OCT','NOV','DEC');
 var d, y : integer;
     m : string[3];
begin
   d := DayOf(date);
   y := YearOf(date);
   m := months[MonthOf(date)];
   Result := Format('%d-%s-%d', [d, m, y]);
end;


function FormatSQLDateTime(date : TDateTime) : String;
var
  d : String;
  h, m, s : Integer;
begin
  d := SQLDate(date);
  h := HourOf(date);
  m := MinuteOf(date);
  s := SecondOf(date);
  Result := d + Format(' %d:%d:%d', [h, m, s]);
end;

    Beachten Sie, dass Sie auch etwas aus der Arbeit auf der server-Seite, die mit der Nutzung von sql-Extrakt

    extract(day from timestamp_field)

    http://www.firebirdsql.org/refdocs/langrefupd20-extract.html

    • In der Regel ist besser, um das Datum in numerisches Format und lassen Sie die Treiber/client/Datenbank kümmert sich um den rest. Es ist auch etwas schneller, weil der Motor nicht braucht, um zu analysieren und konvertieren Sie die Zeichenfolge. Firebird hat weniger Probleme, denn es versteht einen festen Satz von string-literalen, aber in anderen Datenbanken mit dem "standard" Literale Datum-format ändern kann, je nach OS locale -, Datenbank-Einstellungen und client-locale-Einstellungen. IMHO ist es eine gute prarctice zu vermeiden Saiten.
    • Dank dieser Funktion und Referenz-Sofija - es wird hilfreich sein, in einen anderen Teil meiner Bewerbung. Jetzt habe ich die Dinge richtig mit Firebird TimeStamp und Delphi DateTime als es ist.
    InformationsquelleAutor Sofija
  3. 0

    Einer UDF unten in Delphi geschrieben. Es wird drei Teile eines Datums und gibt den Datumswert in Firebird-format. Vielleicht wird Ihnen helfen, zu verstehen, wie konvertieren von Daten zwischen Delphi und FB.

    type
  PIBDateTime = ^TIBDateTime;
  TIBDateTime = record
    Days,                           //Date: Days since 17 November 1858
    MSec10 : Integer;               //Time: Millisecond * 10 since midnigth
  end;

const                               //Date translation constants
  MSecsPerDay10 = MSecsPerDay * 10; //Milliseconds per day * 10
  IBDateDelta = 15018;              //Days between Delphi and InterBase dates

//==============================================
// declare external function ...
//   smallint, smallint, smallint, date
// returns
//   date
// ...
//==============================================

function g_d_encodedate(var Year, Month, Day: SmallInt;
  var IBDateTime: TIBDateTime): PIBDateTime; cdecl; export;
var
  DateTime: TDateTime;
  DelphiDays : Integer;
begin
  DateTime := EncodeDate(Year, Month, Day);
  DelphiDays := Trunc(DateTime);
  with IBDateTime do begin
    Days := DelphiDays + IBDateDelta;
    MSec10 := Trunc((DateTime - DelphiDays) * MSecsPerDay10);
  end;
  Result := @IBDateTime;
end;
    InformationsquelleAutor Andrej Kirejeŭ
Schreibe einen Kommentar