Tecnología

Inicio

Cómo contar el número de columnas en una base de datos Access 2007 mediante SQL

Cómo contar el número de columnas en una base de datos Access 2007 mediante SQL


Como diseñador de la base de datos o el administrador puede ejecutar en la necesidad de determinar la cantidad de columnas en una base de datos para tener una idea de lo grande que sea. En Access puede utilizar Visual Basic para aplicaciones para conseguir esta tarea a cabo. En VBA se puede construir sentencias SQL que luego se puede ejecutar a través del uso de un objeto de conjunto de registros. El objeto conjunto de registros representa todo el conjunto de registros a partir de los resultados de la consulta que luego se puede utilizar para determinar la cantidad de columnas.

Instrucciones

1 Haga clic en "Herramientas de base de datos" y haga clic en "Visual Basic" para abrir Microsoft editor de Visual Basic. Crear un nuevo procedimiento sub añadiendo el siguiente código:

Private Sub countColumnsInDB ()

2 Crea las siguientes variables para añadiendo el siguiente código:

Dim como secuencia strSQL

Dim tblArray (4) As String

Dim x As Integer

totalClmns As Integer Dim

Dim primera medida de registros

DBS dévil como Base de Datos

Set dbs = CurrentDb

3 Definir las tablas en la base de datos para incluir en el número de columnas.

tblArray (0) = "Clientes"

tblArray (1) = "Empleados"

tblArray (2) = "Facturas"

tblArray (3) = "Pedidos"

4 Crear un "bucle For ..." y ejecutar una consulta SQL para cada una de las mesas de la matriz definida en el paso tres. Obtener el número de columnas para cada tabla y también mantener un recuento total de todas las columnas.

Para x = 0 a 3

strSQL = "SELECT" y (tblArray (x)) & & (tblArray (x)) & "* FROM." ";"

Establecer primera = dbs.OpenRecordset (strSQL)

Debug.Print tblArray (x) y "tabla contiene" & rst.Fields.Count y "columnas"

totalClmns = totalClmns + rst.Fields.Count

rst.Close

Siguiente x

5 Mostrar el número total de columnas que se encuentran en las tablas.

Debug.Print "Número total de columnas en la base de datos:" & totalClmns

6 Terminar el procedimiento escribiendo "End Sub". Pulse "CTRL" y "G" para mostrar la ventana Inmediato. Pulse la tecla "F5" para ejecutar el procedimiento y ver los resultados a través de la ventana Inmediato.