Also wenn du unbedingt alles über eine AdoTable arbeiten willst( wie gesagt parametrisierte Queries wären besser) dann mußt du mit Filtern arbeiten.
Schleife über die Felder entfernen.
ADOQuery1.Sql.Text := 'insert into PLZ, Straße, vonHausnr, vonHausnr_zusatz, bisHausnr, bisHausnr-zusatz, GU, Tour) values( :plz, ;str, ;von, ;von_zu, :bis, :bis_zu, :gu ,tour)';
oder in der
IDE setzten : Erzeugt einen param.
Query
Delphi-Quellcode:
ADOTable1.TableName:='PlzVerzeichnis';
ADOTable1.Filter='plz='''+ SL.Strings[0]+''';
ADOTable1.Filtered := true;
ADOTable1.Open;
AdoQuery1.Parameters.ParamByName('plz').value := AdoTable1.FieldByName('plzid').value;
ADOTable1.TableName:='StrVerzeichnis';
ADOTable1.Filter='strasse='''+ SL.Strings[1]+''';
ADOTable1.Filtered := true;
ADOTable1.Open;
AdoQuery1.Parameters.ParamByName('str').value := := AdoTable1.FieldByName('plzid').value;
//usw. für weitere Felder
AdoQuery1.ExecSql;