DevTrain Forum - Arbeiten mit Access Datenbank Zugriff

Forum: VB.NET | Thema: Arbeiten mit Access Datenbank Zugriff | Von: G. Guest ( 28.06.2005 13:07)

		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?
Was gibt es für andere Ansätze?

Bin sehr dankbar für euren Rat

Hier mein 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

Betreff Von Datum

Re: Arbeiten mit Access Datenbank Zugriff

Setze in Dein SQL String <br><br>SELECT *, [ID] + ' ' + [landname] as IDLand FROM land<br><br>=> dann erhälst Du eine zusätzliche Spalte (klappt so bei MSSQL, bei anderen muss u.U. ein CAT o.ä. verwendet...

Torsten Arlt 29.06.2005 08:33

Antworten Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!