Datamaskin
  | Hjem | Hardware | Nettverk | Programmering | Software | Feilsøking | Systems | 
Software  
  • Adobe Illustrator
  • animasjon programvare
  • Antivirus programvare
  • Audio programvare
  • Sikkerhetskopiere data
  • brenne CDer
  • brenne DVDer
  • Datakomprimeringsprotokoll
  • database programvare
  • Desktop Publishing
  • Desktop Video
  • Digital Video Software
  • Drupal
  • pedagogisk programvare
  • Engineering programvare
  • Arkiv Forlengelsen Typer
  • Financial Software
  • Freeware, Shareware & Abandonware
  • GIMP
  • Graphics Software
  • Hjem Recording Software
  • Microsoft Access
  • Microsoft Excel
  • Microsoft Publisher
  • Microsoft Word
  • Åpen Kildekode
  • Andre dataprogrammer
  • PC Games
  • Photoshop
  • Portable Document Format
  • PowerPoint
  • presentasjon programvare
  • produktivitet programvare
  • Quicktime
  • Remote Desktop Management
  • SQL Server
  • Skype
  • Programvare betaversjoner
  • programvare konsulenter
  • Software Development Selskaper
  • Software Licensing
  • regneark
  • Skatt forberedelse programvare
  • Utility programvare
  • Web Clip Art
  • Windows Media Player
  • Tekstbehandlingsprogrammet
  •  
    Datamaskin >> Software >> database programvare >> Content
    Hvordan få tilgang VBA Query til liste tabellene i en database
    Microsoft Access er en database management system for enkeltpersoner å lage sine egne databaser , rapporter og bruker former. Tilgang inneholder alle byggesteinene for utvikling av små programmer . Du kan lage tabeller for data , lagrede prosedyrer, brukerdefinerte funksjoner og makroer i tillegg til rapporter og skjemaer . Alle disse komponentene har sine egne pekere eller spille definisjoner som er lagret i et skjult system tabellen . Tilgang holder styr på hvert bord , rapport , skjema , etc. du oppretter og lagrer informasjon som når den ble opprettet eller oppdatert og system flagg. Instruksjoner
    Få en liste over tabeller
    en

    Lag en spørring for å kjøre SQL -kommandoen nedenfor . Denne spørringen henter en liste over alle tabellene i gjeldende Access- database. Den der klausulen bruker nummer 1 som tilsier at vi bare vil bordene returnert.

    SELECT MSysObjects.Name , MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects.Type , MSysObjects.Flags

    FRA MSysObjects

    HVOR MSysObjects.Type = 1
    2

    tilbake en liste med bare de ikke-system tabeller i databasen med eksempelet gitt : en

    SELECT MSysObjects . navn, MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects.Type , MSysObjects.Flags

    FRA MSysObjects

    HVOR MSysObjects.Type = 1 AND MSysObjects.Name Not Like " Msys *"

    3

    tilbake en liste med bare de ikke- skjulte tabeller i databasen ved å kjøre spørringen under:

    SELECT MSysObjects.Name , MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects . Type, MSysObjects.Flags

    fRA MSysObjects

    HVOR MSysObjects.Type = 1 AND MSysObjects.Flags < > 8
    4

    Sorter listen over ikke - skjulte , ikke-system tabeller ved hjelp av SQL -koden nedenfor :

    SELECT MSysObjects.Name , MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects.Type , MSysObjects.Flags

    FRA MSysObjects
    < p> HVOR MSysObjects.Type = 1 AND MSysObjects.Flags < > 8 OG MSysObjects.Name Not Like " Msys *"

    ORDER BY MSysObjects.Name
    Bruk List av tabeller i VBA
    5

    Load din liste over tabeller i en rekord satt objekt med VBA-kode vist nedenfor :

    Dim rsMyTables Som DAO.Recordset

    Set rsMyTables = CurrentDb.OpenRecordset ( " MyQuery ")
    6

    Loop gjennom hver post returneres i spørringen.

    Dim rsMyTables Som DAO.Recordset

    Set rsMyTables = CurrentDb.OpenRecordset ( " MyQuery ")

    Mens Ikke rsMyTables.EOF

    'Kode for å manipulere data

    rsMyTables.MoveNext

    Loop
    Side 7

    Legg hvert bord navn til en drop- down liste ved å endre din mens loop :

    Dim rsMyTables Som DAO.Recordset

    Set rsMyTables = CurrentDb.OpenRecordset ( " MyQuery " )

    Me.cmbMyComboBox.Clear

    Mens Ikke rsMyTables.EOF

    Me.cmbMyComboBox.AddItem rsMyTables ! [ navn]

    rsMyTables.MoveNext

    Loop
    8

    Lukk rekord satt objekt slik at det frigjør minne den bruker :

    Dim rsMyTables Som DAO.Recordset

    Set rsMyTables = CurrentDb.OpenRecordset ( " MyQuery ")

    Me.cmbMyComboBox.Clear

    Mens Ikke rsMyTables.EOF

    Me.cmbMyComboBox.AddItem rsMyTables ! [ navn]

    rsMyTables.MoveNext

    Loop

    rsMyTables.Close

    Set rsMyTables = Ingenting

    früher :

     Weiter:
      Relatert Artike
    ·Slik konverterer ECM filer til en ISO fil 
    ·Hvordan bruke Replace-funksjon i Oracle SQL 
    ·Hvordan Grupper etter Dato i SQL 
    ·Hva er svartelistet av Feb.Spamlab 
    ·Hvordan få tilgang til en Runtime Query 
    ·Hvordan erstatte et felt med nye data i Access 
    ·Hvordan legge til en hendelse på en knapp 
    ·Oracle SQL Developer Tutorial 
    ·Opplæring for Access 2007 spørretabeller 
    ·Hvordan beregne tiden gikk Access 2007 
      Anbefalte artikler
    ·Hvordan lage MP3 -URLer 
    ·Slik konverterer Avi filer til MPG filer 
    ·Hvordan å animere Excel i PowerPoint 2007 
    ·Hvordan slå slått av Menyer Tilbake på i Access 2007…
    ·Slik feilsøker en Kodak Gallery Slideshow 
    ·Hvordan Monter bildefiler Nesten Som DVD enheter 
    ·Hvordan lage et Ja /Nei Dialog Box i MS Access 2007 
    ·Hvordan ta bilder i World of Warcraft 
    ·Hvordan sette feltet lengde i en MS Access 2003 Query 
    ·Hvordan bruke Adobe Reader for Palm 
    Copyright ©  Datamaskin  http://www.datamaskin.biz/