如何修复我在VB.net中连接到Access的搜索代码?
与Access数据库连接的“搜索”代码有问题。我正在使用Visual Basic。这很难,我需要它来防守如何修复我在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
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)以何种方式可以看到错误?目前,我们不知道你的代码打算做什么(我对文本做了一些改进,添加了段落,删除了所有的大写字母和紧急要求,并在下一个问题中进行了向下表决,以提醒你这一点)。