Datenbank und ButtonClick

[Sulustaner2004]

ich habe ein neues problem...

ich will über einen button daten die in ein textfeld eingegeben werden in eine datenbank schreiben...wie kann ich das machen ohne das mir das programm jedesmal abschmiert ???
ich poste mal den quellcode für den button mit...

Code:

procedure TEingabe_coord.cb_takeClick(Sender: TObject);
begin
  if ((edit1.Text ='') and
      (edit.Text ='')) then
      showmessage ('Bitte was eintragen.');

   if  adoquery1.Locate('x_coord',edit1.Text,[])then

   adoquery1.FieldByName('x_coord').AsInteger;
    with adoquery1 do
     begin
     sql.Clear;
     close;
     sql.Add('SELECT Koordinaten_ST.X_COORD, Koordinaten_ST.Y_COORD');
     sql.Add('FROM dbo_Versuchsflaechen_ST');
     sql.Add('INNER JOIN Koordinaten_ST');
     sql.Add('ON dbo_Versuchsflaechen_ST.Versuchsfl_ID = Koordinaten_ST.Versuchsfl_ID');
     sql.Add('WHERE (((Koordinaten_ST.Versuchsfl_ID)=16))');
     sql.Add('ORDER BY dbo_Versuchsflaechen_ST.Versuchsfl_ID;');
     open;
     end;

   while not adoquery1.Eof do
    begin
     adoquery1.Edit;
     adoquery1.FieldByName('x_coord').Asstring:=edit1.Text;
     adoquery1.Post;
    end;
  end;
end.

ich hoffe ihr könnt mir dabei helfen....

[barnti]

Hi,

Zitat:

sql.Clear;
close;

versuch mal

Delphi-Quellcode:

close;
sql.clear;

Gruß,

Barnti

[Sulustaner2004]

danke dir barnti...
aber das hat immernoch nicht geholfen...das programm trägt zwar die daten in die datenbank ein aber hängt sich dann sofort auf !!!!

[Sharky]

Zitat von Sulustaner2004:

... programm jedesmal abschmiert ???

Code:

procedure TEingabe_coord.cb_takeClick(Sender: TObject);
begin
....
 while not adoquery1.Eof do
    begin
     adoquery1.Edit;
     adoquery1.FieldByName('x_coord').Asstring:=edit1.Text;
     adoquery1.Post;
    end;
  end;
end.

Hai Sulustaner2004,

dir ist schon klar das Du hier eine Endlosschleife hast? Es fehlt wohl noch ein adoquery1.next nach dem .Post

[Sulustaner2004]

ich trottel ich...
danke euch...das hat diesmal geholfen !!!