Announcement

**Andreas Kosch** · 11.06.2003, 12:32

Hallo,

das folgende Beispiel demonstriert, wie man mit Hilfe der Jet Engine eine Tabelle (Bsp: Customer) aus einer ACCESS-Datenbank in die verschiedenen Formate exportieren kann:

<pre>
procedure TForm1.ButtonExportClick(Sender: TObject);
resourcestring
cSQL1 = 'SELECT * INTO [Export.%s] IN "C:\Temp" "%s;" FROM Customer';
cSQL2 = 'SELECT * INTO %s IN "C:\Temp\%s" "Excel 8.0;" FROM Customer';
cSQL3 = 'SELECT * INTO [%s] IN "C:\Temp\%s" FROM Customer';
var
sSQL : String;
iRows: Integer;
begin
case RadioGroupExport.ItemIndex of
0 : sSQL := Format(cSQL1, ['dbf', 'dBASE 5.0']);
1 : sSQL := Format(cSQL1, ['db', 'Paradox 5.x']);
2 : sSQL := Format(cSQL1, ['htm', 'HTML Export']);
3 : sSQL := Format(cSQL1, ['txt', 'Text']);
4 : sSQL := Format(cSQL2, ['Tabelle1', 'Export.xls']);
5 : sSQL := Format(cSQL3, ['Cust', 'Test1.MDB']);
end;
ADOConnection1.Connected := True;
ADOConnection1.Execute(sSQL, iRows);
ADOConnection1.Connected := False;
ShowMessage(Format('Es wurden %d Datens�tze exportiert.', [iRows]));
end;

</pre>

Wenn die Tabellen aus einer ACCESS-Datenbank in eine andere ACCESS-Datenbank kopiert werden sollen, darf die Zieltabelle noch nicht in dieser Datenbank vorhanden sein. Die Jet Engine kann diese Aufgabe direkt �ber SQL erledigen:

SELECT * INTO [Zieltabelle] IN "C:\Zielverzeichnis\Zieldatenbank" FROM Quelltabelle

Die TADOConnection-Komponente ist in diesem Fall mit der Quelldatenbank verbunden

**Martin Leich** · 12.06.2003, 06:51

hi andreas,
ich werd es gleich mal ausprobieren!

vorher noch eine frage: bedeutet "Die Jet Engine kann diese Aufgabe direkt �ber SQL erledigen" das ich einen SQL server brauche?

oder ist damit nur die verfahrensweise gemeint

**Martin Leich** · 12.06.2003, 13:57

hallo ich nochmal,

neue frage: wenn aber die tabelle in der zieldatenbank schon vorhanden ist.. was mache ich, um dann trotzdem die inhalte der quelltabelle in die zieltabelle zu bekommen?

oder: was ist wenn ich die tabelle in der zieldatenbank l�sche und dann aus der quelldatenbank einf�ge? gehen dann alle beziehungen mit den anderen tabellen, etc. verloren?

danke im voraus f�r antworten

gruss marti

**Andreas Kosch** · 13.06.2003, 06:40

Hallo,

>..was mache ich, um dann trotzdem die inhalte der quelltabelle in die zieltabelle zu bekommen?

Was in jedem Fall geht, ist der Weg �ber zwei aktive Datenbankverbindungen. Die eine Verbindung liest die Datens�tze der Quelltabelle in einer Schleife aus, und die zweite Verbindung kopiert die Inhalt aller Spalten der Quelltabelle (DataSet1) in die Zieltabelle (DataSet2):
<pre>

var
iFields : Integer;
i : Integer;
begin
ADODataSet2.Append;
with ADODataSet1 do
begin
iFields := FieldCount - 1;
for i := 0 to iFields do
if RecordSet.Fields[i].Properties['ISAUTOINCREMENT'].Value = False then
ADODataSet2.FieldByName(Fields[i].FieldName).Assign(
FieldByName(Fields[i].FieldName));
end;
ADODataSet2.Post;
StatusBar1.SimpleText := 'Datensatz in die 2. Tabelle kopiert';
end;

</pre&gt

**Martin Leich** · 24.06.2003, 10:42

hi andreas,
danke f�r den tipp, nur leider funktioniert es bei mir nicht richtig!

was brauche ich ausser den DataSet�s noch (z.b. ADOConnection oder ADOTable oder ...)?

gruss marti

**Martin Leich** · 26.06.2003, 09:58

hi,
ich habs soweit erstmal hinbekommen.

ein problem habe ich leider noch, der meckert bei vorhandenen datens�tzen rum ..
meine frage: wie kann ich das umgehen und sagen das die funktion nur datens�tze kopiert welche noch nicht vorhanden sind?

bitte um antwort

gruss marti

**Martin Leich** · 02.07.2003, 14:24

hi,

w�re schon nicht schlecht wenn mir einer antworten k�nnte..

weil ich habs inzwischen aufgegeben, brauche dieses programm aber trotzdem! :/

gru� marti

**Andreas Kosch** · 02.07.2003, 15:11

Hallo,

nicht ohne Grund verkaufen viele Firmen f�r teueres Geld spezielle Software f�r die Replikation von Datenbest�nden :-)

Es steht immer noch der Weg offen, vorher in der Zieltabelle nachzusehen, ob es bereits einen Datensatz mit diesem Prim�rschl�sselwert gibt. Wenn ja, muss man den Datensatz aktualisieren

Announcement

zugriff auf access2000 datenbanken

zugriff auf access2000 datenbanken

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment