Kuinka kopioidaRecordset taulukkoon Access 2007

Kuinka kopioidaRecordset taulukkoon Access 2007 Jupiterimages / Brand X Pictures / Getty Images

Tee Microsoft Access 2007 tietokantoja dynaamisempia ja automatisoitu Visual Basic Editor (VBE).VBE on ohjelmointi kuori mukana Access, joka käyttää Visual Basic for Applications (VBA).Yksi tehtävistä VBA on tuottaa tietokannasta ja tallentaa sen Recordset, jota voidaan käyttää ja manipuloida koodissa.Kun olet lopettanut työskentelyn tietuejoukko koodin, voit tallentaa sen takaisin pöytään, että olet vetänyt sen tai kopioida sen toiseen taulukkoon.

Ohjeet

  1. Avaa tietokanta Microsoft Access 2007 ja avaa Visual Basic Editor.Klikkaa "Database Työkalut" -välilehti ja sitten "Visual Basic" alkaen "Makrot & amp; Koodi" ryhmä.

  2. Klikkaa "Lisää" -valikosta kohteen Visual Basic Editor ja napsauta "Moduuli."Tai, jos sinulla on muodossa tai edellinen moduuli, jota haluat käyttää tämän menettelyn, avoin että sijastaan ​​kaksoisnapsauttamalla sitä Projektinhallinta ikkunan vasemmassa laidassa.

  3. Kirjoita menettely, joka vetää tietu

    ejoukko tietokannasta:

    "Sub RecordsetExample ()

    Dim dbTest kuin tietokanta" muuttuja että pitää tietokannan

    Dim rsRecordset kuin Recordset "muuttuja, joka pidä tietuejoukko

    Aseta dbTest = OpenDatabase ("MyDatabase.mbd ')" Muuta tämä nimi tietokannan

    Kanssa dbTest

    asettaa rsRecordset = .OpenRecordset ("taulukko 1", dbOpenTable) Vaihda Taulukko 1 nimen pöydän

    päättyvät "

  4. Kirjoita koodi kopioida tietuejoukko toiseen taulukkoon.Koodi näyttää tältä:

    "Dim sqlStatement kuin String

    " kyselyn lisätä sisään taulukossa. Muuta Ptaulukko 2 ja nimi taulukon

    sqlStatement = "INSERT INTO Ptaulukko 2 ARVOT" & amp; rsRecordset

    Kanssa rsRecordset

    rsRecordset.MoveFirst

    Do

    rsRecordset.RunSQL (sqlStatement)

    rsRecordset.MoveNext

    Loop Vaikka Ei rsRecordset.EOF

    päättyvät "

  5. Klikkaa" Save "kuvaketta Visual Basic Editor.Napsauta "Suorita (!)" Nappia jos haluat ajaa menettelyn ja kopioi tietuejoukko pöytään nyt.Jos ei, sulje Visual Basic Editor ja valitse "virasto" -painiketta ja sitten "Tallenna" tallentaaksesi muutoksia tietokantaan.

431
0
1
Tietokantaohjelmiston