Ako spočítať počet stĺpcov v programe Access 2007 databázu pomocou SQL

Ako návrhár databázy alebo správcu môžete naraziť na potrebu stanoviť množstvo stĺpcov v databáze programu Access získať predstavu o tom , aký veľký to môže byť . V programe Access môžete použiť Visual Basic for Applications , aby sa táto úloha splnená . Vo VBA môžete vytvárať SQL príkazy , ktoré potom môžete vykonať pomocou použitia rekord objektu. Sada záznamov objekt predstavuje kompletnú sadu záznamov z výsledkov dotazu , ktorý potom môžete použiť na určenie množstva stĺpcov . Pokyny dovolená 1

Kliknite na " Databázové nástroje " a kliknite na " Visual Basic " pre otvorenie editora jazyka Visual Basic . Vytvoriť nový čiastkové postup pridaním nasledujúceho kódu :

Private Sub countColumnsInDB ( )
2

Vytvorte nasledujúce premenné pridaním nasledujúceho kódu :

Dim strSQL As String Dim

tblArray ( 4 ) As String

Dim x As Integer

Dim totalClmns As Integer

Dim rst Ako Recordset

Dim dbs ako databáza

Set DB = CurrentDb
Sims 3

definovať tabuľky v databáze zahrnúť do počtu stĺpcov .

tblArray ( 0 ) = " Zákazníci "

tblArray ( 1 ) = " Zamestnanci "

tblArray ( 2 ) = " Faktúry "

tblArray ( 3 ) = " Objednávky "
Stránka 4

Vytvorenie " pre ... Loop " a spustiť SQL dotaz pre každú z tabuliek v poli vymedzenom v kroku tri . Získajte počítať stĺpec pre každú tabuľku a tiež udržať celkový počet všetkých stĺpcov .

X = 0 až 3

strSQL = " SELECT " a ( tblArray ( x ) ) & " . * FROM " & ( tblArray ( x ) ) & " ; "

Set rst = dbs.OpenRecordset ( strSQL )

Debug.Print tblArray ( x ) & " Tabuľka obsahuje " & RST . Fields.Count a " stĺpy "

totalClmns = totalClmns + rst.Fields.Count

rst.Close

Nasledujúci x
5

Zobraziť . celkový počet stĺpcov nájdete v tabuľkách

Debug.Print " celkový počet stĺpcov v databáze : " & totalClmns
6

Ukončenie postupu zadaním " End Sub " . Stlačením tlačidla " CTRL " a " G " sa zobrazí okno Immediate . Stlačením tlačidla " F5 " pre spustenie procedúry a zobrazenie výsledkov pomocou Immediate okno .

• Predchádzajúca strana: Ako zakázať ukazovateľa myši s VBA v programe Word 
• Ďalšia strana: Ako písať XLS súboru vo VB