Hallo,
ich habe ein problem mit meiner datenbank bzw. mit diesem code:
Lasse ich diesen code laufen, wird immer wieder ein dbase error an folgender Stelle hervorgerufen . . .
Delphi-Quellcode:
query1.SQL.Clear;
query1.SQL.Add('Select * ' +
'from etparams where ID = ' + inttostr(pagecontrol1.TabOrder));
query1.ExecSQL;
query1.Open;
query1.First;
if not query1.Eof then
begin // funktion makebool macht aus 1 -> true und aus 0 -> false
checkbox1.Checked := makebool(query1.fieldbyname('Cb1').asinteger);
checkbox2.Checked := makebool(query1.fieldbyname('Cb2').asinteger);
checkbox3.Checked := makebool(query1.fieldbyname('Cb3').asinteger);
// checkbox4.Checked := makebool(query1.fieldbyname('Cb4').asinteger); // vorher kam der fehler auch schon hier -
// checkbox5.Checked := makebool(query1.fieldbyname('Cb5').asinteger); // jetzt habe ich das auskomentiert
// checkbox6.Checked := makebool(query1.fieldbyname('Cb6').asinteger); // um weiterzusehen.
// checkbox7.Checked := makebool(query1.fieldbyname('Cb7').asinteger);
decodedate(query1.fieldbyname('dvon').AsDateTime,y,m,d); //<--- hier kommt der fehler
d1.Text := inttostr(d);
m1.Text := inttostr(m);
y1.Text := inttostr(y);
//. ...
woran kann das liegen?
ich habe alle Felder in meiner
DB definiert, warum findet er sie trotzdem nicht?