ADOCommand -> 2 Inserts gleichzeitig

[domsch]

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ß