Datamaskin
  | Hjem | Hardware | Nettverk | Programmering | Software | Feilsøking | Systems | 
Programmering  
  • C /C + + Programming
  • Computer Programmeringsspråk
  • Delphi Programming
  • Java Programming
  • JavaScript Programmering
  • PHP /MySQL programmering
  • Perl Programming
  • Python Programming
  • Ruby Programming
  • Visual Basics Programming
  •  
    Datamaskin >> Programmering >> Visual Basics Programming >> Content
    Hvordan få tilgang til en Lag tabell-spørring Autonummer
    Å vite hvordan du programmatisk opprette en tabell og deretter legge til en auto antall felt ved hjelp av Visual Basic for Applications ( VBA ) kan du spare tid når du arbeider med Microsoft Office Access . Access er en relasjonsdatabase styringssystem inkludert i Microsoft Office-pakken. VBA er et programmeringsspråk som brukes i Microsoft Office-programmer til å automatisere manuelle prosesser som skaper tabeller . I noen få trinn kan du skrive VBA -kode for å opprette en tabell , legge til data i den og legge en auto antall felt til det. Instruksjoner
    en

    Åpne Microsoft Office Access 2007 og klikk "Blank Database ", velg deretter "Create ". Klikk på " Database Verktøy ", velg deretter " Visual Basic " for å åpne Microsoft Visual Basic Window . Velg " Insert" -feltet og klikk
    2

    Kopier og lim inn følgende kode i modulen " Module ". : En

    Private Sub createAutoNumberField ( )

    Set dBS = Application.CurrentDb

    sQLString = "CREATE TABLE InstrumentInfo ( Instrument TEKST, løpenummer TEKST )"

    DoCmd.SetWarnings False

    DoCmd.RunSQL ( sQLString )

    strsql = " INSERT INTO InstrumentInfo VERDIER ( MXA ' , '83456 ' )"

    DoCmd.RunSQL ( strsql )

    strsql = " INSERT INTO InstrumentInfo VALUES (' Signal Generator ' , '1244532 ' ) "

    DoCmd.RunSQL ( strsql )

    Sett tblDef = dbs.TableDefs ( " InstrumentInfo ")

    Sett autoField = tblDef.CreateField ( " AutoColumn " , dbLong )
    p Med autoField

    . attributter = dbAutoIncrField

    End With
    p Med tblDef.Fields

    . Append autoField

    . Refresh

    End With

    End Sub
    3

    Kjør subrutinen ved å trykke " F5 ".


    früher :

     Weiter:
      Relatert Artike
    ·Hva er et Grid System 
    ·Hvordan lage en foreldre-barn relasjonen hjelp VB.NET 
    ·Hvordan bygge en telefonsvarer i VB6 
    ·Hvordan lagre data i Unbound DataGridView til en SQL Se…
    ·Hvordan bruke VBA til å lese en Microsoft Word-dokumen…
    ·Hvordan legge til en kontroll i Visual Basic for Applic…
    ·Hvordan bruke Visual Basic til å avgjøre forskjellen …
    ·Datatype VBScript funksjoner 
    ·Hvordan Fylle et alternativ gruppe med avmerkingsboksen…
    ·Hvordan endre et bilde i Visual Basic 
      Anbefalte artikler
    ·Hva er begivenhet Boblende 
    ·Hvordan erstatte Pascal 
    ·Hvordan sette Access Key i Visual Basic 
    ·Hvordan hente data i VB6 Bruke en Date Range 
    ·Hvordan tilgang til data i et datasett Object 
    ·Java Software Testing 
    ·Faser av OMT 
    ·Hvordan du kan overføre anførselstegn i VBS 
    ·Kjennetegn på Visual Basic 
    ·Hvordan bruke Rør i Java 
    Copyright ©  Datamaskin  http://www.datamaskin.biz/