Título: actualizar un MsFlexgrid Publicado por: choquito en 4 Mayo 2007, 00:03 am hola a todos...bueno les cuento que logre conectar un dataenviroment con instruccion sql en un msflexgrid con este codigo
Dim rs As New ADODB.Recordset Private Sub Form_Load() DataZaga.rsCmdclientes1.Open DataZaga.rsCmdClientes.Open Set rs.DataSource = DataZaga.rsCmdclientes1 configurar_grilla Do While Not rs.EOF Grid1.AddItem rs.Fields("COD_CLIENTE") & vbTab & rs.Fields("RAZON_SOCIAL") rs.MoveNext Loop End Sub cabe precisar que tengo un frm con cuadros de texto y estos esta conectados a la base de datos, bueno cuando ingresos datos y pongo guardar este no me aparece en mi grid, tengo que cerrar y volver a abrir el proyecto para que aparezca: como actualizo el grid1 o en dataenviroment se que debo desconectar el dataenviroment y el grid y luego conectar nuevamente pero como,, estoy intentando con esto pero creo que falta algo With DataZaga.rsCmdclientes1 If .State = adStateOpen Then .Close End If If .State = 0 Then .Open End If End With agracedecere infinitamente al que me ayude |