可以先用两个adodc控件,看看数据库连接信息怎么写。 最后再换成ado对象。 祝你好运 [email protected] 以下是通过odbc连接的,名称位特test,密码sa. Set db = New Connection db.CursorLocation = adUseClient db.Open "PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;dsn=test;uid=sa;pwd=;database=gcww;"
DBdata2.Execute "insert into [\db1.mdb].[table1] select * from table1"
pufeng_999(小灰狼) :你用的根本不是ADO,也没加密码,糊弄我?
DBdata.Execute "insert into table1 select * from [\db1.mdb;pwd=system].[table1]"
dim dbdata as new adodb.connection dbdata.connectionstring="driver={Microsoft access driver (*.mdb)};dbq=E:\db2.mdb;password=system;" dbdata.open DBdata.Execute "insert into table1 select * from[\db1.mdb;pwd=system].[table1]"
最后再换成ado对象。
祝你好运
[email protected]
以下是通过odbc连接的,名称位特test,密码sa.
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;dsn=test;uid=sa;pwd=;database=gcww;"
dbdata.connectionstring="driver={Microsoft access driver (*.mdb)};dbq=E:\db2.mdb;password=system;"
dbdata.open
DBdata.Execute "insert into table1 select * from[\db1.mdb;pwd=system].[table1]"