Also irgendwie kann ich machen was ich will...diese verdammt speicherung in der datenbank klappt einfach nicht...
ich kann auf den button klicken und nichts tut sich...
jetzt habe ich schon den quellcode aus einen anderen programm von mir genommen wo er funktioniert hat und das resultat war gleich null
ich weiß nicht mehr was ich machen soll...
Delphi-Quellcode:
var versflid :
string;
begin
versflid:=adoquery1.fieldbyname('
versuchs_id').AsString;
if (tb_versuch_id.Text ='
')
then
showmessage ('
Bitte was eintragen.');
if adoquery1.Locate('
Versuchs_ID',tb_versuch_id.Text,[])
then
adoquery1.FieldByName('
Versuchs_ID').AsInteger;
with adoquery1
do
begin
close;
sql.Clear;
sql.Add('
SELECT dbo_Versuchsflaechen_ST.Versuchs_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:=tb_versuch_id.Text;
adoquery1.Post;
tb_versuch_id.Clear;
adoquery1.Next;
end;
end;
es hat leider auch nicht mit euren vorschlägen weiter oben in der anfrage geklappt...
ich bin echt am verzweifeln...