|
设有两个数据库: ABC前端.mdb 、 ABC后端.mdb(有数据库密码:“test”)
ABC前端.mdb 所有表链接自 ABC后端.mdb
请指教,有什么简便方法,使得 ABC前端.mdb 打开时不需要回答 ABC后端.mdb 密码?
竹笛师傅曾提供过一个链接是有例子的,但主要内容是链接一个有密码的后端的其中一个表,语句也太深了! 参考如下:
作者: 朱亦文
function lj()
dim catdb as adox.catalog
dim tbllink as adox.table
set catdb = new adox.catalog
catdb.activeconnection = currentproject.connection
set tbllink = new adox.table ' 建立一个新的表对象
with tbllink
.name = "订单" ' 链接表名称
set .parentcatalog = catdb
.properties("jet oledb:create link") = true
.properties("jet oledb:link datasource") = _
"c:\program files\zhanyexing\123.mdb"
.properties("jet oledb:link provider string") = _
"ms access;pwd=123;" ' 提供者及密码
.properties("jet oledb:remote table name") = "订单" ' 原数据库中的表
end with
catdb.tables.append tbllink ' 添加到库中
set tbllink = nothing
end function
请大家帮忙, 我只想有什么简便方法,使得 ABC前端.mdb 打开时不需要回答 ABC后端.mdb 密码?同时使得前端已链接了后端的所有表. 谢谢!
|
|