Query problem

[Gigant02]

Moin Moin

also ich habe da ein problem

ich wollte mal schnell ein unsauberes tool entwickeln was einfach einpaar dinge kombeniert und diese dann wieder abspeichert

dummerweise wird die query wieder geschlossen und ich weiss nicht warum

Delphi-Quellcode:

  Form1.zQuery1.SQL.Clear;
  Form1.zQuery1.SQL.Add('SELECT * FROM vornamen');
  Form1.zQuery1.Open;

  while not Form1.zQuery1.Eof DO begin

    Form1.zQuery2.SQL.Clear;
    Form1.zQuery2.SQL.Add('SELECT * FROM nachnamen');
    Form1.zQuery2.Open;


    while not Form1.zQuery2.Eof DO begin

      Form1.zQuery3.SQL.Clear;
      Form1.zQuery3.SQL.Add('SELECT * FROM bundeslaender');
      Form1.zQuery3.Open;


      while not Form1.zQuery3.Eof DO begin

        DB_INSERT('INSERT INTO kunden ("Anrede","Vorname","Nachname","Bundesland") VALUES ("'+
        Form1.zQuery1.FieldByName('Gesch').asString+'","'+
        Form1.zQuery1.FieldByName('Vorname').asString+'","'+
        Form1.zQuery2.FieldByName('Nachname').asString+'","'+
        Form1.zQuery3.FieldByName('Bundesland').asString+'")');

        Form1.zQuery3.Next;
      end;
      Form1.zQuery2.Next;
    end;

    Form1.zQuery1.Next;
  end;

Fehlermeldung:

Zitat:

Im Projekt DemoDB.exe ist eine Exception der klasse EDataBaseError aufgetreten. Meldung: 'ZQuery1: Das Feld 'Gesch' wurde nicht gefunden'. der Proess wurde angehalten'

nun ich vermute das es zQuery1 einfach nicht mehr gibt
aber wie mache ich denn das ganze an besten ??

ps wie mache ich es das ich nicht immer wieder für jede kleine query eine komponente auf die form ziehen muss ??

habe sie auch einfach mal übergeben in eine neue aber da ist genau das gleiche passiert

achso wenn ich die komponenten per copy and paste auf der form vervielfältige kann das zuproblemen führen ???

lg, Gigant