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