Jak na databáze v Microsoft DAO

Microsoft DAO poskytuje spoustu možností pro správu databází z programů napsaných ve Visual Basicu.

Chcete-li efektivně spravovat databáze ve svých databázových programech napsaných ve Visual Basicu, je vhodné k tomu využít Microsoft DAO. Najdete v něm všechny možné funkce pro správu db.

Přidávání dat do databáze

Dim db As Database 'Databáze
Dim rs As Recordset 'Záznamy
Set db = OpenDatabase("C:\vase_databaze.mdb") 'Deklarace db - Otevře databázi uvedenou v závorkách
Set rs = db.OpenRecordset("vase_tabulka", dbOpenDynaset) 'Deklarace rs - Otevře tabulku uvedenou v závorkách
rs.AddNew 'Přidat záznam
rs!vas_sloupec = "Něco" 'Přidá záznam "Něco" do sloupce uvedeného za rs!
rs.Update

Tento kód nám přidá do databáze 1 záznam.

Smazání aktuálního záznamu z databáze

Dim db As Database 'Databáze
Dim rs As Recordset 'Záznamy
Set db = OpenDatabase("C:\vase_databaze.mdb") 'Deklarace db - Otevře databázi uvedenou v závorkách
Set rs = db.OpenRecordset("vase_tabulka", dbOpenDynaset) 'Deklarace rs - Otevře tabulku uvedenou v závorkách
rs.Delete 'Smaže aktuální záznam

Editace jednoho záznamu v databázi

Dim db As Database 'Databáze
Dim rs As Recordset 'Záznamy
Set db = OpenDatabase("C:\vase_databaze.mdb") 'Deklarace db - Otevře databázi uvedenou v závorkách
Set rs = db.OpenRecordset("vase_tabulka", dbOpenDynaset) 'Deklarace rs - Otevře tabulku uvedenou v závorkách
rs.Edit 'Editace aktuálního záznamu
rs!vas_sloupec = "Ahoj" 'Změní aktuální záznam ve sloupci uvedeném za rs! na "Ahoj"
rs.Update