Tema: Como cargar combobox con registros de una tabla
Ver Mensaje Individual
  #8 (permalink)  
Antiguo 02/10/2008, 14:04
okan
 
Fecha de Ingreso: mayo-2008
Mensajes: 47
Antigüedad: 15 años, 10 meses
Puntos: 0
Respuesta: Como cargar combobox con registros de una tabla
Código: 
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Form_Load()

con.Open ("dsn=bd")

Do While Not Adodc1.Recordset.EOF = True
    combo.AddItem Adodc1.Recordset.Fields(2)
    Adodc1.Recordset.MoveNext
Loop
rs.Close

End Sub
La conexion la hago desde panel de control, herramientas administrativas, origenes de datos (ODBC), bueno ahi agrego la base y la selecciono. Y luego desde visual en la vista de diseño click en connectionString y la selecciono. Y desde el codigo la abro como esta arriba con.Open ("dsn=bd")