Populate combo box items from database

[vaniKanabathy]

Hi, im using vb6 and access, im using combo box in my form. I want to retrieve the items for combo box automatically from database. Plzzzzzz help me , urgent. Thanks.

[debasisdas]

Kindly post the code that you are working on.

[vaniKanabathy]

Dim myconn As ADODB.Connection
'Declares strSQL as a string for the SQL statement
Dim strSQL As String
 
db_file = App.Path
    If Right$(db_file, 1) <> "\" Then db_file = db_file & "\"
    db_file = db_file & "Everspark2.mdb"
 
'Sets myconn as a connection
Set myconn = New ADODB.Connection
myconn.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & db_file & ";" & _
        "Persist Security Info=False"
    myconn.Open
 
 Combo1.Clear
 
 
     Dim rsRecords As New ADODB.Recordset
     Set rsRecords = New ADODB.Recordset
     Dim sSQL As String
     sSQL = "SELECT CarType FROM CarList"
     rsRecords.Open sSQL, myconn
 
    With rsRecords
    .Open CarList, myconn
    Do While Not .EOF
    Combo1.AddItem .Fields("CarType")
        .MoveNext
    Loop
 
    Combo1.AddItem
    .Close
 
    End With
    Set rsRecords = Nothing

[QVeen72]

Hi,

You have already opened the recordset, again why open...?
check the modified code here :

With rsRecords
' Comment the Line Below
'.Open CarList, myconn
 
Do While Not .EOF
Combo1.AddItem .Fields("CarType")
.MoveNext
Loop
 
 

REgards
Veena

[vaniKanabathy]

I get the solution.Thanks.

db_file = App.Path
    If Right$(db_file, 1) <> "\" Then db_file = db_file & "\"
    db_file = db_file & "Everspark2.mdb"
 
    ' Open a connection.
    Set conn = New ADODB.Connection
    conn.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & db_file & ";" & _
        "Persist Security Info=False"
    conn.Open
 
    ' Select the data.
    statement = "SELECT CarType FROM CarList "
 
    ' Get the records.
    Set rs = conn.Execute(statement, , adCmdText)
 
With Combo1
Do Until rs.EOF
.AddItem rs.Fields("CarType").Value
rs.MoveNext
Loop
End With
 rs.Close
    conn.Close