Combobox en Visual basic 6.0

Hola edusaligari, estoy haciendo una aplicación en visual basic 6.0 conectado con una base de datos en sql 2000. Lo que pasa es lo siguiente:
Quisiera que al momento de cargar el combobox me aparezca los nombres, pero que al momento de guardar el combobox se guarde con el código de ese nombre.
Te adjunto el código para ver que me esta faltando. Agradeciéndote de antemano.
Private Sub Form_Load()
Dim BD As ADODB.Connection
Dim rs As ADODB.Recordset
Set BD = New ADODB.Connection
Set rs = New ADODB.Recordset
BD.Open "Provider= SQLOLEDB; Initial Catalog= BETTELING;Data Source= (local); integrated security=SSPI; persist security info= true;"
rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM Proveedor", BD, adOpenStatic, adLockOptimistic
With rs
Do Until .EOF
Combo4.AddItem .Fields(1)
.MoveNext
Loop
End With

rs.Close
La parte de negro es donde cargo el combo con el campo 1 de la tabla proveedor.

1 respuesta

1
Respuesta de
Estimado.
Agrega a tu código:
Combo4.ItemData(Combo4.NewIndex) = .Fields("ID_Nombre").Value
Donde "ID_Nombre" es el nombre del campo que contiene el código.
Si tienes dudas me lo haces saber.
Saludos.
Eduardo.
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje
¿No es la respuesta que estabas buscando? Puedes explorar otras preguntas del tema Visual Basic o hacer tu propia pregunta: