combo box...

[vikas1111]

I have connected combo box to database and the first content of the column is displayed.. I want to display all the contents of the column in combo box .. How can i do that ?

[debasisdas]

post the code how you have connected to database.

[vikas1111]

post the code how you have connected to database.

Hi this is the code which i have written...

Option Explicit
Dim c As New ADODB.Connectio n
Dim cm As ADODB.Command
Dim rs As New ADODB.Recordset

Private Sub Form_Load()
Dim cs As String
c.Open ("Provider=Micr osoft.Jet.OLEDB .4.0;Data Source=d:/_______.mdb;Per sist Security Info=false")

rs.Open "select * from _______", c, adOpenDynamic
Me.Combo1.Text = rs(2)
Do Until rs.EOF = True
rs.MoveNext
Loop
End Sub

[QVeen72]

Hi,

To Display all the Available Names, use a "DataCombo" or "DatListBox " and set these Properties..:

With DC1
Set .RowSource = RS
.ListField =MyFieldName
.BoundColumn = MyFieldName
.Refresh
End With

REgards
Veena

[QVeen72]

Hi,

You need to add the Items in Loop..

[code=vb]
rs.Open "select * from _______", c, adOpenDynamic
Do Until rs.EOF = True
Me.Combo1AddIte m rs(2)
rs.MoveNext
Loop

[/code]

Regards
Veena

[vikas1111]

Hi,

You need to add the Items in Loop..

[code=vb]
rs.Open "select * from _______", c, adOpenDynamic
Do Until rs.EOF = True
Me.Combo1AddIte m rs(2)
rs.MoveNext
Loop

[/code]

Regards
Veena

Hi
Me.Combo1. AddItem rs(2) now its working .. tks

[Ali Rizwan]

Hi,

After connecting your database use this code.

[CODE=vb]REC.MoveFirst

Do While Not REC.EOF
Combo1.Additem (REC.Fields(0))
REC.MoveNext
loop[/CODE]

Regards
>> ALI <<