Hallo fichz,
ich hoffe das du noch online bist.
Ich versuche in Form 2 in ein ListBox nur die Bücher mir anzeigen zu lassen die den Titel enthalten.
Hier mein Code für dir Form 2:
Der ListBox zeigt mir aber immer alle Bücher an, ich komme momentan nicht weiter,
kannst du mir, der mein Vorhaben schon kennt, weiter helfen, oder sonst jemandem der online ist??
lg
toto
ich hoffe das du noch online bist.
Ich versuche in Form 2 in ein ListBox nur die Bücher mir anzeigen zu lassen die den Titel enthalten.
Hier mein Code für dir Form 2:
VB.NET-Quellcode
- Public Class Form2
- Private Sub ListBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.GotFocus
- Dim con As New OleDb.OleDbConnection
- Dim cmd As New OleDb.OleDbCommand
- Dim reader As OleDb.OleDbDataReader
- TextBox1.Text = Form1.ComboBox1.Text
- con.ConnectionString = _
- "Provider=Microsoft.Jet.OLEDB.4.0;" & _
- "Data Source=C:\Dokumente und Einstellungen\user\Eigene Dateien\Visual Express 2008\Projects\JAZZ Archiv\DATENBANK_BE.mdb"
- cmd.Connection = con
- cmd.CommandText = _
- "Select tblBuch.Buch_ID, tblBuch.Buch, tblSong_HptF.Song_ID, tblSong_HptF.Song FROM tblBuch INNER JOIN tblSong_HptF ON tblBuch.Buch_ID like tblSong_HptF.Buch_ID_SF WHERE (tblSong_HptF.Song) like (Song)"
- Try
- con.Open()
- reader = cmd.ExecuteReader()
- ListBox1.Items.Clear()
- Do While reader.Read()
- ' ListBox1.Items.Add( _
- 'reader("Buch"))
- If ListBox1.Items.Contains(reader("Buch")) = False Then 'Doppelte Einträge verhindern
- ListBox1.Items.Add(reader("Buch"))
- End If
- Loop
- reader.Close()
- con.Close()
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End Sub
Der ListBox zeigt mir aber immer alle Bücher an, ich komme momentan nicht weiter,
kannst du mir, der mein Vorhaben schon kennt, weiter helfen, oder sonst jemandem der online ist??
lg
toto
lg toto