AYUDA CON UN LIST VIEW
Publicado por Idelvis Parra (16 intervenciones) el 08/05/2007 14:23:22
HOLA AMIGOS QUIERO SABER COMO ACTUALIZO UN GRID VIEW , OSEA, LE INSERTO LOS DATOS A LA DATA, PERO PARA QUE SE VEA EN EL LSIT VIEW TENGO QUE CERRAR EL FORMULARIO Y LUEGO ABRIRLO, LO QUE QUIERO ES INSERTAR LOS DATOS Y QUE SE ACTUALIZE EN LA LISTA DESDE QUE LO INSERTO, NO ESPERAR A ABRIR EL FORMULARIO.
ESTE ES EL CODIGO QUE UTILIZO:
'funcion que pasa los datos de la vista llenar_list_servicio
Function Llenar_List_Servicio()
Dim List As ListItem
Command.CommandText = "SELECT * FROM llenar_list_servicio "
Set RecordSet = Command.Execute
LstServicios.ListItems.Clear
RecordSet.MoveFirst
Do While Not RecordSet.EOF
Set List = LstServicios.ListItems.Add(, , RecordSet.Fields(0) & "")
List.SubItems(1) = RecordSet.Fields(1) & ""
List.SubItems(2) = RecordSet.Fields(2) & ""
List.SubItems(3) = RecordSet.Fields(3) & ""
RecordSet.MoveNext
Loop
End Function
GRACIAS AMIGOS, ES URGENTE
ESTE ES EL CODIGO QUE UTILIZO:
'funcion que pasa los datos de la vista llenar_list_servicio
Function Llenar_List_Servicio()
Dim List As ListItem
Command.CommandText = "SELECT * FROM llenar_list_servicio "
Set RecordSet = Command.Execute
LstServicios.ListItems.Clear
RecordSet.MoveFirst
Do While Not RecordSet.EOF
Set List = LstServicios.ListItems.Add(, , RecordSet.Fields(0) & "")
List.SubItems(1) = RecordSet.Fields(1) & ""
List.SubItems(2) = RecordSet.Fields(2) & ""
List.SubItems(3) = RecordSet.Fields(3) & ""
RecordSet.MoveNext
Loop
End Function
GRACIAS AMIGOS, ES URGENTE
Valora esta pregunta


0