Sección de códigos , trucos y ejemplos para visual basic

219 - Listar datos de una bd en un ListView y también poder editar

Ejemplo que utiliza DAO para conectarse a una base de datos Access y cargar los datos en un control ListView, y al hacer click en un Item poder abrir otro formulario para poder editar dicho registro

Esta es una vista del formulario que carga una tabla en el ListView:

vista del Form1 con los datos de la tabla cargados en el ListView

Al hacer un click en un Item ( evento Item_Click del ListView ) se abre un formulario en modo Modal para editar el dato:

vista del Form2 para editar el Registro y poder guardar

El ejemplo tiene dos rutinas, una llamada cargar_Datos y otra Guardar_Datos. Al cargar el primer formulario, llena el ListView, si se presiona en un Item, se abre el otro form, que tiene dos botones, si se presiona Aceptar se ejecuta la Sub guardar_Datos.

Para el ejemplo colocar en un Form1 que será el principal, un control Listview llamado ListView1.

En el otro formulario, colocar los textbox que se necesiten para mostrar los datos de la tabla. y también en el form2 dos commandButton: CmdCancelar y CmdAceptar.

Nota: en el código cambiar las siguientes líneas que crean los encabezados de columna, es decir agregar los campos de la tabla, por ejemplo:

.ColumnHeaders.Add , , "Campo 1"
.ColumnHeaders.Add , , "Campo 2"
etc...

También especificar la tabla que se va a utilizar, esto en el método OpenRecordset de DAO , por ejemplo:

OpenRecordset ("La Tabla")

Además especificar en la Sub Guardar_datos, las siguientes lineas

Rst!("Campo1") = Form2.Text1
Rst!("Campo2") = Form2.Text2
..etc

Donde los Textbox deben especificar el campo a editar

y por último en el evento ItemClick del ListView, especificar también los TexBox con los subItems del ListView.

Nota: en este enlace hay un ejemplo de como Cargar una tabla en un ListView usando ADO en forma dinámica, es decir agregando los encabezados de columna en tiempo de ejecución, de esta forma se puede optimizar este ejemplo, ya que no hay que agregar manualmente los columnHeaders y demás.

..y en este otro enlace hay un ejemplo muy similar a este pero en ves de usar Dao como conexión utiliza ADO : Editar un Listview usando ADO

A continuación sigue el código para agregar en el Form1 ( el que tiene el Listview), el código del Form2 que tiene los TextBox para editar el registro, y luego el código para Guardar y Abrir en un Módulo bas:

Código fuente en Fom1

Private Sub Form_Load() 'Vista de reporte ListView1.View = lvwReport 'Carga los datos de la bd en el ListView Cargar_Datos End Sub Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) ' NOTA: _ ESPECIFICAR ACÄ LOS TEXTBOX CON LOS SUBITEMS '********************************************** With Form2 El_Item = Item.Text 'carga los textbox del form2 con los datos _ del Item a Editar .Text1 = Item.Text .Text2 = Item.SubItems(1) .Text3 = Item.SubItems(2) End With 'Abre el Form en forma Modal Form2.Show 1 End Sub

Código para el Form2

'Guarda los datos del Item Private Sub CmdAceptar_Click() Guardar_Datos Unload Me End Sub 'Cancela y cierra Private Sub Cmdcancelar_Click() Unload Me End Sub

Código en un módulo bas:

Option Explicit 'Variable para la bd, el recordset y el Item ( registro ) a editar Public bd As Database Public Rst As Recordset Public El_Item As String Public Sub Cargar_Datos() Dim i As Integer 'Variable para hacer referencia a los Subitems Dim Nuevo_Item As ListItem With Form1.ListView1 'Elimina los items y los encabezados de columna .ListItems.Clear .ColumnHeaders.Clear .ColumnHeaders.Add , , "Nombre" .ColumnHeaders.Add , , "Categoría" .ColumnHeaders.Add , , "Stock" '***************************************************************** ' CAMBIAR EL PATH DE LA BASE DE DATOS Y EL NOMBRE DE LA TABLA '***************************************************************** 'Abre la base de datos y el recordset Set bd = OpenDatabase(App.Path & "\bd1.mdb") Set Rst = bd.OpenRecordset("Productos") ' Se posiciona en el preimer registro Rst.MoveFirst 'Recorre todos los registro para añadirlos al ListView For i = 1 To Rst.RecordCount 'AÑADIR LOS SUBITEMS NECESARIOS A VISUALIZAR EN EL LISTVIEW '************************************************************ Set Nuevo_Item = .ListItems.Add(, , Rst.Fields(0)) Nuevo_Item.SubItems(1) = Rst.Fields(1) Nuevo_Item.SubItems(2) = Rst.Fields(2) Rst.MoveNext Next 'cierra la base de datos , el recordset y libera la memoria On Error Resume Next Rst.Close Set Rst = Nothing bd.Close Set bd = Nothing End With End Sub 'Para guardar los datos en la BD Public Sub Guardar_Datos() Dim i As Integer '***************************************************************** ' CAMBIAR EL PATH DE LA BASE DE DATOS Y EL NOMBRE DE LA TABLA '***************************************************************** 'Abre la base de datos y el Recordset Set bd = OpenDatabase(App.Path & "\bd1.mdb") Set Rst = bd.OpenRecordset("Productos") 'siguiente registro Rst.MoveFirst For i = 1 To Rst.RecordCount ' Recorre uno a uno los registros y si el primer elemento _ es igual al ITem del ListView, entonces es el que hay que editar If El_Item = Rst.Fields(0) Then Rst.Edit '******************** ' CAMBIAR LOS CAMPOS, Y AÑADIR LOS TEXTBOX NECESARIOS '********************* ' Edita los datos del registro Rst.Fields(0) = Form2.Text1 Rst.Fields(1) = Form2.Text2 Rst.Fields(2) = Form2.Text3 'Rst.Fields(3) = Form2.Text3 '...etc.. 'Actualiza los datos Rst.Update Exit For Else 'siguiente registro Rst.MoveNext End If Next i 'Descarga el recordset y cierra la base de datos Rst.Close Set Rst = Nothing bd.Close Set bd = Nothing 'Vuelve a cargar los datos en el ListView del Form principal (Form1) Cargar_Datos End Sub

Buscar en Recursos vb