Question

这是我在vb.net中使用Access数据库的代码。每当我单击表单上的按钮时，我总是遇到此错误

Public con As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=payroll_DB.mdb"
Public dbconnector As New OleDbConnection

Dim gender As String
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
Private Sub savebtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles savebtn.Click
    Dim savebtn As String
    Dim cmdsavebtn As New OleDbCommand


    savebtn = "INSERT INTO employee_info ([emp_fname],[emp_midname],[emp_lname],[emp_gender],[emp_birthday],[emp_address],[emp_age],[emp_contact_number],[emp_status],[emp_citizenship],[emp_position],[emp_height],[emp_weight]) values (?,?,?,?,?,?,?,?,?,?,?,?,?)"
    cmdsavebtn = New OleDbCommand(savebtn, dbconnector)
    cmdsavebtn.Parameters.Add(New OleDbParameter("emp_fname", CType(fnametxt.Text, String)))
    cmdsavebtn.Parameters.Add(New OleDbParameter("emp_midname", CType(midnametxt.Text, String)))
    cmdsavebtn.Parameters.Add(New OleDbParameter("emp_lname", CType(lnametxt.Text, String)))
    cmdsavebtn.Parameters.Add(New OleDbParameter("emp_gender", CType(gender, String)))
    cmdsavebtn.Parameters.Add(New OleDbParameter("emp_birthday", CType(DateTime.Parse,(bdaypicker.Value))
    cmdsavebtn.Parameters.Add(New OleDbParameter("emp_address", CType(addresstxt.Text, String)))
    cmdsavebtn.Parameters.Add(New OleDbParameter("emp_age", CType(agetxt.Text, String)))
    cmdsavebtn.Parameters.Add(New OleDbParameter("emp_contact_number", CType(contacttxt.Text, String)))
    cmdsavebtn.Parameters.Add(New OleDbParameter("emp_status", CType(statuscbx.SelectedText, String)))
    cmdsavebtn.Parameters.Add(New OleDbParameter("emp_citizenship", CType(citizenshiptxt.Text, String)))
    cmdsavebtn.Parameters.Add(New OleDbParameter("emp_position", CType(positioncbx.SelectedText, String)))
    cmdsavebtn.Parameters.Add(New OleDbParameter("emp_height", CType(heighttxt.Text, String)))
    cmdsavebtn.Parameters.Add(New OleDbParameter("emp_weight", CType(weighttxt.Text, String)))

    Try
        cmdsavebtn.ExecuteNonQuery()
        cmdsavebtn.Dispose()
        MsgBox("Record Saved")
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try

如何解决此错误？ 请帮助

ConnectionString属性尚未初始化

0 个答案: