Combobox en Visual basic 6.0

Hola emperador20, 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
Hola mira te comento como lo trabajo yo,
la lógica que uso es como la de vectores paralelos
cargo 2 combos 1 con el id_proveedor y el otro con el nombre del proveedor
por supuesto el combo1 de id tiene que estar visible=false
entonces al cargar el combo los 2 se cargan al mismo tiempo teniendo el mismo indice
cuando vos elegís un nombre de la lista de proveedores y después quieres usar ese código tienes que poner así:
comboidprofe.list(combonombreprov.listindex)
aca tenemos que te muestre el codigo del combo de id profe en la posicion que seleccionaste del combo de nombre de proveedores
me funciona excelente y lo uso muchisimo.
probalo primero en un textbox normal y despues pasalo a la base.
Saludos
Leandro
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: