Delphi-Quellcode:
Conn:= ini.ReadString('
Datenbank', '
ConnectionString', '
');
Unit2.Form2.ADOQuery1.Active:= false;
Unit2.Form2.ADOQuery1.ConnectionString:= Conn;
Tabelle:= ini.ReadString('
Datenbank', '
Tabelle', '
');
sql:= '
Select * from '+Tabelle+ '
where '+Kennnummer+ '
=''
'+ Kennnr+'
''
';
Form2.ADOQuery1.Close;
Form2.ADOQuery1.SQL.Clear;
Form2.ADOQuery1.SQL.Add(
sql);
Form2.ADOQuery1.Open;
Der Fehler muss bei .close verursacht werden, ich hatte vorhin noch eine MessageBox danach eingebaut, die wurde aber nicht angezeigt.