MS Access, ADO: Einfuegen mehrerer Datensaetze

[marabu]

Hallo Berni,

zum Thema JET SQL und Bulk Input müsstest du selbst ein wenig recherchieren, aber wahrscheinlich flutscht es bereits so:

Delphi-Quellcode:

const
  SHSTR: String[11] = 'ShortString';

type
  TItem = array of TVarRec;

var
  items: array of TItem;

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  i: Integer;
  item: TItem;
begin
{
  SetLength(items, 2);
  for i := Low(items) to High(items) do
  begin
    SetLength(item, 2);
    item[0].VType := vtInteger;
    item[0].VInteger := Random(10);
    item[1].VString := @SHSTR;
    items[i] := item;
  end;
}
  with ADODataSet do
  try
    DisableControls;
    for i := Low(items) to High(items) do
      InsertRecord(items[i]);
  finally
    EnableControls;
  end;
end;

Getippt und nicht getestet.

Freundliche Grüße