Hallo,
ich muss mit einem Commando 2 Insert gleichzeitig absetzen.
Meine Ansatz:
Delphi-Quellcode:
try
with ADOCommand
do
begin
if true
then
begin
CommandText := '
INSERT INTO Tabelle1(Attribut1, Attribut2) VALUES('
+ '
:Kurzzeichen, :Land);'
+ '
INSERT INTO Tabelle2(Attribut1, Attribut2) VALUES('
+ '
:Kurzzeichen, :Land)';
end
else if true
then
//Hier wird der CommandText anders gesetzt
else if true
then
//Hier wird der CommandText anders gesetz
//Parameter füllen
Parameters.ParamByName('
Kurzzeichen').Value := Eingabe_Kurzzeichen.Text;
Parameters.ParamByName('
Land').Value := Eingabe_Land.Text;
//Ausführen
Execute;
//Bestätigung das Daten eingetragen sind
ShowMessage('
Eingetragen');
end;
except
on E:
Exception do ShowMessage(E.
Message);
//Noch genauere Message einrichten
end;
die letzten beiden IF bedingungen klappen bestens, beinhalten jedoch nur 1 Insert.
Von dem 2er Insert klappt immer nur der 1!
Hatte auch schon versucht den 1. Teil via #13#10 vom 2. Teil zu trennen, aber hilft auch nicht...
Weiss jemand rat?
Gruß