Immer wieder taucht die Frage auf, wie man den Inhalt eines Recordsets zur Auswahl in einer ComboBox anzeigen kann. Die einzelnen Datensätze haben hierbei eine eindeutige ID, mit der man später auch weiterarbeiten muss. In der ComboBox soll jedoch anstelle der ID ein aussagekräftigeres Datenbank feld zur Auswahl angezeigt werden. Beispiel: Lösung: ' ComboBox mit Recordset-Daten füllen ' und ID in der ItemData-Eigenschaft speichern With Combo1 oRs.MoveFirst Do While Not oRs.EOF .AddItem oRs("Name") .ItemData(.NewIndex) = oRs("id") oRs.MoveNext Loop End With ' nach Auswahl eines Eintrags, wird die ID des ' Mitarbeiters zur weiteren Verarbeitung benötigt Dim nID As Long With Combo1 If .ListIndex > -1 Then nID = .ItemData(.ListIndex) ... End If End With Dieser Tipp wurde bereits 16.757 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
sevAniGif (VB/VBA) Anzeigen von animierten GIF-Dateien Ab sofort lassen sich auch unter VB6 und VBA (Access ab Version 2000) animierte GIF-Grafiken anzeigen und abspielen, die entweder lokal auf dem System oder auf einem Webserver gespeichert sind. Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |