|  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Så räkna antalet kolumner i en Access 2007- databas med SQL

    Som en databas designer eller administratör kan du stöta på behovet av att fastställa beloppet av kolumner i en Access-databas för att få en uppfattning om hur stort det kan vara . I Access kan du använda Visual Basic for Applications för att få denna uppgift utfört . I VBA kan du bygga SQL-satser som du sedan kan köra med hjälp av ett rekord uppsättning objekt . Skivan inställda objektet representerar hela uppsättning poster från frågeresultat som du sedan kan använda för att bestämma mängden av kolumner . Instruktioner
    1

    Klicka på " Databas Verktyg " och klicka på " Visual Basic " för att öppna Microsoft Visual Basic Editor . Skapa ett nytt sub förfarande genom att lägga till följande kod :

    Private Sub countColumnsInDB ( )
    2

    Skapa följande variabler till genom att lägga till följande kod :

    Dim strSQL As String

    Dim tblArray ( 4 ) As String

    Dim x As Integer

    Dim totalClmns As Integer

    Dim rst Som Recordset
    < p > Dim dbs som databas

    Set dbs = CurrentDb
    3

    Definiera tabellerna i din databas för att inkludera i kolumnen räknas .

    tblArray ( 0 ) = " Kunder "

    tblArray ( 1 ) = "Anställda"

    tblArray ( 2 ) = " Fakturor "

    tblArray ( 3 ) = " beställningar "

    4

    Skapa ett " för ... Loop " och exekvera en SQL-fråga för varje bord i arrayen definieras i steg tre . Få kolumnen räknas för varje bord och även hålla en totalsumma för alla kolumner .

    För x = 0 till 3 bilder

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

    Set rst = dbs.OpenRecordset ( strSQL ) katalog

    Debug.Print tblArray ( x ) & " tabellen innehåller " & rst . Fields.Count & "kolumner "

    totalClmns = totalClmns + rst.Fields.Count

    rst.Close

    Next x
    5

    Display det totala antalet kolumner som finns i tabellerna

    Debug.Print " totalt antal kolumner i databasen : " . & totalClmns
    6

    Avsluta proceduren genom att skriva " End Sub . " Tryck på " Ctrl " och " G " för att visa Immediate fönstret . Tryck " F5 " för att köra proceduren och visa resultatet genom Direktfönstret .

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur man skapar en SQL- sträng i VB.NET
    ·Hur köra Microsoft Visual Studio Sample Program
    ·Hur man ansluter två former i Visual Basic
    ·Vilka är de olika typerna av loopar i Visual Basic
    ·Lägga till en kombinationsruta ett ord i taget i stäl…
    ·Överbelastning metoder i Visual Basic
    ·Hur skicka variabler från Visual Basic till Access Que…
    ·Hur man använder Ersätt i VB.NET
    ·Hur man beräknar en kolumn Totalt i DataGrid
    ·Hur importerar jag kartfilerna på XNA
    Utvalda artiklarna
    ·Site Fel : Filen Kräver ionCube PHP Loader I /O
    ·Hur man skriver pseudokod för att beräkna skatt
    ·Så här kontrollerar för existensen av appSettings i …
    ·Konvertera byte till String
    ·Hur man gör en JTable i NetBeans
    ·Hur man hittar Om en klass existerar i Ruby
    ·Hur man byter en JavaScript String
    ·Hur man gör en filen setup.exe
    ·Hur Invertera Bråk i Visual Basic
    ·Vad är Python 2.5
    Copyright © Dator Kunskap http://www.dator.xyz