Visual Basic - DataCombo.Refresh

Alguien encontro alguna solucion para refrescar un dataCombo en el momento que se hace una actualización porque a mi no me muestra el nuevo valor cargado. Gracias

Hola

si trabaja con un Adodc, prueba esto

cuando hallas ingresado un nuevo registro
al Adodc

Adodc1.Recordset.Requery 'esto hace que se actualize la consulta
Adodc1.Refresh

DataCombo1.Refresh

Suerte.

Ariel

Hola te cuento que tengo un vinculo con Dataenvoronment, abra otra forma?????

Hola Edgardo.
Con DataEnvornment es mas facil

Aqui te mando un codigo de Ejemplo.

'-------------------------
En el Load

Private Sub Form_Load()

DataEnvironment1.rsSQlRegion.LockType = adLockOptimistic 'Permito Abrir el Recordset de forma que pueda modificarlo

DataEnvironment1.rsSQlRegion.Open 'Abro el Recordset

'Asigno el RecordSet en el DataCombo
Set DataCombo1.RowSource = DataEnvironment1.rsSQlRegion
DataCombo1.ListField = "nombe_region"
DataCombo1.BoundColumn = "codigo_region"

End Sub

'----------------Boton Para Guardar -------------
Private Sub Command1_Click()

With DataEnvironment1.rsSQlRegion
DataEnvironment1.Connection1.BeginTrans 'Comienzo Transaccion

' puede Agregar o Modificar, en este Caso Agregar
.AddNew
.Fields("nombe_region") = Text1.Text 'Asigno los datos a los Campos
.Fields("codigo_region") = Text2.Text
.UpdateBatch adAffectAllChapters

DataEnvironment1.Connection1.CommitTrans 'Finalizo Transaccion y
Guardo los Cambios
End With

MsgBox "Registro Agregado OK"

End Sub

'----- al Unload del form

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
DataEnvironment1.rsSQlRegion.Close 'cierro el recordset
End Sub

'---- fin -----

No es necesario actualizar el DataCombo con el DataEnvironment, pero si cuando trabajas con el ADODB o ADODC

Suerte

Ariel..

Cuando trabajas con un DataEnvironment es muy facil hacerlo. El problema del refresh del Datacombo es un Bug que trae el datacombo, que si bien esta enlazado con una tabla o consulta, cuando cambian los valores no siempre refresca los contenidos.

Proba haciendo esto:

set Datacombo1.rowsource = nothing
Set Datacombo1.rowsource = EntornoDatos (o como se llame tu Entorno de Datos)
Datacombo1.refresh

y deberia haber refrescado los datos

Suerte.

Alejandro.