Load data from access to combo box in vb [Solved/Closed]
sophisticated19 - - Latest reply: ian_ian - Jan 19, 2012 at 09:48 PM
Related:
- How retrive the data combo box from ms access in vb.net
- Cascading combo boxes excel vba userform - How-To - Excel
- Windows script host loading script failed access is denied ✓ - Forum - Hardware
- Access - Add check boxes to forms - How-To - Access
- Import excel data to access - How-To - Office Software
- Excel create combo box - How-To - Excel
3 replies
Best answer
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
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
A few words of thanks would be greatly appreciated. Add comment
4570 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...
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
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