[haidar976]

I am sure there are many differences between datacombo and combo but I don't know what is it?? please tell me if you know.

[Ionut]

This may answer to your question

[haidar976]

Thank you

[BobRodes]

The difference is that DataCombo can be directly bound to a data source and ComboBox can't. You can still do the binding with a ComboBox "by hand" using code.

[haidar976]

BobRodes, on 18 September 2011 - 08:50 AM, said:

The difference is that DataCombo can be directly bound to a data source and ComboBox can't. You can still do the binding with a ComboBox "by hand" using code.

well, my database is Mydb.mdb, and data-source is mainTbl which is contains 2 columns ID and Tel-No, I want the combo box (Not DataCombo) to be filled by Tel-No can you write the code for this combo?
forgive me may I look lazy but I don't know how to find the correct codes from the references.

This post has been edited by haidar976: 19 September 2011 - 02:30 AM

[Ionut]

well, use a RecordSet to fetch data from database, then loop through it and add each record to your combobox.

do while not rs.EOF
.   combobox1.additem rs.fields(0)
.   rs.movenext
Loop

The code may have misspellings, but you got the idea

This post has been edited by Ionut: 19 September 2011 - 03:34 AM

[BobRodes]

Yes, I can. I'd like you to be able to as well. So, do what you can, and ask for help when you need it.

[haidar976]

Ionut, on 19 September 2011 - 01:33 PM, said:

well, use a RecordSet to fetch data from database, then loop through it and add each record to your combobox.

do while not rs.EOF
.   combobox1.additem rs.fields(0)
.   rs.movenext
Loop

The code may have misspellings, but you got the idea

I have Adodc2 which connect to the mydb.mdb and the table name is (office)
i wrote this code

Dim rs As Recordset
rs = Adodc2.Recordset
combo2.AddItem rs.Fields(0)
rs.MoveNext
Loop

and I wrote this in the Private Sub Form_Load()
but I got this error
Compile error
Invalid use of property
where is my mistake?

[BobRodes]

what line causes the error? Also, read up on do loops. You're missing a Do.

This post has been edited by BobRodes: 20 September 2011 - 04:27 PM

[haidar976]

BobRodes, on 21 September 2011 - 02:27 AM, said:

what line causes the error? Also, read up on do loops. You're missing a Do.

First i have to mention that I forgot to write the line of do while in the replay above, so the real code I did in my project is:

Dim rs As Recordset
rs = Adodc2.Recordset
Do While not rs.EOF
combo2.AddItem rs.Fields(0)
rs.MoveNext
Loop

the error line (in yellow color) is the first line in the class, which is:
Private Sub Form_Load()

[BobRodes]

Oh. The code you've posted is in your Form_Load procedure? If so, try changing your Dim rs As Recordset to Dim rs as ADODB.Recordset.If that doesn't work, try moving the code to the Form_Activate procedure.

[thava]

yes, you need to use the set operator

set rs=adodc2.recordset

This post has been edited by thava: 21 September 2011 - 07:17 PM

[haidar976]

Thank you all, it works now, I use ( set )

set rs = adodc2.recordset

BobRodes, on 18 September 2011 - 08:50 AM, said:

The difference is that DataCombo can be directly bound to a data source and ComboBox can't. You can still do the binding with a ComboBox "by hand" using code.

I also tried this way, but I got the same error

[haidar976]

BobRodes, on 22 September 2011 - 01:48 AM, said:

Oh. The code you've posted is in your Form_Load procedure? If so, try changing your Dim rs As Recordset to Dim rs as ADODB.Recordset.If that doesn't work, try moving the code to the Form_Activate procedure.

I also tried this way, but the same error appear!
Any way i was tried to learn more ways and that was really helpful
thank you

[BobRodes]

Oops. Forgot about the Set keyword. Good catch thava.