Datenbank findet felder nicht . . .

[The_ New_Guy]

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?

[DeddyH]

Hallo,

1. Wieso erst ExecSQL vor dem Open?
2. Kann das sein, dass Paradox case-sensitive ist? Dann musst Du das Feld 'Dvon' abfragen, nicht 'dvon'

[semo]

man kann vor derm zugriff auf ein feld auch abfragen ob es existiert: stichwort "fieldexists".

das behebt aber nicht dein problem, nur ein kleiner einwand um ungewollte fehlermeldungen zu umgehen.
ich tippe auch mal auf casesensitive schreibweise des feldnamens.

edit: in welchem format hast du denn die zeitangabe in deiner tabelle hinterlegt?

[The_ New_Guy]

Leider tritt der fehler bei geänderter zeile wieder auf - ich habe leider keine ahnung was das für ein seltsamer fehler ist, denn die ersten 3 Felder der Tabelle findet er mühelos, den rest aber nicht -> ?!?

Delphi-Quellcode:

decodedate(query1.fieldbyname('Dvon').AsDateTime,y,m,d);

[semo]

genau der selbe fehler? kaum zu glauben.....
kannst du mal das projekt bzw die datei anhängen?

[MrSpock]

Verbinde doch einmal die query mit einem Grid und schau dir das Ergebnis an.

[marabu]

Hallo,

die Schreibweise der Feldnamen spielt keine Rolle. Der Fehler deutet eher darauf hin, dass für die Query statische Felder angelegt wurden. Ich würde mit einem Doppelklick auf die Query-Komponente überprüfen, ob dort Felder definiert wurden und ob DVON eventuell vergessen wurde.

Grüße vom marabu

[The_ New_Guy]

thx probier ich sofort aus mal sehen.

[The_ New_Guy]

dank euch!
hier ist die lösung:
Ich hatte ein und dasselbe query objekt für säntliche Tabellen benutzt und ich habe im code ständig unr den sql geändert.
Jetzt habe ich für jede Tabelle ein eigenes query, und die fehler haben sich verflüchtigt!

daNkE DANKE DaNke ! :cheers: