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

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

277 - Editar un Listview con ADO

Ejemplo que abre un formulario para editar el elemento actual del Listview.

El ejemplo requiere de dos formularios. Uno que contiene el control Listview ( Form1 ) en el cual se visualizan los registros del Recordset ADO, y otro formulario (Form2) que crea en forma dinámica los controles textbox para cada campo del registro actual, y que permite editar los datos.

Importante: el ejemplo solo permite edtar el registro seleccionado, pero no permite eliminar y agregar nuevos

Nota: en este enlace hay un simple formulario Abm que también usa Ado para editar un Lv y poder realizar Altas, bajas y modificaciones entre otras opciones

Formularios

vista del formulario con el Listview y el formulario para editar el registro

Pasos para crear el ejemplo

Antes que nada incluir en el proyecto la referencia a Microsoft Activex data Object para poder usar ADO
En el Form1 agregar un control Listview
En el Form2 dos CommandButton ( CmdAceptar y CmdCancelar ) y también un control textbox que forme una matrz, es decir un Text1(0). Luego a partir de este se crean los demás
Agregar un módulo bas

Código en el Módulo bas

Option Explicit 'Sub para cargar los datos de la tabla en el control ListView ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub Cargar_ListView( _ ListView As ListView, _ SQL As String, _ Cnn As ADODB.Connection) Dim Ant_Item As Long Dim Campo As Integer On Error GoTo ErrSub Dim rst As ADODB.Recordset 'Variable para los SubItem del Listview Dim Item As ListItem Dim i_SubItem As Long 'Almacenar el Item actual seleccionado _ para luego reestablecerlo If Not ListView.SelectedItem Is Nothing Then Ant_Item = ListView.SelectedItem.Index End If 'Crear un Nuevo objeto Recordset Set rst = New Recordset 'Llenar el Recordset rst.Open SQL, Cnn, adOpenDynamic, adLockOptimistic 'Vista de reporte ListView.View = lvwReport ' Eliminar los item y los encabezado de columna ListView.ListItems.Clear ListView.ColumnHeaders.Clear ListView.Parent.MousePointer = vbHourglass 'Agregar los nombres campo junto con los _ encabezados de columna para el ListView For Campo = 0 To rst.Fields.Count - 1 ListView.ColumnHeaders.Add , , rst.Fields(Campo).Name Next ' Recorrer todos los registros del Recordset While Not rst.EOF 'Agregar el Item Set Item = ListView.ListItems.Add(, , rst.Fields(0)) i_SubItem = 1 'Agregar los SubItem al ListView mediante la variable Item For Campo = 1 To rst.Fields.Count - 1 'si el dato no es de tipo Null lo agrega If Not IsNull(rst.Fields(Campo)) Then Item.SubItems(i_SubItem) = rst.Fields(Campo) End If i_SubItem = i_SubItem + 1 Next 'Ir al Siguiente registro rst.MoveNext Wend 'Reestablecer el puntero del mouse ListView.Parent.MousePointer = vbDefault 'seleccionar el item que estaba seleccionado If Not ListView.SelectedItem Is Nothing And Ant_Item <> 0 Then ListView.ListItems(Ant_Item).Selected = True End If Exit Sub 'Error ErrSub: MsgBox Err.Description, vbCritical, " Error " ListView.Parent.MousePointer = vbDefault End Sub

Código fuente en el Form1

Option Explicit 'Variables para la Base de datos y el Recordset de ADO Dim rst As ADODB.Recordset Dim Cnn As ADODB.Connection Dim SQL As String Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) Form2.Cargar_TextBox ListView1, SQL, Cnn 'Abre el Form en forma Modal Form2.Show 1 End Sub Private Sub Form_Load() Dim ruta As String 'Nueva conexión ADO Set Cnn = New ADODB.Connection Cnn.CursorLocation = adUseClient 'Path de la base de datos ruta = "C:\Archivos de programa\Microsoft Visual Studio\VB98\nwind.mdb" 'Abre la conexión Cnn.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & ruta & ";" SQL = "Select IdCategoría,NombreCategoría,Descripción From Categorías" 'carga el ListView (el ListView, el SQL y la conexión ADODB Call Cargar_ListView(ListView1, SQL, Cnn) Me.Caption = " Ejemplo para editar un Listview " End Sub Private Sub Form_Resize() ListView1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight End Sub Private Sub Form_Unload(Cancel As Integer) On Local Error Resume Next rst.Close Cnn.Close Set rst = Nothing Set Cnn = Nothing End Sub

Código fuente en el Form2

Option Explicit 'Variables locales para hacer referencia al Listview, _ y la conexión ADODB Dim m_ListView As ListView Dim m_Cnn As ADODB.Connection Dim m_SQL As String 'Sub para guardar el registro modificado en la Base de datos '************************************************************** Public Sub Guardar_Datos() Dim Campo As Integer Dim rst As ADODB.Recordset Dim Registro_Actual As Integer Set rst = New ADODB.Recordset 'Abre el recordset rst.Open m_SQL, m_Cnn, adOpenStatic, adLockOptimistic 'Se Posiciona en el Primer registro rst.MoveFirst ' Recorre uno a uno los registros For Registro_Actual = 1 To rst.RecordCount 'Si estamos en el REgistro actual .. lo edita If m_ListView.SelectedItem = rst.Fields(0) Then 'Recorre los campos For Campo = 0 To rst.Fields.Count - 1 ' Edita los datos del registro actual Dim Valor As Variant On Error Resume Next Valor = Convertir_Dato(rst.Fields(Campo), Text1(Campo).Text) rst.Fields(Campo).Value = Valor On Error GoTo 0 Next Exit For Else 'siguiente registro rst.MoveNext End If Next Registro_Actual 'Actualiza el recordset rst.Update 'Elimina el recordset Set rst = Nothing 'Vuelve a cargar los datos en el ListView del Form principal (Form1) Call Cargar_ListView(m_ListView, m_SQL, m_Cnn) End Sub Function Convertir_Dato(rst As ADODB.Field, Valor As Variant) As Variant Select Case rst.Type Case adInteger: Convertir_Dato = CLng(Valor) Case adSmallInt: Convertir_Dato = CInt(Valor) Case adChar: Convertir_Dato = CStr(Valor) Case adEmpty: Convertir_Dato = Empty Case adSingle: Convertir_Dato = CSng(Valor) Case adDouble: Convertir_Dato = CDbl(Valor) Case adCurrency: Convertir_Dato = CCur(Valor) Case adBoolean: Convertir_Dato = CBool(Valor) Case adVarChar: Convertir_Dato = CStr(Valor) Case adLongVarChar: Convertir_Dato = CStr(Valor) Case adDate: Convertir_Dato = CStr(Valor) Case adUnsignedTinyInt: Convertir_Dato = CByte(Valor) End Select End Function 'Sub que carga dinámicamente los textbox, y le asigna los valores '***************************************************************** Sub Cargar_TextBox(ListView As ListView, _ SQL As String, _ ByVal Cnn As ADODB.Connection) Dim Item As ListItem Dim Columna As Byte Dim t_Top As Single Dim Margen As Single Set m_Cnn = Cnn Set m_ListView = ListView m_SQL = SQL 'Referencia al Item actual seleccionado en el Listview Set Item = ListView.SelectedItem Margen = 150 Me.AutoRedraw = True Me.CurrentY = Margen Me.CurrentX = Margen Me.Print ListView.ColumnHeaders(1).Text Me.Text1(0).Move 2500, Margen, _ Me.ScaleWidth - Margen - 2500 Me.Text1(0).Text = Item.Text 'Recorre el ListView para cargar las cajas de texto For Columna = 1 To ListView.ColumnHeaders.Count - 1 'Crea un nuevo textbox Load Me.Text1(Columna) ' Posiciona el Primer textbox t_Top = Me.Text1(Columna - 1).Height + Me.Text1(Columna - 1).Top Me.CurrentY = t_Top Me.CurrentX = Margen 'Imprime el valor del campo en el formulario Me.Print ListView.ColumnHeaders(Columna + 1).Text 'Posiciona y redimensiona los textbox Me.Text1(Columna).Left = 2500 Me.Text1(Columna).Top = t_Top Me.Text1(Columna).Width = Me.ScaleWidth - Margen - 2500 'Hace el textBox visible y le asigna el dato Me.Text1(Columna).Visible = True Me.Text1(Columna).Text = Item.SubItems(Columna) Next 'Posiciona los CommandButton ( El Command de Aceptar y el de cancelar ) Me.CmdCancelar.Move Me.ScaleWidth - 1100, _ t_Top + 100 + Me.Text1(0).Height, _ 1000, 300 Me.CmdAceptar.Move Me.CmdCancelar.Left - 1100, _ t_Top + 100 + Me.Text1(0).Height, _ 1000, 300 'Establece el alto al formulario Me.Height = Me.CmdAceptar.Top + Me.CmdAceptar.Height * 3 'Dibuja un recuadro de contorno Me.Line (10, 10)-(Me.ScaleWidth - 10, Me.ScaleHeight - 10), vbBlack, B Me.Line (50, 50)-(Me.ScaleWidth - 50, Me.ScaleHeight - 50), vbBlack, B Me.Caption = " Editando registro número " & Item.Index End Sub 'Guarda los datos en la base de datos y sale Private Sub CmdAceptar_Click() Guardar_Datos Unload Me End Sub 'Cancela y cierra el form Private Sub Cmdcancelar_Click() Unload Me End Sub Private Sub Form_Load() CmdAceptar.Caption = " Aceptar " CmdCancelar.Caption = " Cancelar " End Sub Private Sub Form_Unload(Cancel As Integer) Set m_Cnn = Nothing Set m_ListView = Nothing End Sub

Buscar en Recursos vb