an die vb'ler unter euch:

ich hab mir eine kleine "suche" programmiert, die mir wenn ich ins textfeld a eingebe alle namen/nachnamen mit a ausgeben soll, tuts aber nicht
hier der code:

   Spoiler

Quellcode

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

Public Class suchen Private Sub suchen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load lstAusgabe.Items.Clear() End Sub Private Sub cmdAbbrechen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAbbrechen.Click Me.Close() End Sub Private Sub cmdSuchen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSuchen.Click Dim suchbegriff As String suchbegriff = txtSuchfeld.Text Dim con As New Odbc.OdbcConnection Dim cmd As New Odbc.OdbcCommand Dim reader As Odbc.OdbcDataReader con.ConnectionString = "Provider=MSDASQL;Driver={MySQL ODBC 3.51 Driver};Server=127.0.0.1;Uid=root;Database=adressbuch;" cmd.Connection = con cmd.CommandText = "SELECT * FROM adressbuch WHERE `Name` LIKE '%" & suchbegriff & "%' AND `Nachname` LIKE '%" & suchbegriff & "%'" If suchbegriff = "" Then MessageBox.Show("Ein Suchbegriff muss eingegeben werden!", "Fehler!", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1) Else Try con.Open() reader = cmd.ExecuteReader() lstAusgabe.Items.Clear() Do While reader.Read() lstAusgabe.Items.Add(reader("Name") & " " & reader("Nachname")) '<<<<<<<<<<<<< ????? Loop reader.Close() con.Close() Catch ex As Exception MsgBox(ex.Message) End Try End If End Sub End Class

das zeigt mir immer nur manche strings mit einem a an, nicht alle, manchmal sogar gar keine.

warum geht das so nicht?

funktioniert sehr gut vielen dank