单击按钮以显示Ms Access数据库中的下一条记录

时间:2013-10-06 18:53:16

标签: vb.net database-connection nullreferenceexception ms-access-2003

我在访问的dsatabase中有记录,该表称为“添加表单”。我在vb中创建了一个表单,我希望通过表中的记录删除选定的记录,以显示在相应的文本框中,然后用户单击删除以删除记录,然后单击下一步\上一步导航到另一条记录。我的代码为下一步按钮:

If inc <> MaxRows - 1 Then
    inc = MaxRows - 1
    NavigateRecords()
ElseIf inc = -1 Then
    MsgBox("This is the first record")
End If

导航功能在这里:

Private Sub NavigateRecords()
    Student_IDTextBox.Text = ds.Tables("Add Form").Rows(inc).Item(0)
    Student_NameTextBox.Text = ds.Tables("Add Form").Rows(inc).Item(1)
    Date_of_BirthDateTimePicker.Text = ds.Tables("Add Form").Rows(inc).Item(2)
    AddressTextBox.Text = ds.Tables("Add Form").Rows(inc).Item(3)
    E_mailTextBox.Text = ds.Tables("Add Form").Rows(inc).Item(4)
    AllergiesTextBox.Text = ds.Tables("Add Form").Rows(inc).Item(5)
    Emergency_Contact_NumberTextBox.Text = ds.Tables("Add Form").Rows(inc).Item(6)
End Sub

但它给了我这个错误:

Object reference not set to an instance of an object.

表示导航子目录下的第一行代码。

请你帮我编程按钮转到数据库中的下一条记录。

0 个答案:

没有答案