× Aktuálně z oboru

Programátoři po celém světě dnes slaví Den programátorů [ clanek/2018091300-programatori-po-celem-svete-dnes-slavi-den-programatoru/ ]
Celá zprávička [ clanek/2018091300-programatori-po-celem-svete-dnes-slavi-den-programatoru/ ]

Jak na databáze v Microsoft DAO

[ http://programujte.com/profil/20356-jakub-dvorak/ ]Google [ ?rel=author ]       [ http://programujte.com/profil/118-zdenek-lehocky/ ]Google [ ?rel=author ]       21. 8. 2005       11 405×

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

Článek stažen z webu Programujte.com [ http://programujte.com/clanek/2005082401-jak-na-databaze-v-microsoft-dao/ ].