Menu
  1. Accueil
  2. Tech Forum
  3. Programming

Load data from access to combo box in vb [Solved/Closed]

Report
-
 ian_ian -
Hello,

i'm really desperate for a solution here

can anybody please please tell me how to load data that i've stored in my access database into a combo box?

thank you in advance!


See more
Related:

3 replies

Answer 1 / 3

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String
Dim I As Integer
con.Open "Provider=sqloledb;Data Source=SSST41;Initial Catalog=sample;User ID=sa;Password=;"
str = "select name from stutable"
rs.Open str, con
i = 0

While Not rs.EOF
Combo1.List(i) = rs.Fields(0)
rs.MoveNext
i = I + 1
Wend

rs.Close
Thank you
11
Thank you

A few words of thanks would be greatly appreciated. Add comment

CCM 2825 users have said thank you to us this month

Report

thank you for the code.. it works with my own way of connecting to Access...
Answer 2 / 3
Posts
4476
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
August 2, 2020
 760
Where is this combobox ? is it on access form or some thing else
Report

the combo box is in a form created in a vb(2008) project...i have already connected the vb project to the access db. however, now i'm trying to figure out how to retrieve the information i've stored in the access field to the combo box created earlier.

tq!
Report
Posts
4476
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
August 2, 2020
 760
It has been some time since I have played with VB. But from what I recall, you could set it record source to a sql statement.
Report

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset

Dim I As Integer
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Asm-isntc-asus\database\mast.mdb;Persist Security Info=False"
str = "select Name from mast"
rs.Open str, con
i = 0

While Not rs.EOF
Combo3.List(i) = rs.Fields(0)
rs.MoveNext
i = I + 1
Wend

rs.Close
Answer 3 / 3

the combo box is in a form created in a vb(2008) project...i have already connected the vb project to the access db. however, now i'm trying to figure out how to retrieve the information i've stored in vb to the combo box created earlier.

tq!
Ask a question