Zoeken in database

[johnny1963]

Ik heb op form1 een listview Waar ik al mijn data in zie die ik ingevoerd heb
Alles werkt tot nu alleen wil ik een zoek funtie maken wat me maar niet lukt heb de volgende code die geeft de volgende foutmelding:
Invalid columnname.

Ik wil namelijk tekst zoeken in dit geval een voornaam in de kolom Voornaam
Met behulp van een tektbox En deze weer weergeven in de listview.


Private Sub Button1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp
If e.Button = Windows.Forms.MouseButtons.Left Then


Form1.ListView1.Items.Clear()

Dim myCon As SqlClient.SqlConnection

Dim sqlCmd As SqlClient.SqlCommand = New SqlClient.SqlCommand("SELECT [Id],[Voornaam], [achternaam], [straat], [postcode], [Plaats], [land], [GeboorteDatum], [GeboortePlaats], [GeboorteLand], [Opmerkingen] FROM Persoon where [Voornaam] like " & TextBox1.Text & "")

Dim myData As SqlClient.SqlDataReader
Dim lvhHelper As listviewdata = New listviewdata()

myCon = New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database1.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")

Try
'Open connection
myCon.Open()
sqlCmd.Connection = myCon
myData = sqlCmd.ExecuteReader
lvhHelper.FillListView(Form1.ListView1, myData)

myCon.Close()
Catch eSql As System.Data.SqlClient.SqlException
MessageBox.Show(eSql.ToString)
End Try

If Form1.ListView1.Items.Count > 0 Then
Form1.ListView1.Items(0).Selected = True
Form1.ListView1.Select()
End If
End If
Me.Close()

End Sub

Alvast bedankt voor de hulp

 

[johnny1963]

Oplossing zelf gemaakt werkt

If e.Button = Windows.Forms.MouseButtons.Left Then

Form1.ListView1.Items.Clear()

'end now read your data from your data table
Dim myCon As SqlClient.SqlConnection
Dim sqlCmd As SqlClient.SqlCommand = New SqlClient.SqlCommand("SELECT [Id],[Voornaam], [achternaam], [straat], [postcode], [Plaats], [land], [GeboorteDatum], [GeboortePlaats], [GeboorteLand], [Opmerkingen] FROM Persoon where [Voornaam] like '%' + @Voornaam + '%'")
'if you want select specific columns then write ("Select [firstname], [Lastname] From Table1")
sqlCmd.Parameters.Add(New SqlClient.SqlParameter("@Voornaam", TextBox1.Text))

Dim myData As SqlClient.SqlDataReader
Dim lvhHelper As listviewdata = New listviewdata()

myCon = New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database1.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")

Try
'Open connection
myCon.Open()
sqlCmd.Connection = myCon
myData = sqlCmd.ExecuteReader
lvhHelper.FillListView(Form1.ListView1, myData)

myCon.Close()
Catch eSql As System.Data.SqlClient.SqlException
MessageBox.Show(eSql.ToString)
End Try

If Form1.ListView1.Items.Count > 0 Then
Form1.ListView1.Items(0).Selected = True
Form1.ListView1.Select()
End If
End If
Me.Close()