Hej!
Jag har en databas med ett 5 namn (Poster) i. Hur gör jag för att fylla en combobox i VB med dessa namn(Poster). Jag har försökt men inte lyckats.
Tacksam för hjälp.

Hej
Om kör SQL anrop mot databasen


Combo1.additem = rs.feld("Poster").value & vbnullstring

Tobbe

Prova nedanstående kod
<code>
Set dbs = OpenDatabase(App.Path + "\Databas.mdb")
Set rst = dbs.OpenRecordset("Tabell")
While Not rst.EOF
Combo1.AddItem rst.Kolumn
rst.MoveNext
Wend
dbs.Close
</code>

mvh
CJE

DAO:
<code>
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim fldField As DAO.Field
Set db = OpenDatabase(App.Path & "\Databas.mdb")

Set rst = db.OpenRecordset("TabellNamn", dbOpenForwardOnly)

Set fldField = rst("KolumnNamn")
Do Until rst.EOF
Combo1.AddItem "" & fldField.Value
rst.MoveNext
Loop
rst.Close
db.Close
</code>
ADO:
<code>
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim fldField As ADODB.Field
Set con = New ADO.Connection
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Databas.mdb"

Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM TabellNamn", con

Set fldField = rs("KolumnNamn")
Do Until rs.EOF
Combo1.AddItem "" & fldField.Value
rs.MoveNext
Loop
rs.Close
con.Close
</code>

Tack för all hjälp!
Jag lyckades få till det med hjälp av er.
Hoppas att jag blir så duktig så jag kan hjälpa någon i min tur.
/Janne