Forum: Datenbanken
Delphi
by Walter Landwehr,
8. Sep 2014
Bislang (Delphi 2007) war es so das die Zeit als String abgehandelt wurde. Aber in Delphi XE2 wird dies irgendwie nicht akzeptiert. String wird einfach übersprungen.
Forum: Datenbanken
Delphi
by Walter Landwehr,
8. Sep 2014
Hm,
keine weiteren Antworten. Irgendwie wird in der Function ExecuteSQL die Zeit nicht richtig erkannt. Zeitwert ist z.B. '08:00:00'. Die Funktion macht ein '' daraus, womit natürlich der Wert in der Tabelle leer ist. Gibt es bei Delphi XE2 einen Anderen VarTyp für Zeit (Time) als in Delphi 2007, denn da funktionierte es noch richtig.
Forum: Datenbanken
Delphi
by Walter Landwehr,
4. Sep 2014
Sorry hier die functionen:
function ExecuteSQL(const s: string; const Par: array of variant): Boolean;
var Q: TIBOQuery;
i: integer;
begin
Q := TIBOQuery.Create(nil);
try
try
Forum: Datenbanken
Delphi
by Walter Landwehr,
4. Sep 2014
Hallo Detlef,
ich habe den Code von einem Mitarbeiter übernommen aus Delphi 2007 (da hat alles funktioniert.). Warum der Except-Block leer ist keine Ahnung. Es läuft nicht in einer Transaktion, ich denke das regelt IBObjects von sich aus.
Bei mir wird alles bis auf Resname in die Tabelle geschrieben obwohl saveResource.Title = 'Test 1' ist.
Hallo Michael,
bei TIB_Connection gibt es...
Forum: Datenbanken
Delphi
by Walter Landwehr,
4. Sep 2014
Vielleicht noch zur Info. Ich arbeite mit IBObjects.
Forum: Datenbanken
Delphi
by Walter Landwehr,
4. Sep 2014
Hallo Detlef,
hier die Funktionen
function ExecuteSQL(const s : string; const Par : array of variant) : Boolean;
function ExecuteSQLEx(const s: string; const Par, prBlobParamsNumbers: array of const): Boolean;
:
Forum: Datenbanken
Delphi
by Walter Landwehr,
4. Sep 2014
Hallo,
ich habe folgende Procedure.
procedure TRessourcenListe.SaveIntoDB;
var i: Integer;
saveResource: TKalenderRessource;
range: TDisabledRange;
j: Integer;