Guardar datos en un combobox
Buena tardes
Ya tengo el código para agregar un dato a un combo pero quiero que se guarde pemanentemente en el
Ya tengo el código para agregar un dato a un combo pero quiero que se guarde pemanentemente en el
Respuesta de drinfierno
1
Que tal como te va... el Problema que tienes sobre el combo, dime muestras tu el listado de algo con su respectivo código...
Por que lo ideal seria que lo muestres para que con ello guardar lo que has insertado al combobox ..., ahora se tendría que ver de que manera lo realizas para ayudarte existen varias formas de inserción mi idea es ayudarte con lo que sabes para no enredarte con otras formas de inserción
Espero me respodas para poder ayudarte :D
Por que lo ideal seria que lo muestres para que con ello guardar lo que has insertado al combobox ..., ahora se tendría que ver de que manera lo realizas para ayudarte existen varias formas de inserción mi idea es ayudarte con lo que sabes para no enredarte con otras formas de inserción
Espero me respodas para poder ayudarte :D
Hola el combobox lo tengo un formulario que esta en una tabla, para agregar el nuevo registro utilizo este código
PRODUCTOS. Additem valor1, 0
El valor1 es un cuadro de texto donde se escribe el producto
PRODUCTOS es el combobox
ese código lo tengo en botón llamado registro
PRODUCTOS. Additem valor1, 0
El valor1 es un cuadro de texto donde se escribe el producto
PRODUCTOS es el combobox
ese código lo tengo en botón llamado registro
Para añadir datos a un combo puedes usar lo siguiente
donde RsProcedencia es el Recordset con datos, CboProcedencia es el Combo
RsProcedencia. Requery
Do While Not RsProcedencia.EOF
CboProcedencia. AddItem RsProcedencia(1)
RsProcedencia. MoveNext
Loop
Aqui esta el Recordset RsProcedencia
Set RsProcedencia = New ADODB.Recordset
With RsProcedencia
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "Select * From Procedencia Order by Nom_Prc", Cn
End With
donde RsProcedencia es el Recordset con datos, CboProcedencia es el Combo
RsProcedencia. Requery
Do While Not RsProcedencia.EOF
CboProcedencia. AddItem RsProcedencia(1)
RsProcedencia. MoveNext
Loop
Aqui esta el Recordset RsProcedencia
Set RsProcedencia = New ADODB.Recordset
With RsProcedencia
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "Select * From Procedencia Order by Nom_Prc", Cn
End With
