在 VB.NET 中设置数据源

Question

Dim inc As Integer
Dim MaxRows As Integer
Dim con As New OleDb.OleDbConnection
Dim dbProvider As String
Dim dbSource As String
Dim dA As OleDb.OleDbDataAdapter
Dim dS As New DataSet
Dim SQL As String

Private Sub AbrirToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbrirToolStripMenuItem.Click
    Dim strFileName As String
    Dim ClikedOk As Integer

    OpenFD.InitialDirectory = "C:\"
    OpenFD.Title = "Ubica la base de datos"
    OpenFD.Filter = "Agenda|Agenda.mdb"
    OpenFD.ShowDialog()

    If ClikedOk = DialogResult.OK Then
        strFileName = OpenFD.FileName
        dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
        dbSource = "Data Source = Agenda.mdb"

        con.ConnectionString = dbProvider & dbSource
        con.Open()
        SQL = "SELECT * FROM Contactos"
        dA = New OleDb.OleDbDataAdapter(SQL, con)
        dA.Fill(dS, "Agenda")

        con.Close()
        MaxRows = dS.Tables("Agenda").Rows.Count
        inc = -1

    End If
End Sub

我想做的是：
用户应按菜单项并选择数据库文件，然后数据源将被定向到用户指向数据库文件的位置。 我应该在“dbSource = Data Source = ...”行中输入什么？访问数据库是 .mdb，因为我在使用 .accdb 时遇到了麻烦

Answer 1

改变这一行：

dbSource = "Data Source = Agenda.mdb"

到这里：

dbSource = "Data Source=""" & OpenFD.FileName & """"

这会将Data Source 指向用户选择的文件。

Answer 2

你在那儿有点麻烦。 Jet drivers are 32 bit and need to be updated if you want to use jet to access databases in 64 bit windows。

您还可以将应用配置为在 WoW64 模式下运行以使用 32 位驱动程序。

如果你已经做了一些让喷气机工作的事情，那么你可以这样做：

dbSource = "Data Source=" & OpenFD.FileName;

如果您不想跳过让 Jet 工作的麻烦，then you can use the .Net libraries to connect 通过更改：

dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
dbSource = "Data Source = Agenda.mdb"

到

dbProvider = "Driver={Microsoft Access Driver (*.mdb)};"
dbSource = "Dbq=" & "Agenda.mdb;"

祝你好运。