|  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 att överföra data mellan tabeller

    Veta hur man överför data mellan databastabeller kan göra dina databasapplikationer mer dynamisk . Microsoft Office Access används ofta för att designa små och lokala databaser . I Access kan du använda Microsoft Visual Basic for Applications ( VBA ) för att automatisera rutinuppgifter som att överföra data från en tabell till en annan . VBA är en dator programmeringsspråk som ger dig mer flexibilitet att manipulera data . En fråga används hämta information från en databastabell. Saker du behöver
    Microsoft Office Access
    Northwind databas
    Visa fler instruktioner
    1

    Starta Northwind Microsoft Office Access-databas . Northwind-databasen ingår i Microsoft Office-paketet . Välj " Infoga " -menyn och klicka
    2

    Skriv följande för att skapa en ny subrutin " Modul . " :

    Private Sub Dataöverföring ( ) katalog

    Tryck " Ange " Addera 3

    Skriv följande för att deklarera dina variabler : .

    Dim stringSQL As String

    Dim db som databas

    Dim rst som Recordset

    Dim rstTwo som Recordset

    Set db = CurrentDb
    4

    Skriv följande för att skapa en ny tabell och dataöverföring :
    < p > stringSQL = " CREATE TABLE employeeNames ( Efternamn TEXT ( 25 ) , Förnamn TEXT ( 25 ) ) ; "

    DoCmd.RunSQL ( stringSQL ) katalog

    Skriv följande för att öppna den nya tabellen genom ett Recordset för att lägga till data :

    Set rstTwo = db.OpenRecordset ( " employeeNames " )
    5

    Skriv följande för att söka i tabellen "employees" :

    stringSQL = " SELECT Employees.Company , "

    stringSQL = stringSQL & " Medarbetare . [ Efternamn ] , "

    stringSQL = stringSQL & " Medarbetare . [ Förnamn ] "
    < p > stringSQL = stringSQL & " FROM Anställda ; "

    Set rst = db.OpenRecordset ( stringSQL ) katalog

    rst.MoveLast

    rst.MoveFirst
    6

    Skriv följande för att loopa igenom frågan och överföring " Efternamn " och " förnamn " till " employeeNames " table :

    Do While Not rst.EOF

    rstTwo . SparNy

    rstTwo.Fields ( "Efternamn " ) . Standard = rst.Fields ( " [ Efternamn ] " ) . Standard

    rstTwo.Fields ( " Förnamn " ) . Value = RST . fält ( " [ Förnamn ] " ) . Value

    rstTwo.Update

    rst.MoveNext

    Loop
    7

    Skriv följande för att frisättning variabler från minnet :

    rst.Close

    rstTwo.Close

    db.Close

    Tryck " F5 " för att köra din subrutin
    . Addera ditt

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur man gör en Google-knappen i Visual Basic
    ·Hur vill ändra teckensnitt i System.Windows.Textbox
    ·Hur man gör en Logon Script
    ·Hur konvertera Visual Basic 6
    ·VBS Script Tutorial
    ·Hur till Redigera program i Visual Basic
    ·Hur formaterar jag datum i VBS
    ·Så här visar filnamnen i ett Listbox
    ·Handledning för Lägga till data i VB 2008 med hjälp …
    ·Hur man gör en Key Presser med VB
    Utvalda artiklarna
    ·Konvertera en lista till en sträng i Java
    ·Hur man bygger en mp3-spelare med PHP
    ·Hur till utgång Skifttecken till fil i PHP
    ·PHP -koder på samma server som MySQL Server
    ·Hur att rensa Textruta Varje gång listrutor värdeför…
    ·Hur man slår ihop två sorterade ADT Listor
    ·Hur man läser en sträng från ett fönster i AutoIt
    ·Byte & Bitskillnaderna
    ·Hur man skriver ut Pekare i C
    ·Hur man utför en Record Sök i ett Java-program
    Copyright © Dator Kunskap http://www.dator.xyz