Related:
- Vb.net populate combobox from access database
- How to display data from database to combobox in vb6 - Best answers
- Combo box in vb.net with database - Best answers
- Database connectivity in vb 6.0 with ms access pdf - How-To - Programming
- Forgot access database password - How-To - Oracle
- Access database restarts computer ✓ - Forum - Office Software
- How do I fix a corrupted MS Access database? ✓ - Forum - Software
- Saving image path to access database and retrieving images ✓ - Forum - Programming
3 replies
dhanakumar(dk)
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
Report
jBl
thank you for the code.. it works with my own way of connecting to Access...
rizvisa1
- Posts
- 4476
- Registration date
- Thursday January 28, 2010
- Status
- Contributor
- Last seen
- August 2, 2020
Where is this combobox ? is it on access form or some thing else
ian_ian
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
Subscribe To Our Newsletter!
