What is wrong here
Posted: Wed Dec 14, 2011 10:56 pm
Code: Select all
Getting this errorPrivate Sub searchbox_TextChanged(sender As System.Object, e As System.EventArgs) Handles searchbox.TextChanged
If searchby.Text = "Username" Then
searchstr = "SELECT accountinfo.fname, accountinfo.lname, accounts.EMail " & _
"FROM accountinfo WHERE Username like '%" & searchbox.Text & "%'"
ElseIf searchby.Text = "Email" Then
searchstr = "SELECT * FROM accounts WHERE EMail like '%" & searchbox.Text & "%'"
ElseIf searchby.Text = "Last Name" Then
searchstr = "SELECT * FROM accountinfo WHERE lname like '%" & searchbox.Text & "%'"
ElseIf searchby.Text = "Phone" Then
searchstr = "SELECT * FROM accountinfo WHERE phone like '%" & searchbox.Text & "%'"
End If
Dim fname, lname, EMail
CONNECTION.Open()
cmd = New MySqlCommand(searchstr, CONNECTION)
dr = cmd.ExecuteReader()
ListView1.Items.Clear()
Do While dr.Read()
fname = (dr.Item("fname").ToString())
lname = (dr.Item("lname").ToString())
EMail = (dr.Item("EMail").ToString())
Dim lv As ListViewItem = ListView1.Items.Add(fname)
lv.SubItems.Add(lname)
lv.SubItems.Add(EMail)
Loop
dr.Close()
CONNECTION.Close()
cmd.Dispose()
End Sub
mysql tables are accounts and accountinfo
accounts as the EMail in it
and accountinfo as fname and lname