Suche eine Komponente die Daten aus DBGrid als EXCEL oder CSV Datei speichert

[Stefan Zerndl]

Hallo,

habe ein Problem und zwar würde ich gerne die in einem DBGrid angezeigten Daten (mit Spalten Namen) als *.xls oder *.csv Datei abspeichern.
Gibt es eine Möglichkeit das von Hand zu bewerkstelligen oder gibt es vielleicht eine Fertig Komponente die das macht (Feeware).
Bitte um eure Hilfe.

mfg
Stefan

[Helge Lorenzen]

Freeware für nicht kommerzielle Zwecke
http://www.em-quicksoft.com
läuft bei mir (D5Pro) einwandfrei
ist die einfachste alternative
Wenn Du das nicht willst geht ODBC doch auch
ganz gut. Warum nimmst Du nicht einfachfach ein
TTable mit Datenbank auf eine ODBC-Excel und dazu einen batchmove

Helge Lorenze

[Stefan Zerndl]

Hallo,

danke für deine Hilfe

Bin noch ein Anfänger und hab da noch ne Frage: Also ich greife ja mit ADOQuerry auf einen View zu und selektiere da dann bestimmte Daten. Also wenn ich doch eine TTable nehme muß ich mir doch immer denn ganzen View übers Netzwerk schaufeln oder?? Und funktionier batchmove??

danke
Stefa

[Andreas Kosch]

Hallo,

wenn TADOConnection auf die Microsoft Jet Engine zugreift, wird für den Datenexport nach dBASE/Paradox/HTML/XML/CSV oder XLS keine besondere Komponente benötigt, da die Jet Engine (ADO) diese Export-Fähigkeiten bereits mitbringt. Das folgende Beispiel demonstriert dies - dort werden die Datensätze der Tabelle <i>Customer</i> aus einer ACCESS-Datenbank in die verschiedenen Formate exportiert:
<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

[Dietmar Elsässer]

Die InfoPower-Komponenten V 3000 von www.woll2woll.com bieten den Export in html, Excel und CSV.<br>
Dietma