如何修复我在VB.net中连接到Access的搜索代码?

如何修复我在VB.net中连接到Access的搜索代码?,vb.net,listview,ms-access,listviewitem,Vb.net,Listview,Ms Access,Listviewitem,与Access数据库连接的“搜索”代码有问题。我正在使用Visual Basic。这很难,我需要它来防守 Private Sub btn_search_Click(sender As Object, e As EventArgs) Handles Dim connstring As String = "Provider=Microsoft.ACE.OLEDB.12.0;DataSource=C:\Users\Leonel EJ Jet JM\Documents\Visual Studio

与Access数据库连接的“搜索”代码有问题。我正在使用Visual Basic。这很难,我需要它来防守

Private Sub btn_search_Click(sender As Object, e As EventArgs) Handles
    Dim connstring As String = "Provider=Microsoft.ACE.OLEDB.12.0;DataSource=C:\Users\Leonel EJ Jet JM\Documents\Visual Studio 2013\Projects\DatabaseLeJM\DatabaseLEJm.accdb"
    Dim sqlcmd As String = "SELECT fld_stud_id, fld_fullname, fld_address, fld_birthday, fld_school from tbl_studentdata WHERE fld_stud_id = '" & txt_bsearch.Text & "'"
    Dim sql As New OleDb.OleDbCommand(sqlcmd)
    sql.Connection = New OleDb.OleDbConnection(connstring)
    sql.Connection.Open()
    sql.ExecuteNonQuery()

    Dim DA As New OleDb.OleDbDataAdapter(sql)
    Dim DS As New DataSet
    DA.Fill(DS, "logictable")
    If DS.Tables("logictable").Rows.Count > 0 Then
        Dim itemcollection(100) As String
        For r = 0 To DS.Tables("logictable").Rows.Count - 1
            For c = 0 To DS.Tables("logictable").Columns.Count - 1
                itemcollection(c) = DS.Tables("logictable").Rows(r)(c).ToString
            Next
            Dim LVI As New ListViewItem(itemcollection)
            lv_data.Items.Add(LVI)
        Next
    End If
    sql.Connection.Close()


End Sub


错误消息非常清楚:您错过了
txt\u stud\u id.Text
的值


因此,在继续之前,请调试您的代码以确保此文本框具有值。

您是否可以编辑此问题以:(a)删除图像并将其替换为要显示的文本,例如错误消息的文本,以及(b)解释什么是防御?另外,请(c)解释您认为错误可能在哪里,以及(d)以何种方式可以看到错误?目前,我们不知道你的代码打算做什么(我对文本做了一些改进,添加了段落,删除了所有的大写字母和紧急要求,并在下一个问题中进行了向下表决,以提醒你这一点)。