combobox spalten befuellen

Forumthread: combobox spalten befuellen

24.01.2004 17:40:01

Gorginio

Hi,
Ich moechte eine Combobox mit 3 Spalten fuellen.
Normalerweise wuerde ich es folgenderweise machen:
With ListBox1
.ColumnHeads = True
.ColumnCount = 3
.RowSource = "a2:c99"
End With
Jedoch ist meine Source kein Tabellenblatt sondern kommt aus einer DB, die ich mit recordset abrufe (ADO).
also habe ich
.additem tabelle.nnachname,vorname,ID FROM tabelle ORDER BY nnachname
Wie schaffe ich es nun die combobox zu befuellen.
Danke fuer eure Hilfe....
Gorginio

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: combobox spalten befuellen

24.01.2004 18:48:12

Dieter Klemke
AW: combobox spalten befuellen

24.01.2004 19:13:08

Gorginio
AW: combobox spalten befuellen

24.01.2004 19:54:06

K.Rola
AW: combobox spalten befuellen

24.01.2004 21:02:58

Dieter Klemke

AW: combobox spalten befuellen

24.01.2004 18:48:12

Dieter Klemke

Hallo Gorginio,
du kannst das z.B. so machen:
If Not (rs.BOF And rs.EOF) Then
' Recordset ist nicht leer
rs.MoveFirst
Do Until rs.EOF
cboBeispiel.AddItem rs(0)
li = cboBeispiel.ListCount - 1
cboBeispiel.List(li, 1) = rs(1)
cboBeispiel.List(li, 2) = rs(2)
rs.MoveNext
Loop
End If
MfG
Dieter

AW: combobox spalten befuellen

24.01.2004 19:13:08

Gorginio

Hallo,
nein so geht kriege ich es nicht hin:
Ich habe hier meinen recordset, der mittels ado aufgerufen wird und anschliessend alles in die Combobox schreibt.
Do While Not rstActivity.EOF
With cboEdit
.ColumnCount = 3
.BoundColumn = 1
.AddItem rstActivity.Fields("Nachname")
.AddItem rstActivity.Fields("Vorname")
.AddItem rstActivity.Fields("ID")
End With

rstDActivity.MoveNext
Loop
Nach meiner Methode bekomme ich aber alles in 1 Spalte, ich will aber drei. (brauche ja die ID aus der DB um weiterarbeiten zu koennen. Das ListIndex hilft mir gar nichts, da ich ja den Datensatz editieren will und anschliessend mit UPDATE ... Set ...Where ID= & combospalte3ID ist.
Wie bekomme ich nun am Besten die Datensaetze in 3 Spalten in der Combobox?
lg
Gorginio

AW: combobox spalten befuellen

24.01.2004 19:54:06

K.Rola

Hallo,
lies die daten in ein Array ein und weiss dies der Combobox zu:
Combobox1.List = deinArray
Gruß K.Rola

AW: combobox spalten befuellen

24.01.2004 21:02:58

Dieter Klemke

Hallo Gorginio,
was meinst du damit, dass der ListIndex dir nicht hilft? Die Eigenschaft ListIndex kommt in meinem Vorschlag nicht vor.
Du kannst mit dem Vorschlag auf jeden Fall die ComboBox mehrspaltig füllen. Ob dein Recordset über ADO oder DAO erzeugt wurde, ist an dieser Stelle egal.
Wenn du es besser in deiner Terminologie verstehst, dann sieht mein Vorschlag so aus:
Do While Not rstActivity.EOF
With cboEdit
.AddItem rstActivity.Fields("Nachname")
li = cboBeispiel.ListCount - 1
.List(li, 1) = rstActivity.Fields("Vorname")
.List(li, 2) = rstActivity.Fields("ID")
End With
rstDActivity.MoveNext
Loop
Übrigens konntest du mit meiner Antwort auf deine Frage vom 22.01.2004 10:48 etwas anfangen?
MfG
Dieter

Beliebteste Forumthreads (12 Monate)

Forumthread: combobox spalten befuellen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread