access数据导入另一个access数据库， AccessApplication1怎样用？

Question

1.mdb 表结构与 2.mdb 表结构一样.    access数据库有密码:123   需要将 1.mdb 中的其中的两个表的内容导入到 2.mdb中. 表名为: Table1, Table2.  
   AccessApplication1.Connect;
      try   
          AccessApplication1.OpenCurrentDatabase('c:\1.mdb',false,'123');          AccessApplication1.DoCmd.TransferDatabase(acImport,'Microsoft Access',          'c:\2.mdb', acQuery,'Table1;Table2','Table1;Table2',false,false );      except   
          On   E:Exception   do
          begin
              ShowMessage(' 不能打開或其他程序正在使用:'+NameEdit.Text);
              Exit;   
          end;   
      end;
     AccessApplication1.CloseCurrentDatabase;请问AccessApplication1怎样用？？

Answer 1

自己用ado写个程序，循环一条一条的导不就行了

Answer 2

没有密码的情况可以用下面的语句insert into subjects 
select * from subjects 
in "E:\个人代码库\ADO导数据\Test2.mdb"

Answer 3

密码不会      AccessApplication1.Connect;
   try
            try
  AccessApplication1.OpenCurrentDatabase( 'C:\Access\1.mdb',false);
  AccessApplication1.DoCmd.TransferDatabase(acExport,'Microsoft Access',
    'C:\Access\2.mdb',acTable,'TB_EM','TB_EM',false,false);            except
                    On       E:Exception       do
                    begin
                            ShowMessage( '   不能打開或其他程序正在使用: ');
                    end;
            end;
          AccessApplication1.CloseCurrentDatabase;
   finally
          AccessApplication1.Disconnect;
   end;