var aADOQry, bADOQry: TADOQuery; begin aADOQry.Open; While Not aADOQry.Eof do begin ... bADOQry.SQL := 'Insert Into Table values(' + aADOQry.FieldByName('').asString + ... + ')' .. aADOQry.Next; ... end;
Access可以直接打开 CVS文件。
试试 1、比如txt文件在c:\temp\aaaa.txt就执行 ADOConnection.Connected := True; ADOConnection.Execute('Select * Into abcd From [Text;Database=c:\temp].aaaa.txt'); 2、把Excel导入到Access中,同txt类似 select * into <table name> from [excel 8.0;database=<filename>].[<sheetname>$]
但只能在装数据库的那台机器用!或者可以用笨一点的办法 一条条的插入
aADOQry, bADOQry: TADOQuery;
begin
aADOQry.Open;
While Not aADOQry.Eof do
begin
...
bADOQry.SQL := 'Insert Into Table values(' + aADOQry.FieldByName('').asString + ... + ')'
..
aADOQry.Next;
...
end;
1、比如txt文件在c:\temp\aaaa.txt就执行
ADOConnection.Connected := True;
ADOConnection.Execute('Select * Into abcd From [Text;Database=c:\temp].aaaa.txt');
2、把Excel导入到Access中,同txt类似
select * into <table name> from [excel 8.0;database=<filename>].[<sheetname>$]