【发布时间】:2018-07-03 13:01:44
【问题描述】:
这是我的代码,不确定它有什么问题。我已经检查了数据库中的所有内容都拼写正确。我得到了这个确切的错误:
“System.Data.OleDb.OleDbException”类型的未处理异常 发生在 System.Data.dll
附加信息:没有给出一个或多个必填项的值 参数。
Private Sub SearchSurname(Secondname As String)
If DbConnect() Then
lstCustomers_Customerform.Items.Clear()
Dim SQLCmd As New OleDbCommand
With SQLCmd
.Connection = cn
.CommandText = "Select * From [Tbl_Customer] Where [Secondname] Like @SurnameSearch"
.Parameters.AddWithValue("@SurnameSearch", "%" & txtLastname_Search.Text & "%")
Dim rs As OleDbDataReader = .ExecuteReader
While rs.Read
Dim DisplayValue As String = rs("[Firstname]") & " " & rs("[Secondname]") & " (" & rs("[DOB]") & ")"
Dim CustItem As New Listboxdata(DisplayValue, rs("[CustomerID]"))
lstCustomers_Customerform.Items.Add(CustItem)
End While
rs.Close()
If lstCustomers_Customerform.Items.Count > 1 Then
'Show list
PanSearchList.Visible = True
Else
PanSearchList.Visible = False
End If
End With
End If
End Sub
【问题讨论】:
-
我投了赞成票,因为您使用的是
Parameters,这让我很高兴
标签: vb.net