| File = "\\server\share\file.mdb"
Set Conn = CreateObject("DAO.DBEngine.35").Workspaces(0).OpenDatabase(File,,ReadOnly)
Set RS = Conn.OpenRecordset(SQL) |
方式b. ADO + Jet OLE DB provider方式
| Dim Conn, RS
Set Conn = CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.Open "\\server\share\file.mdb"
Set RS = Conn.Execute(SQL) |
确定在运行ASP页面时有足够的访问权限以访问远程计算机上的MDB文件，在访问MDB文件前需要先 登录到远程计算机，添加下面的代码
| Set UM = CreateObject("UserManager.Server")
UM.LogonUser "帐号", "口令", "域"
...
open database
...
UM.RevertToSelf |
|
