COMO REFRESCAR EL COMBOBOX
Publicado por mauricio (1 intervención) el 15/01/2007 20:52:00
MI problema es que tengo un combobox( con los nombres de las categorias) en un formulario(PRODUCTOS). Hasta qui todo bien me muestra lo que tengo en le combobox. Luego al lado tengo un boton que me lleva a un formulario para agregar categorias nuevas. Voy a este formulario agrego la categoria PERO EL PROBLEMA ES QUE AL VOLVER AL FORMULARIO INICIAL(PRODUCTOS) NO SE ME CARGA EN EL COMBOBOX LA NUEVA CATEGORIA QUE INGRESÉ. NO SE SI ME ENTIENDEN. MI CÓDIGO EN EL FORMULARIO INICIAL (PRODUCTOS) ES EL SIGUIENTE:
Private Sub Form_Load()
Set pun = New Connection
pun.CursorLocation = adUseClient
pun.Open "PROVIDER=MSDASQL;driver={SQL Server};server=PC01;uid=;pwd=;database=proveedores;"
Set puntero_categorias = New Recordset
puntero_categorias.Open "SELECT * FROM categorias", pun, adOpenDynamic, adLockOptimistic
Combo1.Clear
puntero_categorias.Requery
If Not puntero_categorias.BOF And Not puntero_categorias.EOF Then
puntero_categorias.MoveFirst
Do While Not puntero_categorias.EOF
Combo1.AddItem puntero_categorias.Fields("nombrecategoria")
puntero_categorias.MoveNext
Loop
puntero_categorias.MoveFirst
End If
End Sub
ESPERO ME PUEDAN AYUDAR
CHAUUU
Private Sub Form_Load()
Set pun = New Connection
pun.CursorLocation = adUseClient
pun.Open "PROVIDER=MSDASQL;driver={SQL Server};server=PC01;uid=;pwd=;database=proveedores;"
Set puntero_categorias = New Recordset
puntero_categorias.Open "SELECT * FROM categorias", pun, adOpenDynamic, adLockOptimistic
Combo1.Clear
puntero_categorias.Requery
If Not puntero_categorias.BOF And Not puntero_categorias.EOF Then
puntero_categorias.MoveFirst
Do While Not puntero_categorias.EOF
Combo1.AddItem puntero_categorias.Fields("nombrecategoria")
puntero_categorias.MoveNext
Loop
puntero_categorias.MoveFirst
End If
End Sub
ESPERO ME PUEDAN AYUDAR
CHAUUU
Valora esta pregunta


0