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

393 - Ado , Listview y clave única

Ejemplo enviado por Juan Paz , para crear una clave única para un item de un Lv

Este ejemplo, lo que hace es cargar un recordset de tipo Ado en un control ListView . Y en el momento de agregar el Item, en el parámetro Key del mismo

Listview.ListsItem(index).Add Index,Key,Texto,Icono

.. le asigna como valor a este parámetro, el valor del campo que hace de clave única . Pero, al parámetro o propiedad Key del Listview , se le agrega un caracter alfanumérico al final de la clave ya que si no da error. Por ejemplo :

Primero Se agrega el texto del item :

Set Item = .ListItems.Add(, , Rst.Fields(0))

Luego la clave de este Item , mas la letra "K":

Item.Key = Rst.Fields(NameCampoClave) & "K"

Luego , para obtener la clave única de ese item , sin el caracter añadido , se visualiza el mismo con la función Val, y este retornará el número solo

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    ' visualiza la clave
    MsgBox Val(Item.Key), vbInformation
End Sub

Ejemplo :

Agregar un control Listview, la referencia a Ado (Microsoft Activex Data Objects ), Un Text1 para indicar la ruta de la base de datos, un Text2 para indicar el Sql, y un CommandButton :

Código fuente en el formulario

Option Explicit 'Variables para el recordset y la conexión ''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim Rst As Recordset Dim cnn As Connection Private Sub Command1_Click() ' parámetros : 1-El ListView, la ruta de la base de datos, el _ comando sql, y el campo para la clave Call Cargar_ListView(ListView1, Trim$(Text1), Trim$(Text2), "Au_ID") End Sub Sub Cargar_ListView(ListView As ListView, _ PathBd As String, _ sql As String, _ NameCampoClave As String) Dim Campo As Integer On Error GoTo ErrSub 'Referencia para el Item Dim Item As ListItem Dim i As Long 'Crea un objeto Connection y un nuevo Recordset Set cnn = New Connection Set Rst = New Recordset 'Se Abre la base de datos cnn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & PathBd) 'Se abre el Recordset Rst.Open sql, cnn, adOpenDynamic, adLockOptimistic Me.MousePointer = vbHourglass With ListView 'Tipo de Vista .View = lvwReport ' Elimina los items y las columnas .ListItems.Clear .ColumnHeaders.Clear 'crea los encabezados For Campo = 0 To Rst.Fields.Count - 1 .ColumnHeaders.Add , , Rst.Fields(Campo).Name Next ' Recorre el recordset While Not Rst.EOF 'Agrega el Item Set Item = .ListItems.Add(, , Rst.Fields(0)) ' agrega la clave con el texto Item.Key = Rst.Fields(NameCampoClave) & "clave" i = 1 ' Añade los SubItem For Campo = 1 To Rst.Fields.Count - 1 'Verifica que el tipo de dato no sea un Null If Not IsNull(Rst.Fields(Campo)) Then Item.SubItems(i) = Rst.Fields(Campo) End If i = i + 1 Next 'Siguiente registro Rst.MoveNext Wend End With Me.MousePointer = vbDefault Exit Sub 'Error ErrSub: MsgBox Err.Description, vbCritical, "Error" Me.MousePointer = vbDefault End Sub Private Sub Form_Load() Me.Caption = "Asignar Key a item de ListView con Ado" Command1.Caption = " Cargar ListView " ' ruta de la bd Text1 = "C:\Archivos de programa\Microsoft Visual Studio\VB98\biblio.mdb" ' sql Text2 = "Select Top 100 * From Authors" End Sub Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) ' visualiza la clave MsgBox Val(Item.Key), vbInformation, "Clave" End Sub

Buscar en Recursos vb