combo box

[saadatdoost]

من با پر کردن combo box مشکل دارم این کا ر را با ADO انجام دادم اما شکل ظاهریش زیاد جالب نیست با کد زیر هم مشکل دارم :




Private Sub Form_load()

Set combo1.DataSource = Adodc1
Dim s As String
Dim MyConn As ADODB.Connection
Dim MyRecSet As ADODB.Recordset

Set MyConn = New ADODB.Connection
MyConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=e:\db1.mdb;"
MyConn.Open

Set MyRecSet = MyConn.Execute("SELECT country_name FROM country")
Do Until MyRecSet.EOF

Combo2.DataField = MyRecSet.Fields.Item("country_name").Value

MyRecSet.MoveNext
Loop



MyConn.Close


End Sub

[mehdi1357]

Microsoft.Jet.OLEDB.4.0 را امتحان کن

[saadatdoost]

باز خالی نشون می ده.

[moj_vb]

With recordset
If .State = adStateOpen Then .Close
.ActiveConnection = cndata
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.Source = "select * from tabel"
.Open Options:=adCmdText
i = -1
Do Until .EOF
If IsNull(.Fields("1")) Then
cbowork.AddItem ""
Else
cbowork.AddItem .Fields("title")
End If
i = i + 1
cbowork.ItemData(i) = .Fields("level")
.MoveNext
Loop
End With