How do i populate a combobox with values from a certain field on my database when i click the control?
My combobox control name :cbodept
Dbase table: Offices
and Dbase Table field is: Office
Preferably code. Thanks
How do i populate a combobox with values from a certain field on my database when i click the control?
My combobox control name :cbodept
Dbase table: Offices
and Dbase Table field is: Office
Preferably code. Thanks
Abe, you should know by now that you can not just ask for code, show your efforts first.:)
Option Explicit
Dim oConn As ADODB.Connection
Dim oRs As ADODB.Recordset
Private Sub Command2_Click()
'Using MS Access database...
Dim sConn As String
Dim oConn As New ADODB.Connection 'Declare a new connection...
Dim oRs As New ADODB.Recordset 'Declare a new recordset...
sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\YourDatabaseNameHere.MDB;Persist Security Info=False"
oConn.Open sConn
oRs.Open "SELECT * FROM YourTableNameHere", oConn, adOpenStatic, adLockOptimistic
Dim xAdd As Integer
For xAdd = 0 To oRs.Recordcount - 1
cbodept.AddItem oRs.Office
oRs.MoveNext
Next xAdd
oRs.Close
oConn.Close
End If
End Sub
I cant really have a code for that sir, its my first time to deal with this kind of prob.
I am use in entering values on comboboxes manually, writing values on the property list.
I'll try your code and get back if i have more further question.
No problem, let me know how it went.:)
On Line 22, I think it should be like this.
cbodept.AddItem oRs!Office
Thanks Jhai, my bad. This is what happens when you rush through solutions!;)
Haha :D but its a good solution so thats just fine.
It Works sir.
Just have to add some Declarations and modifications. :)
Thanks.
It was a pleasure, also to Jhai for picking up on my stupid error!. Happy coding.:)
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.