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 spare filtrerte data til en annen tabell i Access
    Å vite hvordan man skal lagre informasjon fra en tabell til en annen tabell kan du spare tid ved overføring av data i en database . Microsoft Office Access er en relasjonsdatabase styringssystem inkludert i Microsoft Office-pakken. Visual Basic for Applications ( VBA ) er et programmeringsspråk utviklet av Microsoft. VBA kan brukes i Access å automatisere prosesser ellers utføres manuelt . I noen få trinn kan du skrive VBA -kode for å spørre data fra én tabell og lagre den i en annen tabell . Instruksjoner
    en

    start Microsoft Office Access 2007 og velg "Blank Database ," klikk " Opprett". Klikk på " Database Verktøy ", velg deretter " Visual Basic. "
    2

    Klikk på " Insert "-feltet og velg " Module ".

    Kopier og lim inn følgende kode i modulen : en

    Private Sub createNewTable ( )

    Dim rst Som Recordset

    Dim db As Database

    Dim SQLstr As String

    SQLstr = "CREATE TABLE CustomerInfo ( Fornavn TEKST ( 25 ) , Etternavn TEKST ( 25 )); "

    DoCmd.RunSQL ( SQLstr )

    SQLstr = " INSERT INTO CustomerInfo ( [Fornavn ] , [Etternavn ] ) "

    SQLstr = SQLstr &" VALUES ( ' John ', ' Williams '); "

    DoCmd.SetWarnings False

    DoCmd.RunSQL ( SQLstr )

    SQLstr = " INSERT INTO CustomerInfo ( [Fornavn ] , [Etternavn ] )"

    SQLstr = SQLstr & " VALUES ( ' Charles ', ' Gonzalez '); "

    DoCmd . VisAdvarsler False

    DoCmd.RunSQL ( SQLstr )

    SQLstr = "SELECT CustomerInfo.FirstName , "

    SQLstr = SQLstr & " CustomerInfo.LastName INTO CharlesInfo "

    SQLstr = SQLstr & " FROM CustomerInfo "

    SQLstr = SQLstr & " WHERE ( ( ( CustomerInfo.FirstName ) = ' Charles ' )); "

    DoCmd.SetWarnings False

    DoCmd.RunSQL ( SQLstr )

    End Sub
    3

    Trykk " F5 " for å kjøre din subrutine . Koden vil opprette en ny tabell og legge til to nye registreringer av data . En ny tabell opprettes der " Fornavn" er lik " Charles ".

    früher :

     Weiter:
      Relatert Artike
    ·Hvordan bruke Visual Basic Veiviser 
    ·Slik konverterer et heltall til en String i Visual Basi…
    ·Hvordan motta en SMS Bruke Visual Basic 
    ·Slik viser Form 2 i Visual Basic 
    ·Hvordan bruke IndexOf i VB.NET 
    ·Visual Basic ListView Tutorial 
    ·Kryptering Library for VBA 
    ·Hvordan skrive dato og klokkeslett Gjennom Visual Basic…
    ·Hvordan lage sikkerhetsprogramvare i VB.Net 
    ·Slik kopierer fil innhold Into Word og Vice Versa Bruke…
      Anbefalte artikler
    ·Hvordan sette inn flere rader Fra SPUFI 
    ·Hvordan bygge en streng og still inn teksten med String…
    ·Hvordan Lukk en PHP Statement 
    ·Hvordan Skyll Buffer i C + + 
    ·Slik konverterer RGB til HSL i Python 
    ·Hva er hensikten med en boolsk Operator 
    ·Returnere verdien av VBA Funksjon 
    ·Prosentvis funksjon i PHP 
    ·Hva er spesialtegn i Computer Coding 
    ·Slik publiserer Med CPP 
    Copyright ©  Datamaskin  http://www.datamaskin.biz/