vb.net - ACE.OLEDB.12.O 连接未打开

Question

Imports System.Data.OleDb

Public Class Form1
    Dim Dutycon As OleDbConnection
    Dim DutyAdo As OleDbDataAdapter
    Dim DutyCmd As OleDbCommandBuilder
    Dim DutyI As New Integer
    Dim DutyTab As New DataTable
    Dim DutyRow As DataRow

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Duty_EmployeeTableAdapter.Fill(Me._Duty_DatabaseDataSet1.Duty_Employee)
        Dutycon = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Datasource=Duty-Database.accdb; Presist security info=false;")
        DutyAdo = New OleDbDataAdapter("Select * from Duty_Employee", Dutycon)
        DutyCmd = New OleDbCommandBuilder(DutyAdo)

        Try
            Dutycon.Open()
            MsgBox("Database opened")
        Catch ex As Exception
            MsgBox("Database Not connected -- -.. " + ex.Message)
        End Try
        DutyAdo.Fill(DutyTab)
        DataGridView1.DataSource = DutyTab
    End Sub

    Private Sub Duty_EmployeeBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Duty_EmployeeBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.Duty_EmployeeBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me._Duty_DatabaseDataSet1)
    End Sub

    Private Sub Cmd_Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd_Add.Click
        Dutycon.Open()

        DutyRow = DutyTab.NewRow
        DutyRow("Emp_No") = TextBox1.Text
        DutyRow("Emp_Name") = TextBox2.Text
        DutyRow("Emp_salary") = TextBox3.Text
        DutyTab.Rows.Add(DutyRow)
        DutyAdo.Update(DutyTab)

        MsgBox("New Record added", MsgBoxStyle.Information, "Record Stored")

        Dutycon.Close()
    End Sub
End Class

连接（）无法打开

找不到可安装的 ISAM

我有 Ms-Office 2007 (Access) 并通过“ACE.OLEDB.12.0”连接到 VB.net

标签： vb.netado.net