Announcement

Collapse
No announcement yet.

Dynamic SQL Error (-303)

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Dynamic SQL Error (-303)

    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
    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;
    Die Definition der Variabeln
    Code:
    userid : Integer;
    vardatum : TDate;
    varazbegin : TTime;
    varazende : TTime;
    varpause : TTime;
    varsunter : TTime;
    varbemerk : String;

  • #2
    Lag an der Datenbank würde ich sagen, denn ich habe alles im Quellcode gelichelassen und mit der Feldänderung ging es dann nun zwar musste ich

    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));

    musste zwar die Fehler also DateTime zu Time bzw Date selber nochmal neumachen weil dadurch der fehler wohl kam.

    Comment

    Working...
    X