Základní řídící struktury Visual Basicu pro aplikace Accessu

Základní řídící struktury Visual Basicu pro aplikace Accessu.

Řídící struktury DB

Deklarace proměnné mojedb jako typ Database

Dim mojedb As Database

Deklarace proměnné tabulka jako typ Recordset

Dim tabulka As Recordset

Nastavení proměnné mojedb na aktuální zvolenou databázi

Set mojedb = CurrentDb()

Natavení proměnné tabulka na tabulku studenti umístěnou v aktuální zvolené databázi

Set tabulka = mojedb.OpenRecordset ( studenti“, dbOpenDynaset)

Nastaví ukazatel tabulky na první místo

tabulka.MoveFirst

Vrátí logický výraz (true nebo false) pokud se ukazatel přesuje pod poslední řádek tabulky

tabulka.EOF

Takto lze přistupovat ke sloupcům tabulky studenti a to jak pro zápis, tak i pro čtení

tabulka![telefon]

Přepne režim na zápis nového řádku tabulky

tabulka.AddNew

Ukončí a uloží provedené změny na daném řádku.

tabulka.Update

Posune ukazatel na další řádek

tabulka.MoveNext

Uzavře danou tabulku

tabulka.Close

Příklad použití

Napsat proceduru ve Visual Basicu, která z tabulky OSOBY1 (rodné-č, jméno, příjmení, místo, ulice, čp, PSČ) překopíruje všechny záznamy osob bydlících v Brně do tabulky OSOBY2 se stejnou strukturou. Úlohu vyřešte bez použití SQL s pomocí objektů typu recordset.

Sub kopirovani ()

Dim db1 As Database, db2 As Database, rst1 As Recordset, rst2 As Recordset

Set db1 = CurrentDb()

Set db2 = CurrentDb()

Set rst1 = db1.OpenRecordset ( osoby1“, dbOpenDynaset)

Set rst2 = db2.OpenRecordset (“osoby2“, dbOpenDynaset)

rst1.MoveFirst

While Not (rst1.EOF)

If rst1![misto] = “Brno“ then

rst2.AddNew

rst2![rodné-č] = rst1![rodné-č]

rst2![jméno] = rst1![jméno]

rst2![příjmení] = rst1![příjmení]

rst2![místo] = rst1![místo]

rst2![ulice] = rst1![ulice]

rst2![čp] = rst1![čp]

rst2![psč] = rst1![psč]

rst2.Update

End If

rst1.MoveNext

WEnd

rst1.Close

rst2.Close

End Sub