Daten kopieren

[mafa]

Ich hab das Problem das ich große Datenmengen vom einer ACCESS97 Datenbank in eine andere ACCESS 97 Datenbank kopieren muß. Dies muß jeden Tag geschehen (30000 - 60000 Datensätze). Es gibt da jedoch noch 2 verschiedene Fälle. <br>
Die Datensätze aus Tabelle T1 aus Datenbank D1 sollen in Datenbank D2 in Tabelle T2 kopiert werden. <br>
<b>Fall A:</B><br>
Beide Tabelle besitzen die gleiche Struktur.<br>
<b>Fall B:</b><br>
Tabelle T2 hab mehr Felder als Tabelle T1
<br>
<br>
Wie kann ich die Daten möglichst schnell kopieren???
<br>
<br>
Bitte schnell um Rat, ist sehr dringend.

[Andreas Kosch]

Hallo,

das folgende Beispiel exportiert die Tabelle CUSTOMER aus der Delphi-Beispieldatenbank <i>DBDEMOS.MDB</i> in die Exporttabelle CUST der Datenbank <i>TEST1.MDB</i>. Da der Zugriff über ADO erfolgt, kann man direkt die Fähigkeiten der Jet Engine 4 ausnutzen, indem die SELECT-Anweisung entsprechend erweitert wird:
<pre>
procedure TForm1.Button1Click(Sender: TObject);
var
sSQL : String;
iRows : Integer;
begin
sSQL := 'SELECT * INTO [Cust] IN "C:\Temp\Test1.MDB" FROM Customer';
ADOConnection1.Connected := True;
ADOConnection1.Execute(sSQL, iRows);
ADOConnection1.Connected := False;
ShowMessage(Format('Es wurden %d Datensätze exportiert.', [iRows]));
end;
</pre>
Nach dem Aufruf hat man alle Datensätze vorerst in der Hilfstabelle der Ziel-Datenbank. Nun kann man die Datensätze innerhalb der Datenbank in die richtige Tabelle einfügen bzw. anpassen