带密码的access两个数据库之间复制表。
密码相同,
procedure TFWQ.Move_Data(const TableName, Data_Form, Data_To: WideString);
var StrFile1, StrFile2, cs: string;
begin
   with ADOConnectionMove_Data do
    begin
      Connected:= false;
      ConnectionString:=' Provider=Microsoft.Jet.OLEDB.4.0; '
      +'Data Source='+ExtractFilePath(Paramstr(0))+ 'data\hst_jxc'+Data_To+'.mdb;'
      +' Persist Security Info=False; '
      +' Jet OLEDB:Database Password=frff';
      LoginPrompt:= false;
      Connected:= true;
    end;
    StrFile1:= '[' + ExtractFilePath(Paramstr(0)) +'data\hst_jxc'+ Data_To + '.mdb].' + TableName ;
    StrFile2:= '[' + ExtractFilePath(Paramstr(0)) +'data\hst_jxc'+ Data_Form + '.mdb].' + TableName ;
    cs:= 'SELECT * INTO '+ StrFile1 +  ' FROM '+ StrFile2 ;
    ADOConnectionMove_Data.Execute(cs,cmdText,[eoExecuteNoRecords]);
end;
这是小弟写,提示密码错误。是因为两个数据库都有密码的问题。

解决方案 »

  1.   

    我是不清楚有密码和没密码操作起来有什么区别?
    还有access有解密码的工具的。
      

  2.   

    使用两个AdoConnection,分别连接两个带密码的数据库
      

  3.   

    ADOConnectionMove_Data.Execute(cs,cmdText,[eoExecuteNoRecords]);
    请问:这条语句用哪个AdoConnection执行呢?
      

  4.   

    我明白了!
    select   *   into   [db1.mdb;pwd=口令]   from   [db2.mdb; pwd =口令]
    这样就OK了!
    还是谢谢各位了!分免费送了~~
      

  5.   

    1、用ADO连接后复制。
    2、可以考虑用SQL自带的DTS导入。
      

  6.   

    select  *  into  [db1.mdb;pwd=口令]  from  [db2.mdb; pwd =口令] 
    这样就OK了!