访问数据库，用户级别的保护和vb.net

Question

Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Users\itweb\Documents\Visual Studio 2010\WebSites\notitiae\databases\notitiae.accdb" 
    Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString) 

    Dim queryString As String = "SELECT [tblCounties].* FROM [tblCounties]" 
    Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand 
    dbCommand.CommandText = queryString 
    dbCommand.Connection = dbConnection 

    Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter 
    dataAdapter.SelectCommand = dbCommand 
    Dim DSCounties As System.Data.DataSet = New System.Data.DataSet 
    dataAdapter.Fill(DSCounties) 

好的。所以我使用上面的代码连接到访问2007年数据库。现在我必须添加一个链接表，指向具有用户级别保护的数据库。研究已经向我展示了如何向连接字符串添加用户名和密码。 Dim connectionString As String =“Provider = Microsoft.ACE.OLEDB.12.0; Data Source = C：\ Users \ itweb \ Documents \ Visual Studio 2010 \ WebSites \ notitiae \ databases \ notitiae.accdb; user name = user; password = PWD;”

我还了解到我需要添加对工作组文件“V：\ DATABASE \ WORKDIR \ diodb.mdw”的引用。我的问题是，在线引用工作组文件的所有信息都使用ADODB连接，而不是使用我的OleDb连接，而使用jet 4而不使用ACE 12.添加工作组文件的语法是什么？我试图添加一个ADODB对象到我的Visual Studio项目，但VS不会添加ActiveX Data Objects 2.5的引用。这就是我使用OleDB的原因。

Answer 1

Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=C:\Users\itweb\Documents\Visual Studio 2012\Projects\Notitiae_project\Notitiae_project\App_Data\notitiae.accdb;" & "Jet OLEDB:System Database=V:\DATABASE\WORKDIR\diodb.mdw;" & "User ID=ITWeb;" & "Password=Mike1;" 
    Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString) 
    Dim queryString As String = "SELECT [tblCounties].* FROM [tblCounties]" 
    Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand 
    dbCommand.CommandText = queryString 
    dbCommand.Connection = dbConnection 

    Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter 
    dataAdapter.SelectCommand = dbCommand 
    Dim DSCounties As System.Data.DataSet = New System.Data.DataSet 
    dataAdapter.Fill(DSCounties) 

Answer 2

以下Excel VBA代码有效，证明ACE.OLEDB仍然可以打开具有用户级安全性的.mdb文件。请注意，.mdw文件的属性仍使用Jet OLEDB:前缀。

Sub ulsTest() 
Dim con As ADODB.Connection, rst As ADODB.Recordset 
Set con = New ADODB.Connection 
con.Open _ 
     "Provider=Microsoft.ACE.OLEDB.12.0;" & _ 
     "Data Source=C:\Users\Public\ulsTest\ulsTest.mdb;" & _ 
     "Jet OLEDB:System Database=C:\Users\Public\ulsTest\Security.mdw;" & _ 
     "User ID=Gord;" & _ 
     "Password=obfuscated;" 
Set rst = New ADODB.Recordset 
rst.Open "SELECT * FROM ulsTable", con 
Debug.Print rst(0).Value 
rst.Close 
Set rst = Nothing 
con.Close 
Set con = Nothing 
End Sub