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

325 - Obtener campos de una tabla con Adox

Ejemplo simple para obtener los campos de una tabla mediante Adox , recorriendo la colección Columns del objeto Table de

El formulario de ejemplo pide mediante un Inputbox el nombre de la tabla a la cual se quieren recuperar los nombres de los campos. Luego los agrega a un ListBox.

Para recorrer en la tabla dichos campos, se crea un objeto de tipo Table del objeto Catalog de Adox , para poder hacer referencia a la tabla en cuestión, y luego se recorre en un bucle For Next los campos, mediante la colección Columns

vista del formulario de visual basic para obtener los campos

Controles

Un control Listbox
Un control CommandButton
La referencia para poder acceder a Adox ( Microsoft Ado Ext for dll and security )

Enlace relacionado : Obtener tablas de una base de datos

Código fuente en el formulario

Option Explicit '*************************************************************************** '* Name : Ejemplo para obtener los campos de una tabla '* Referencias: Microsoft Ado Ext for dll and security ( Adox) '*************************************************************************** Public Sub Obtener_Campos(ByVal Ruta_BD As String, La_Tabla As String) On Error GoTo Err_Sub Const cadena As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " ' Nuevo objeto catalog Dim Obj_catalog As ADOX.Catalog Set Obj_catalog = New ADOX.Catalog ' Abre la base de datos Obj_catalog.ActiveConnection = cadena & Ruta_BD ' Nuevo objeto Table para hacer referencia a la tabla _ que contiene los campos para agregar al listox Dim Obj_Tabla As ADOX.Table Set Obj_Tabla = New ADOX.Table ' crea la referencia a la tabla pasandole el nombre Set Obj_Tabla = Obj_catalog.Tables(La_Tabla) Dim i As Integer ' Recorre los campos con la colección Columns For i = 0 To Obj_Tabla.Columns.Count - 1 List1.AddItem Obj_Tabla.Columns(i).Name Next Eliminar_Objetos: ' Elimina las referencias a Adox Set Obj_catalog = Nothing Set Obj_Tabla = Nothing Exit Sub Err_Sub: ' Elimina las referencias a Adox MsgBox Err.Description, vbCritical GoTo Eliminar_Objetos End Sub Private Sub Command1_Click() Dim ret As Boolean Dim tabla As String Dim Path_Bd As String tabla = InputBox(" Nombre de la tabla para obtener los campos ", " Nombre de tabla ") If tabla = vbNullString Then Exit Sub End If Me.Caption = " Tabla selecionada: " & tabla ' Path de la base de datos Path_Bd = "C:\Archivos de programa\Microsoft Visual Studio\VB98\biblio.mdb" ' Le pasa a la rutina el path de la base de datos y el nombre de la tabla Call Obtener_Campos(Path_Bd, tabla) End Sub Private Sub Form_Load() Command1.Caption = " Indicar el nombre de la Tabla" End Sub

Enlaces relacionados

Recursos vb.net - Enlaces relacionados

Obtener campos en un comboBox de una tabla de sql server en Visual basic.NET

Buscar en Recursos vb