服务器名apple,用户:Administrator,密码:d
共享文件夹b,数据库c.mdb
数据库用户名admin,密码:dconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\apple\b\c.mdb;Jet OLEDB:Database Password=d"这样打开数据库就会出现对话框,要求输入用户名Administrator和密码d.如何在程序里把这个对话框去掉呢?
共享文件夹b,数据库c.mdb
数据库用户名admin,密码:dconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\apple\b\c.mdb;Jet OLEDB:Database Password=d"这样打开数据库就会出现对话框,要求输入用户名Administrator和密码d.如何在程序里把这个对话框去掉呢?
Set conTest = New ADODB.Connection
Dim strCon As String
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\integc3\TestServer\SARReport.mdb" _
& ";Persist Security Info=False"
conTest.Open strCon
Dim rstTest As ADODB.Recordset
Set rstTest = New ADODB.Recordset
rstTest.CursorLocation = adUseClient
rstTest.Open "select * from TUcDesigner", conTest
If Not rstTest.RecordCount <= 0 Then
rstTest.MoveFirst
Debug.Print rstTest!fusecase
Debug.Print rstTest!fdesigner
End If
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\apple\b\c.mdb;Persist Security Info=False
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\apple\b\c.mdb;Jet OLEDB:Database Password=d"
前面加一句:
shell "net use \\apple\ipc$ d /user:administrator"
就可以了。