Hallo,
mit folgendem Source schaffe ich es eine Txt-Datei nach
Access zu importieren.
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ADODB25_TLB, StdCtrls;
type
TForm1 =
class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
resourcestring
ConnStr = '
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Delphi5\Test\ADO\Textfile import;Extended Properties=Text;Persist Security Info=False';
procedure TForm1.Button1Click(Sender: TObject);
var
aConn : Connection;
aSQL :
String;
RA : OleVariant;
Opt : OleVariant;
begin
aSQL:='
SELECT * INTO [Test] IN "D:\Delphi5\Test\ADO\Textfile import\db1.mdb" FROM xyz.txt';
aConn:=CoConnection.Create;
Try
aConn.Open(ConnStr,'
','
',-1);
aConn.Execute(aSQL,RA,Opt);
Finally
aConn.Close;
aConn:=Nil;
end;
end;
Meine Test Txt-Datei sieht so aus:
F1;F2;F3;F4
'dsfsadf';'234';'5tv';324,004
'gfh';'6564';'rt';345,45
'gfh';'4566';'rr';23,3
'vcn';'564';'rtz';43543,4
Beim Import werden jedoch die ' mitgenommen. Wie kann ich die ' unterdrücken?
Schließlich handelt es sich hier nur um Textbegrenzungszeichen.
Weglassen geht nicht, da die Txt-Datei mit der ich arbeiten muss nicht von mir stammt.