带密码的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;
这是小弟写,提示密码错误。是因为两个数据库都有密码的问题。
密码相同,
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;
这是小弟写,提示密码错误。是因为两个数据库都有密码的问题。
还有access有解密码的工具的。
请问:这条语句用哪个AdoConnection执行呢?
select * into [db1.mdb;pwd=口令] from [db2.mdb; pwd =口令]
这样就OK了!
还是谢谢各位了!分免费送了~~
2、可以考虑用SQL自带的DTS导入。
这样就OK了!