Ich fülle ein Combobox mit der Liste der Länder (im Beispiel pkey). Beim anwählen des Landes möchte ich das die Spielerliste des Landes erscheint.
Dies klappt auch solange ich dies mit dem pkey mache, möchte aber das der Name erscheint und der pkey abgeglichen wird.
Kann ich pkey + laendername in der combobox anzeigen lassen?
Wie muss ich es gestalten, damit vb nach der wahl des Landes wieder den pkey verwendet und nicht den Landesnamen?
Oder habt ihr andere Ansätze?
Bin sehr dankbar für euren Rat
Hier mein Code:
Dies klappt auch solange ich dies mit dem pkey mache, möchte aber das der Name erscheint und der pkey abgeglichen wird.
Kann ich pkey + laendername in der combobox anzeigen lassen?
Wie muss ich es gestalten, damit vb nach der wahl des Landes wieder den pkey verwendet und nicht den Landesnamen?
Oder habt ihr andere Ansätze?
Bin sehr dankbar für euren Rat
Hier mein Code:
Code:
Option Explicit On
Imports system.Data.OleDb
Public Class form1
'Boolean abrage ob form_load ereignis stattfindet - verhindert füllen der combobox beim starten
Public formladen As Boolean
'BENÖTIGTE OBJEKTE FÜR DATENBANKZUGRIFF
Public dbconn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Dokumente und Einstellungen\phil\Eigene Dateien\Visual Studio 2005\Projects\Kopie von WM-Game\WM-Game\WMSpiel.mdb")
Public dbadapter As New OleDbDataAdapter
Public dataset As New Data.DataSet
Public dataview As Data.DataView
Private Sub formtest4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
formladen = True
dbconn.Open()
dbadapter = New OleDbDataAdapter("select * from land", dbconn)
dataset = New Data.DataSet
dbadapter.Fill(dataset, "ländle")
dbconn.Close()
ComboBox1.DataSource = dataset.Tables("ländle")
ComboBox1.DisplayMember = ("pkey") 'sollte land anzeigen und zugehörigen key zeigen/"speichern"
formladen = False
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If formladen = False Then
Dim auswahl As String
auswahl = ComboBox1.Text
Dim dbadapter As New OleDbDataAdapter
Dim dataset As New Data.DataSet
dbconn.Open()
dbadapter = New OleDbDataAdapter(("SELECT name FROM WMSPIELER WHERE fland=" & auswahl), dbconn)
dataset = New Data.DataSet
dbadapter.Fill(dataset, "wmspieler")
dbconn.Close()
ListBox1.DataSource = dataset.Tables("wmspieler")
ListBox1.DisplayMember = ("name")
End If
End Sub
End Class