Dann must du den Code von Jasocul so umbauen:
Delphi-Quellcode:
qry_Speichern.Close;
qry_Speichern.ParamByName('SpeichernDatenbankname').AsString := edtDatenbankname.Text;
qry_Speichern.ParamByName('SpeichernTabellenname').AsString := edtTabellenname.Text;
with qry_Speichern do begin
open;
Memo1.clear;
while not eof do begin
Memo1.Lines.add(FieldByName('feldname').asString;
next;
end;
dbMetaDaten.Open;
end;
mfg
wo