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

Como diseñador de base de datos o un administrador que es posible que 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 cumplida . En VBA puede crear sentencias SQL que luego se puede ejecutar a través del uso de un objeto de conjunto de registros. El objeto de conjunto de registros representa el conjunto completo de los registros 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 el Editor de Microsoft Visual Basic . Crear un nuevo procedimiento sub añadiendo el siguiente código: Private Sub

countColumnsInDB ()
2

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

strSQL As String Dim

tblArray ( 4 ) As String

Dim x As Integer

totalClmns Dim As Integer

rst As Recordset
< p> Dim dbs como base de datos

Set dbs = CurrentDb
3

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

tblArray ( 0 ) = " Clientes "

tblArray ( 1 ) = " Employees"

tblArray ( 2 ) = " Facturas"

tblArray ( 3 ) = " Orders"
Página 4

Crear un " For ... Loop" y ejecutar una consulta SQL para cada una de las tablas de la gama definida en el paso tres . Obtenga 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)) & ". * FROM "& ( tblArray (x ) ) &" ; "

Set rst = 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

pantalla el número total de columnas que se encuentran en las tablas

Debug.Print " número total de columnas de la base de datos : " . y totalClmns
6

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