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.