Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Daten aus SQL Abfrage in DBcombo schreiben
Autor: Prian0815
Datum: 25.01.06 13:04
Hi RFrank, Ich hab das so gemacht: ' Kombinationsfeld "cboMitarbeiter" initialisieren i = 0 Do Until i > cboMitarbeiter.ListCount - 1 cboMitarbeiter.RemoveItem (i) i = i + 1 Loop cboMitarbeiter.Requery stSQL = "SELECT Mitarbeiter.MitKey, Mitarbeiter.MitPersonalnummer, Mitarbeiter.MitName," _ & " Mitarbeiter.MitVorname, Mitarbeiter.MitStandortNr, Standort.StaStandort," _ & " Mitarbeiter.MitAbteilungNr, Abteilung.AbtAbteilung, Mitarbeiter.MitKostenstelleNr," _ & " Kostenstellen.KosKostenstelle" _ & " FROM Abteilung INNER JOIN (Standort INNER JOIN (Kostenstellen INNER JOIN Mitarbeiter " _ & "ON Kostenstellen.KosKey = Mitarbeiter.MitKostenstelleNr) " _ & "ON Standort.StaKey = Mitarbeiter.MitStandortNr) " _ & "ON Abteilung.AbtKey = Mitarbeiter.MitAbteilungNr" _ & " ORDER BY Mitarbeiter.MitName;" Set RS = New ADODB.Recordset RS.Open stSQL, con, adOpenStatic, adLockOptimistic RS.MoveFirst Do While RS.EOF = False hItem = RS!MitKey & ";" & RS!MitPersonalnummer & ";" & RS!MitName & ";" & RS!MitVorname & ";" _ & RS!MitStandortNr & ";" & RS!StaStandort & ";" & RS!MitAbteilungNr & ";" & RS!AbtAbteilung & ";" _ & RS!MitKostenstelleNr & ";" & RS!KosKostenstelle Me!cboMitarbeiter.AddItem Item:=hItem RS.MoveNext Loop RS.Close Set RS = Nothing Gruß Armin P.S.: always look on the bright side of Life!

Daten aus SQL Abfrage in DBcombo schreiben	1.108	schweigi	24.01.06 14:54
Re: Daten aus SQL Abfrage in DBcombo schreiben	505	Prian0815	25.01.06 13:04
Danke für das Besispiel	478	schweigi	27.01.06 08:06

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen