Aus einer MDB-File eine CSV-File machen und zwar über ADO ,wie geht das ?

[Xavier Lambert]

Aus einer MDB-File eine CSV-File machen und zwar über ADO ,wie geht das ?<br>
Ich weiss,dass irgendwie geht ,allerdings wie ,weiss ich nicht <br>
Ich werde mich sehr auf Euere Mithilfe freuen.

Natürlich über Access geht das viel einfacher mit Export,allerdings möchte ich das mit Delphi <br>
über ADO hinkriegen,damit alles automatisiert wird<br>

Danke Euch im Voraus<br>
Xavier Lambert

[Andreas Kosch]

Hallo,

das folgende Beispiel demonstriert, wie man mit Hilfe der <i>Jet Engine</i> 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&gt