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 Fylle et felt i VB Tilgang
    Din Access-programmet vil være lettere å bruke hvis du fylles ut automatisk felt i en tabell når du vet at data som går i dem . Dette kan oppnås ved hjelp av Visual Basic for Applications. Du kan bruke Recordset objektet for å åpne databasen tabellen og fylle alle felt i tabellen . Den AddNew metoden brukes til å opprette en ny rekord i Recordset objektet og Update metoden lagrer eventuelle endringer i posten. Instruksjoner
    en

    Klikk " Database Tools " og klikk " Visual Basic " for å åpne Microsoft Visual Basic-redigering . Klikk på " Insert"-menyen og klikk " Module " for å legge til en ny kode modul . Opprett en ny subprocedure ved å legge følgende kode:

    Private Sub populateField ( )
    2

    Lag variablene du vil bruke til å lage en ny tabell og fylle et felt :

    Dim dBS Som Database

    Dim rst Som Recordset

    Dim rowCntr som heltall

    Dim fNames ( 10 ) Som String

    Set dBS = CurrentDb
    3

    Befolke strengen array med data:

    fNames ( 0 ) = " John "

    fNames ( 1 ) = " Kitzia "

    fNames ( 2 ) = " Adaly "

    fNames ( 3 ) = " Oscar "

    fNames ( 4 ) = " Emilio "

    fNames ( 5 ) = " Carlos "

    fNames ( 6 ) = " Sylvia "

    fNames ( 7 ) = " Sebastian "

    fNames ( 8 ) = " Luis "
    < p> fNames ( 9 ) = " Joe "
    4

    Utfør en SQL-setning for å opprette en ny tabell i databasen med et tekstfelt : en

    sqlStr = "CREATE tABLE myNewTable ( Fornavn TEKST ( 50 )); "

    DoCmd.RunSQL ( sqlStr )
    5

    Åpne den nye tabellen ved hjelp av en Recordset : en

    Set rst = dbs.OpenRecordset ( " myNewTable ")
    6

    Lag en for loop å befolke " Fornavn" feltet på tabellen : en

    for rowCntr = 0 til 9

    rst . AddNew

    rst.Fields ( 0 ) . Verdi = fNames ( rowCntr )

    rst.Update

    Neste rowCntr
    7

    Lukk Recordset og avslutte subprocedure : en

    rst.Close

    End Sub
    8

    Trykk " F5 " for å kjøre prosedyren. Bytt tilbake til Microsoft Access og dobbeltklikk på " myNewTable " for å vise befolkede feltet .

    früher :

     Weiter:
      Relatert Artike
    ·Hvordan lage diagrammer i Visual Basic 
    ·Hvordan bruke XML i VB6 
    ·Hvordan bruke Bortskaff og Ingenting i VBA 
    ·Hvordan Bind en database til en ComboBox i Visual Basic…
    ·CByte Function 
    ·Slik installerer skrivere med VBScript 
    ·Hvordan Hånd Trace Gjennom Programvare Kode 
    ·Hvordan få tilgang til VBA Query Resultater 
    ·Hvordan få tilgang til e-post med Visual Basic 
    ·Hvordan bruke Silverlight i Asp.NET 
      Anbefalte artikler
    ·Hvordan oppdatere rader i MySQL 
    ·Slik importerer Fra SQL i MySQL 
    ·Hvordan endre adresselinjen i JavaScript 
    ·Hvordan legge til en avmerkingsboks til en DataGrid 
    ·Python Lambda Liste Forståelse 
    ·Hvordan Handlers Arbeidet med Android 
    ·MySQL Import Tutorial 
    ·Hvordan initialisert en Array i VBA 
    ·Hvordan legge til et bilde til et bilde i VB6 
    ·How to Program i Visual C 
    Copyright ©  Datamaskin  http://www.datamaskin.biz/