Daten aus AccessDB in Ms SQL Express importieren

[nahpets]

Hallo,

nur mal so hingedaddelt:

Delphi-Quellcode:

Var
      i : Integer;
begin
  tbAccess.Open; // TAdoTable mit 'nem passenden Connectionstring
  tbMSSQL.Open;  // TAdoTable mit 'nem passenden Connectionstring
  while not tbAccess EoF do begin
    tbMSSQL.Append;
    for i := 0 to tbAccess.Fields.Count - 1 do tbMSSQL Fields[i].AsString := tbAccess.Fields[i].AsString;
    tbMSSQL.Post;
    tbAccess.Next;
  end;
  tbAccess.Close;
  tbMSSQL.Close;
end;

In der Art sollte das Kopieren gehen, sofern Quelle und Ziel über die gleiche Tabellenstruktur verfügen.