Listenfeld/Kombobox mit Daten füllen

Computer: Software & Programmierung Visual Basic
1

Hi x-perts

wie schaffe ich es, auf einem Formular ein Listenfeld (alternativ auch Kombobox) mit Daten aus einer bestimmten Tabelle zu füllen (Tabelle besteht aus
meheren Spalten, die erste Spalte soll nur angezeigt werden, zusätzlich möchte ich natürlich den selektierten Wert weiterverarbeiten (am besten soll der
Wert in einer Variablen gespeichert werden) ???

tanks

mikey

2

entweder du verwendest die datacombo mit datasource oder eine normale mit for-to oder ähnlichem konstrukt.

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

3 
dim db as database, rs as recordset
'
set db=opendatabase("pfad/dbname.mdb")
set rs=db.createquerydef("","SELECT feldname FROM tabellename;").openrecordset
'
with rs
 .movefirst
 while not .eof
 if not isnull(rs.fields("feldname").value then
 combo1.additem rs.fields("feldname").value
 'oder
 list1.additem rs!feldname
 end if
 rs.movenext
 wend
end with

nicht vergessen unter Project->References die Microsoft Data Objects (DAO) 3.x aktivieren!

holli