如何用delphi将oracle里一张表的数据导入到Access的一张表中？

Question

两张表的字段都是一样的，我现在是一条一条插入，感觉速度比较慢，导几万条数据要花几十分钟，
不知道有没有其他方法让速度能够快一点？

Answer 1

sSql :=
    'select * into ouform from ouform in [ODBC][ODBC;Driver={Microsoft ODBC for Oracle};UID=bklskf;PWD=bklskf;SERVER=bkls;]';注意数据类型匹配的问题,最好将字段名全部标明错了，上面是新建表，应为Insert

Answer 2

Insert Into ouform 字段 select 字段 from ouform [ODBC][ODBC;Driver={Microsoft ODBC for Oracle};UID=bklskf;PWD=bklskf;SERVER=bkls;]';

Answer 3

再请教一下，我把数据插入Access里的表之后，我的数据库文件变得很大，一开始只有7兆多，后来
变成几十兆了，不知道是怎么回事啊？我是先把Access的表的数据删除之后，再导入数据的，删除的数据量跟导入的数据量是一样的，照理说
数据库文件不应该变这么大的？

Answer 4

看不懂，导入就这么简单吗？？学习ing

Answer 5

Access数据库不好,它在删除数据后大小不会变,所以要在删除多条记录以后进行数据库的压缩以后才会变小.

Answer 6

删除之后要压缩数据库可以在删除后调用如下函数function CompactDatabase():boolean;
//压缩与修复数据库,覆盖源文件
var
  JE:OleVariant;
  ConnStr,DBPath:String;  Dao: OLEVariant;
begin
   DBPath:=ExtractFilePath(Application.ExeName);
  JE:=CreateOleObject('DAO.DBEngine.36');
  JE.CompactDatabase(DBPath+'/BAk.mdb',DBPath+'/new.mdb');
  DeleteFile(PAnsiChar(DBPath+'/BAk.mdb'));
  RenameFile(PAnsiChar(DBPath+'/new.mdb'),PAnsiChar('BAk.mdb'));
end;