Combobox aus DB auslesen

  • VB6

    Combobox mit DB-Werten füllen

    Hallo,

    ich habe (vereinfacht gesehen) folgende Tabellen in einer Access 2000 mdb:


    tab_Mitarbeiter
    ---------------------
    ID
    Name
    Vorname
    Abteilung (Zahlenwert)



    tab_Abteilung
    ---------------------
    ID
    Abteilungsname


    Ich habe jetzt folgende Recordsets angelegt:

    rsMitarbeiter = "
    SELECT * FROM tab_Mitarbeiter, tab_Abteilung
    WHERE tab_Mitarbeiter.Abteilung = tab_Abteilung.ID"

    rsAbteilung = "SELECT * FROM tab_Abteilung"

    (tab_Mitarbeiter.Abteilung und tab_Abteilung.ID sind auch in Access miteinander verknüpft)

    Mit dem rsMitarbeiter fülle ich jetzt ein Mitarbeiter-Formular und mit rsAbteilung eine Data-Combobox:

    Visual Basic-Quellcode

    1. Set dcombo.RowSource = RsAbteilung
    2. dcombo.ListField = "Abteilung"


    Ein Problem bekomme ich jetzt, wenn ich in der Combobox, die dem Mitarbeiter zugeordnete Abteilung anzeigen lassen möchte:

    Visual Basic-Quellcode

    1. If Not IsNull(Rs.Fields("Abteilung").Value) Then dcombo.Text = Rs.Fields("Abteilung").Value


    Weil ich Rs.Fields("Abteilung").Value so nicht auslesen kann. Wenn ich aber in Access die SQL-Anweisung meines Mitarbeiter-Recordsets eingebe, funktioniert es. Kann mir da jemand weiterhelfen?

    Danke für jeden Hinweis,

    Andi

    Umgebung:
    Visual Basic 6.0
    Access 2000
    Windows XP

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „andi25“ ()