Datum in DB (Firebird) speichern

[FBrust]

Hi,

ich mache nichts anderes als Du, in Deinem Quelltext oben fehlt vor der Insert-Anweisung noch ein SQL.Text := , d. h. zuerst wird der SQL-Text der Abfrage mit SQL.Clear gelöscht, dann wird ein neuer Text zugewiesen.

Dein Statement müsste also lauten:

Delphi-Quellcode:

  erfdat := date;
  zeit := time;
  qrMain.Sql.Clear;
  qrMain.SQL.Text := 'Insert into table (vim, ls, erfdat,erfasser) Values (' +      
    QuotedStr(vim.text) + ', ' + 
    QuotedStr(ls.text) + ', ' + 
    QuotedStr(DateToStr(datum) + ' ,' + 
    QuotedStr(erf.text) + ');';
  qrMain.ExecSQL;

Gruß
Frank

Edit: Grammatik korrigiert