Wer kann mir helfen und mir sagen warum das programm die anweisung nicht in die datenbank schreibt...
er soll aus einem textfeld mit dem namen tb_versuch_id eine nummer in das entsprechende feld der tabelle in der datenbank schreiben....
das feld in der tabelle heißt versuchs_id
hier ist der auszug aus meinem quellcode
Delphi-Quellcode:
procedure Tversuch.CB_TakeClick(Sender: TObject);
var versflid :
string;
begin
versflid:=adoquery1.fieldbyname('
versuchs_id').AsString;
begin
if adoquery1.Locate('
versuchs_id',tb_versuch_id.Text,[])
then
begin
with adoquery1
do
begin
sql.Clear;
close;
sql.Add('
SELECT dbo_Versuchsflaechen_ST.Versuchsfl_ID,');
sql.Add('
dbo_Versuchsflaechen_ST.Versuchsfl_Bezeichnung, dbo_Versuchsflaechen_ST.Versuchs_ID,');
sql.Add('
FROM dbo_Versuchsflaechen_ST');
sql.add('
WHERE dbo_Versuchsflaechen_ST.Versuchsfl_Bezeichnung ='+quotedstr(versflid));
open;
end;
while not adoquery1.Eof
do
begin
adoquery1.Edit;
adoquery1.FieldByName('
versuchs_id').asstring;
adoquery1.Post;
adoquery1.Next;
end;
end;
end;
end;
end.
bin langsam aber sicher am verzweifeln...
