Dator
 |  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

    Hur man sparar filtrerad data till en annan tabell i Access

    Att veta hur man sparar information från en tabell till en annan tabell kan spara tid när du överför data i en databas . Microsoft Office Access är en relationsdatabas management system som ingår i Microsoft Office-paketet . Visual Basic for Applications ( VBA ) är en dator programmeringsspråk utvecklat av Microsoft . VBA kan användas i Access för att automatisera processer annars utförs manuellt . I några steg du kan skriva VBA-kod för att ställa frågor om data från en tabell och spara den i en annan tabell . Instruktioner
    1

    Starta Microsoft Office Access 2007 och välj " Tom databas , " klicka sedan på " Skapa ". Klicka på " Databas Verktyg " och välj sedan " Visual Basic . "
    2

    Klicka på " Infoga "-fältet och välj " Modul . "

    Kopiera och klistra in följande kod på din modul :

    Private Sub createNewTable ( ) katalog

    Dim rst Som Recordset

    Dim db som databas

    Dim sqlstr As String

    sqlstr = " CREATE TABLE customerinfo ( FirstName TEXT ( 25 ) , Efternamn TEXT ( 25 ) ), "

    DoCmd.RunSQL ( sqlstr ) katalog

    sqlstr = " INSERT INTO customerinfo ( [Förnamn ], [ Efternamn ] ) "

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

    DoCmd.SetWarnings False

    DoCmd.RunSQL ( sqlstr )

    sqlstr = " INSERT INTO customerinfo ( [ Förnamn] , [ Efternamn ] ) "

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

    DoCmd . SetWarnings False

    DoCmd.RunSQL ( sqlstr ) katalog

    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 ) katalog

    End Sub
    3

    Tryck " F5 " för att köra din subrutin . Koden kommer att skapa en ny tabell och lägga till två nya register över uppgifterna . En ny tabell skapas där " Förnamn " är lika med " Charles . " Addera

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur man går från textruta till Textruta i Visual Basi…
    ·Hur man använder DataGridView för MySQL i VB.NET
    ·Hur man skapar ett skript Password Reset i VB
    ·Kännetecken för Visual Basic
    ·Hur man gör en Flooder Med Visual Basic
    ·Hur man skapar formulär med Visual Basic
    ·Hur vill kolla Funktioner kod VB6
    ·Hur man skapar en fil Script Text att redigera registre…
    ·Hur man gör Pinnefigurer på Sant Basic
    ·Inaktivera muspekaren med VBA i Word
    Utvalda artiklarna
    ·Hur du trär i VB.Net
    ·Hur får SoapClient att Skicka ett Godkänn Header
    ·Hur man skapar en Typing Program
    ·Hur att få namnet på en Godkänd variabel i PHP
    ·Hur Pass ett Sub -ID i PHP
    ·Hur man tolka CSV i Perl
    ·Ett nytt fönster blockeras i JavaScript
    ·Så här kontrollerar Java Runtime Version
    ·Hur man skapar en tabell Query Använda Visual Basic
    ·Hur dela flera avdelare i JavaScript
    Copyright © Dator Kunskap http://www.dator.xyz