-
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.