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
Nové články
Vedení týmu v oboru informačních technologií se nijak zvlášť neliší od jiných oborů. Přesto však IT manažeři čelí výzvě v podobě velmi rychlého rozvoje a tím i rostoucími nároky na své lidi. Udržet pozornost, motivaci a efektivitu týmu vyžaduje opravdu pevné manažerské základy a zároveň otevřenost a flexibilitu pro stále nové výzvy.
Za poslední rok se podoba práce zaměstnanců změnila k nepoznání. Především plošné zavedení home office, které mělo být zpočátku jen dočasným opatřením, je pro mnohé už více než rok každodenní realitou. Co ale dělat, když se při práci z domova ztrácí motivace, zaměstnanci přestávají komunikovat a dříve fungující tým se rozpadá na skupinu solitérů? Odborníci na personalistiku dali dohromady několik rad, jak udržet tým v chodu, i když pracovní podmínky nejsou ideální.
Je klíčové, aby se lidé, kteří tráví čas ve facebookových skupinách cítili bezpečně a mohli tak sdílet své zájmy a životní zkušenosti se svým okolím. Právě proto společnost Facebook k dnešnímu dni zveřejňuje informace o své práci na zachovávání bezpečí ve skupinách na platformě.
Současná situace v šíření onemocnění Covid-19 klade na řadu firem nové nároky a mnohé z nich jsou nyní více než kdy jindy závislé na nejmodernějších informačních technologiích. Proto i v oblasti podnikových informačních systémů vidíme rostoucí důraz na automatizaci nebo na důslednou integraci. Také o těchto trendech se bude mluvit na konferenci Firemní informační systémy, která se koná 24.9.2020 v pražském Kongresovém centru Vavruška na Karlově náměstí.