populate combo box from database

[baasu]

i want to populate a combo box with items in the table of my access database. i ve seen some code on the internet but wasnt able to understand dem much.pls help!

[lotus18]

What version of vb are you using?

Rey Sean

[baasu]

hi
i am using vb6
thnx

[lotus18]

 
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
 
Set dbConnection = New ADODB.Connection
    dbConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & <Database Path>;Persist Security Info=False;Jet OLEDB:Database Password=<YourPassword>" 'If Any
 
    rs.Open "Select * From <TableName>", con, 1, 1
 
    While Not rs.EOF
        Combo1.AddItem rs!<FieldName>
        rs.MoveNext
    Wend
 
     rs.Close
     Set rs=Nothing
 
    con.Close
    Set con=Nothing
 
 

Rey Sean

[dauz]

Hi did you know how to query Geom from Oracle Spatial using VB6...

thanks in advance!!

 
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
 
Set dbConnection = New ADODB.Connection
    dbConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & <Database Path>;Persist Security Info=False;Jet OLEDB:Database Password=<YourPassword>" 'If Any
 
    rs.Open "Select * From <TableName>", con, 1, 1
 
    While Not rs.EOF
        Combo1.AddItem rs!<FieldName>
        rs.MoveNext
    Wend
 
     rs.Close
     Set rs=Nothing
 
    con.Close
    Set con=Nothing
 
 

Rey Sean