如何将另一个mdb数据库里面的表中数据导入到当前数据库中相同表

Question

比如，如何将d:\data.mdb 中的  表A 中的数据
导入到当前数据库中的表A里面

Answer 1

当前数据库是什么，也是Access，还是其他的
方法多种，比如
1、连接上mdb，逐条读出再写入当前库
2、insert into select ... from
3、如果都是access，还可以用VBA的方法

Answer 2

都是Access  ADOQuery1.Close;
  ADOQuery1.sql.Clear;
  ADOQuery1.sql.Add('select * from 数据A');
  ADOQuery1.Open;
  if ADOQuery8.RecordCount = 0 then
  begin
    OpenDialog1.Filter := '*.mdb';
    OpenDialog1.OptionsEx := [ofExNoPlacesBar];
    if OpenDialog1.Execute then
    begin
    //把d:\data.mdb中的数据A中的数据插入当前这个数据A中
    end;
  end;

Answer 3

我看过个
insert into B表 selet * from openrowset('Microsoft.Jet.OLEDB.4.0', 
'x:\A.mdb';'admin';'',A表)这种方法，用到Delphi里面怎么用，老出错

Answer 4

var
  rsReCo: TADOQuery;
  strSQL,strMDB: string;
  
begin  OpenDialog1.Execute;
  if OpenDialog1.FileName = '' then
    Exit;strMDB:='test.mdb';
  rsReCo := TADOQuery.Create(nil);
  rsReCo.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
    OpenDialog1.FileName + ';User Id=admin;Password=;';  strSQL := 'insert   into  smscj(xm,zkzh)  in ''' +
    ExtractFilePath(Application.Exename) + strMDB +
    '''  select xm,zkzh from smscj';  rsReCo.SQL.Add(strSQL);
  rsReCo.ExecSQL;  rsReCo.Close;
  rsReCo.Free;