Como designer de banco de dados ou administrador, você pode se deparar com a necessidade de determinar a quantidade de colunas em um banco de dados para ter uma idéia de quão grande pode ser . No Access , você pode usar o Visual Basic for Applications para começar essa tarefa cumprida. No VBA você pode construir instruções SQL que você pode, então, executar através do uso de um objeto de conjunto de registros. O conjunto objeto de registro representa todo o conjunto de registros dos resultados da consulta que você pode usar para determinar a quantidade de colunas. Instruções
1
Clique em "Ferramentas de banco de dados " e clique em " Visual Basic" para abrir o Microsoft Visual Basic Editor. Criar um novo procedimento sub adicionando o seguinte código: Private Sub
countColumnsInDB ()
2
Criar as seguintes variáveis para , adicionando o seguinte código: Dim
strSQL As String Dim
tblArray (4) As String
Dim x As Integer Dim
totalClmns As Integer
Dim rst Como Recordset
dbs as Database Dim
Set dbs = CurrentDb
3
definir as tabelas em seu banco de dados para incluir na contagem de coluna.
tblArray ( 0) = "clientes"
tblArray (1) = "empregados"
tblArray (2) = "Faturas"
tblArray ( 3 ) = " pedidos" < br >
4
Criar um " For ... loop" e executar uma consulta SQL para cada uma das tabelas na matriz definida na etapa três . Get a coluna contar para cada tabela e também manter uma contagem total para todas as colunas .
Para x = 0 a 3
strSQL = "SELECT" & ( tblArray (x)) & " . * FROM "& ( tblArray (x)) &"; "
Set rst = dbs.OpenRecordset ( strSQL )
Debug.Print tblArray (x ) &" tabela contém "& rst . fields.Count e "colunas"
totalClmns = totalClmns + rst.Fields.Count
rst.Close
Próxima x
5
Exibição . o número total de colunas encontradas em suas tabelas
Debug.Print "Número total de colunas no banco de dados :" & totalClmns
6
terminar o procedimento digitando " End Sub ". Pressione " CTRL " e " G " para visualizar a janela Immediate. Pressione " F5" para executar o procedimento e ver os resultados através da janela imediata.
