Announcement

**Mario.Noack** · 22.10.2003, 20:30

Du k�nntest das SQL umstellen:
<pre>Insert Into TableName
Select * From ...</pre>
Das sollte eigentlich tun. Falls nicht, kann ich morgen noch mal nach dem Syntax f�r Ado schauen, ich habe das jetzt auf eine BDE-SQL rausgeschrieben.
Sch�ne Gr��e, Mario Noac

**Andreas Kosch** · 23.10.2003, 05:50

Hallo,

das folgende Beispiel aus meinem Buch ADO und Delphi demonstriert die Export- und Import-F�higkeiten der MS JET Engine:
<pre>
{ ************************************************** **************
Autor : Andreas Kosch
Compiler : Delphi 6.01 Enterprise / Delphi 6.01 Enterprise
Betriebssystem : Windows 2000 / Windows XP Professional
Erstellt am : 18.09.2000 / 09.12.2001
Beschreibung : Import- und Exportf�higkeiten der
Microsoft Jet Engine
************************************************** ************** }

unit ExportImportFrm;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, ADODB, StdCtrls, ExtCtrls, ComCtrls, Grids, DBGrids;

type
TForm1 = class(TForm)
StatusBar1: TStatusBar;
RadioGroupExport: TRadioGroup;
ButtonExport: TButton;
ButtonImport: TButton;
ADOConnection1: TADOConnection;
DBGrid1: TDBGrid;
ADOConnImport: TADOConnection;
ADOTableImport: TADOTable;
DataSourceImport: TDataSource;
procedure ButtonExportClick(Sender: TObject);
procedure ButtonImportClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

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', 'Export.MDB']);
end;
StatusBar1.Panels[0].Text := sSQL;
ADOConnection1.Connected := True;
ADOConnection1.Execute(sSQL, iRows);
ADOConnection1.Connected := False;
StatusBar1.Panels[1].Text := IntToStr(iRows);
ShowMessage(Format('Es wurden %d Datens�tze exportiert.', [iRows]));
end;

procedure TForm1.ButtonImportClick(Sender: TObject);
begin
ADOTableImport.Active := False;
ADOConnImport.Connected := False;
ADOConnImport.Provider := 'Microsoft.Jet.OLEDB.4.0';
case RadioGroupExport.ItemIndex of
0 : begin
ADOConnImport.Properties['Extended Properties'].Value := 'dBASE 5.0';
ADOConnImport.Properties['Data Source'].Value := 'C:\Temp';
ADOTableImport.TableName := 'Export';
end;
1 : begin
ADOConnImport.Properties['Extended Properties'].Value := 'Paradox 5.x';
ADOConnImport.Properties['Data Source'].Value := 'C:\Temp';
ADOTableImport.TableName := 'Export';
end;
2 : begin
ADOConnImport.Properties['Extended Properties'].Value := 'HTML Import';
ADOConnImport.Properties['Data Source'].Value := 'C:\Temp\Export.htm';
ADOTableImport.TableName := 'Export';
end;
3 : begin
ADOConnImport.Properties['Extended Properties'].Value := 'Text';
ADOConnImport.Properties['Data Source'].Value := 'C:\Temp';
ADOTableImport.TableName := 'Export.txt';
end;
4 : begin
ADOConnImport.Properties['Extended Properties'].Value := 'Excel 8.0';
ADOConnImport.Properties['Data Source'].Value := 'C:\Temp\Export.xls';
ADOTableImport.TableName := 'Tabelle1';
end;
5 : begin
ADOConnImport.Properties['Data Source'].Value := 'C:\Temp\Export.mdb';
ADOTableImport.TableName := 'Cust';
end;
end;
ADOConnImport.Connected := True;
ADOTableImport.Active := True;
end;

end.
</pre&gt

**Jens Schumann** · 03.11.2003, 14:04

Hallo,
besonders interessant finde ich folgenden Abschnitt<pre>ADOConnImport.Properties['Extended Properties'].Value := 'Text';
ADOConnImport.Properties['Data Source'].Value := 'C:\Temp';
ADOTableImport.TableName := 'Export.txt';
</pre>
Gibt es auch die M�glichkeit explizit anzugeben, welches Zeichen die einzelnen Felder trennt und welches als Texterkennungszeichen verwendet werden soll

**Jens Schumann** · 26.11.2003, 13:01

Hallo,
ich m�chte meine oben gestellte Fragen hier noch einmal stellen

**J�rg Dziewas** · 18.03.2005, 19:04

Hallo
Das Beispiel funktioniert mit den im Buch angegebenen mdb�s, ich bekomme aber keinen Export aus MS SQL 2000 hin, entweder eine Fehlermeldung :Falsche Syntax in der N�he des Schl�sselwortes "IN" oder bei Excelexport und der Syntax von http://support.microsoft.com/kb/295646/DE/
das ich keine Berechtigung habe ...
Hat da jemand ein Tip?
mfg J�r

**J�rg Dziewas** · 18.03.2005, 19:12

Hallo
Ich habe ein �hnliches Problem.

Das Beispiel funktioniert mit den im Buch angegebenen mdb�s, ich bekomme aber keinen Export aus MS SQL 2000 hin, entweder eine Fehlermeldung :Falsche Syntax in der N�he des Schl�sselwortes "IN" oder bei Excelexport und der Syntax von http://support.microsoft.com/kb/295646/DE/
das ich keine Berechtigung habe ...
Hat da jemand ein Tip?
(Delphi 2005 Developer dbgo mssql2000)
mfg J�r

**Andreas Kosch** · 22.03.2005, 08:32

Hallo,

die IN-Syntax der SQL-Anweisung kann nur von der Microsoft JET Engine (OLE DB-Provider Microsoft.Jet.OLEDB.4.0) verarbeitet werden. Die Export-/Import-F�higkeiten in die verschiedenen Formate steht somit nur dann zur Verf�gung, wenn die JET-Engine den Ausgangspunkt der Abfrage bildet

Announcement

Aus einer ADOQuery eine Tabelle erstellen

Aus einer ADOQuery eine Tabelle erstellen

Comment

Comment

Comment

Comment

Comment

Comment

Comment