Hallo,
habe nun ein großes Problem, mit Einträgen in der Datenbank (Interbase). Mit der Felddefinition TimeStamp funktioniert es, jedoch leider nur mit Datumswert. Wenn ich aber nun ein Time habe mit dem ich auch versuche mein Timevariable hineinzufügen geht es leider nicht.
Hier mal der code
Die Definition der Variabeln
habe nun ein großes Problem, mit Einträgen in der Datenbank (Interbase). Mit der Felddefinition TimeStamp funktioniert es, jedoch leider nur mit Datumswert. Wenn ich aber nun ein Time habe mit dem ich auch versuche mein Timevariable hineinzufügen geht es leider nicht.
Hier mal der code
Code:
Try userid := StrToInt(uid.Caption); vardatum := StrToDate(DateToStr(datum.DateTime)); varazbegin := StrToDate(DateToStr(azbegin.DateTime)); varazende := StrToDate(DateToStr(azende.DateTime)); varpause := StrToDate(DateToStr(pause.DateTime)); varsunter := StrToDate(DateToStr(sunterbrechung.DateTime)); varbemerk := tbemerk.Text; except MessageDlg('Fehler beim Eintragen!',mtError,[mbOk],0); exit; end; issql.Close; issql.SQL.Text := 'INSERT INTO BERICHTE (USERID, ANFANG, BEENDET, DATUM, PAUSE, UBRECHUNG, BEMERKUNG) VALUES (:USERID, :ANFANG, :BEENDET, :DATUM, :PAUSE, :UBRECHUNG, :BEMERKUNG);'; issql.ParamByName('USERID').Value := userid; issql.ParamByName('ANFANG').Value := varazbegin; issql.ParamByName('BEENDET').Value := varazende; issql.ParamByName('DATUM').Value := vardatum; issql.ParamByName('PAUSE').Value := varpause; issql.ParamByName('UBRECHUNG').Value := varsunter; issql.ParamByName('BEMERKUNG').Value := varbemerk; issql.ExecQuery;
Code:
userid : Integer; vardatum : TDate; varazbegin : TTime; varazende : TTime; varpause : TTime; varsunter : TTime; varbemerk : String;
Comment