Como cargar combobox con registros de una tabla

[okan]

Quiero mostrar los registros de un campo en un combobox,hasta ahí todo bien pero al ejecutarse el codigo se borran los registros del campo cargado de la tabla y no logro descifrar porque. El codigo es el siguiente:

Código:

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

[ernestoelunico]

yo use esto pero con excel

Private Sub Form_Load()


'Variable de tipo Aplicación de Excel
Dim objExcel As Excel.Application

'Una variable de tipo Libro de Excel
Dim xLibro As Excel.Workbook
Dim Col As Integer, Fila As Integer

'creamos un nuevo objeto excel
Set objExcel = New Excel.Application

'Usamos el método open para abrir el archivo que está _
en el directorio del programa llamado archivo.xls
Set xLibro = objExcel.Workbooks.Open(App.Path + "\lb.xls")

'Hacemos el Excel Visible
objExcel.Visible = false

With xLibro

' Hacemos referencia a la Hoja
With .Sheets(1)

'Recorremos la fila desde la 1 hasta la 15
For Fila = 1 To 15

'Agregamos el valor de la fila que _
corresponde a la columna 1
Combo1.AddItem .Cells(Fila, 1)
Next

End With
End With

'Eliminamos los objetos si ya no los usamos
Set objExcel = Nothing
Set xLibro = Nothing

End Sub

[Avellaneda]

Iniciado por okan

Quiero mostrar los registros de un campo en un combobox,hasta ahí todo bien pero al ejecutarse el codigo se borran los registros del campo cargado de la tabla y no logro descifrar porque. El codigo es el siguiente:

Código:

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

Fíjate que estás indicando diferentes controles Adodc

[okan]

Si corregi el tema del adodc pero igualmente al ejecutar se borran los registros de ese campo de la tabla.

Código:

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

[Avellaneda]

Iniciado por okan

Si corregi el tema del adodc pero igualmente al ejecutar se borran los registros de ese campo de la tabla.

Código:

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

¿Se borran los registros de ese campo de la tabla?

¿Quieres decir que se borran físicamente, desaparecen de la tabla?

¿En la tabla quedan todos los datos de ése campo (columna) en blanco?

???

[okan]

Si tal cual. se borran los registros del campo que cargue en el combo. Los carga la primera vez que le doy play, hasta ahí todo ok pero cuando termino de ejrcutar y salgo, se borran, y cuando le doy nuevamente play el combo esta vacio (obvio).

[David]

¿Cómo está hecha la conexión? ¿Es ese el único código en que manejas la base de datos?

[okan]

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")