ich möchte eine 2-spaltige Tabelle mit (erst einmal Dummy-) Werten füllen:
****************************************************************************************************************
Code: Alles auswählen
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
Liste: TStringList;
begin
Liste := TStringList.create;
for I := 1 to 30 do
Liste.Add('INSERT INTO TablePos VALUES (123, 456);');
SQLite3Connection1.DatabaseName := ExtractFilePath(Application.ExeName) + 'Kasse.sl3';
SQLite3Connection1.Open;
SQLQuery1.Close;
// SQLQuery1.SQL.Text := 'INSERT INTO TablePos VALUES (123, 456);';
SQLQuery1.SQL.AddStrings(Liste);
SQLQuery1.ExecSQL;
SQLTransaction1.Commit;
Memo1.Lines := Liste;
Liste.Free;
end;
****************************************************************************************************************
Wenn ich mir hernach die Tabbelle anschaue, ist immer nur eine Zeile addiert worden,
es macht also keinen Unterschied, ob ich SQLQuery1.SQL.text := ... s.o., oder mit AddStrings
arbeite. Und da ich mir zuerst einmal selbst nicht traue, habe ich »Liste« auf ein Memo gelegt:
alle 30 Strings d'rin...
Gehe davon aus, dass ich da prinzipiell was falsch mache!?
Gruß,
Michael