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

194 - Obtener propiedades de una base de datos utilizando DAO

Ejemplo enviado por Federico Aguero para poder listar las propiedades de una base de datos Access y los valores de las mismas utilizando DAO como conexión a la db

Para obtener las propieades se consulta en un bucle, el valor de la propiedad Name del objeto Property y para el valor de la misma con la propiedad Value. El resultado se imprime en el formulario.

Colocar la referencia Microsoft Dao en el proyecto

Código fuente

Option Explicit 'Ejemplo enviado por Martín Aguero '************************************** Private Sub Propiedad_BD(BdPath As String) Dim bd As Database Dim i As Integer Dim Propiedad As String Dim Name_Propiedad As String ' Abre la base de datos Set bd = DBEngine.Workspaces(0).OpenDatabase(BdPath, ReadOnly:=False) 'Recorre las propiedades mediante el objeto Properties de DAO For i = 0 To bd.Properties.Count - 1 Name_Propiedad = bd.Properties(i).Name On Error Resume Next Propiedad = bd.Properties(i).Value If Err.Number <> 0 Then Propiedad = "Desconocido" End If ' Imprime en form los valores Me.Print Name_Propiedad & " -> " & Propiedad Next i 'Cierra la base de datos bd.Close Screen.MousePointer = vbDefault End Sub Private Sub Command1_Click() 'Pasar aqui la ruta de la base de datos Propiedad_BD pathBd End Sub Private Sub Form_Load() AutoRedraw = True End Sub

Recursos visual basic.Net - Enlaces relacionados

Obtener esquema y propiedades de una tabla de sql server

Buscar en Recursos vb