Programování ve vývojovém prostředí Visual Basicu

Práce s databází

• pokud chceme pracovat s databázemi máme ve Visual Basicu v podstatě dvě možnosti – buď pomocí objektu Data nebo pomocí programového kódu (respektive propojení s knihovnou programu Microsoft Access)

Objekt DATA

• objekt data – slouží k propojení databáze s rozhraním Visual Basicu

• důležité vlastnosti jsou tyto :

  • Connect – určuje typ dokumentu (Access, Excel, FoxPro…)

  • DatabaseName – značí jméno souboru i s cestou

  • RecordSource – zdroj (tedy jméno tabulky, listu, či bůhvíčeho)

• toto byly nejdůležitěší vlastnosti objektu Data, teď ale jak propojit tuto databázi s ovládacími prvky, které máme na ploše? Jednoduše pomocí dvou vlastností:

  • DataField – určuje které pole z datábáze bude zobrazeno v tomto ovládacím prvku (u excelu je to který sloupec – myslím)

  • DataSource – určuje zdroj dat – v projektu můžeme mít více objektů data a proto se musí určite z kterého budou data brána

• dalšími důležitými metodami objektu data je podobjekt Recordset, přes něj se provádějí veškeré operace s otevřenou databází a to zejména:

  • MoveNext, MovePrevious – přesune se na další, předchozí záznam

  • MoveLast, MoveFirst – přesune se na první, poslední záznam

  • EOF, BOF – tyto hodnoty jsou nastaveny na True pokud se v databázi nacházíme na konci respektive na začátku

• tedy pokud například chcem přesunou o jedne záznam dál píšeme :

  • Data1.Recordset.MoveNext

Pomocí programové kódu

• práce s databází pomocí programového kódů je o něco složitější, ale poskytuje větší volnost a možnosti, už jen třeba tím, že můžeme vytvářet SQL Dotazy

• pokud chceme pracovat s databázemi je potřeba navázat refernce na knihovnu Microsoft DAO Object Library

• potom celé programování vychází s objektu DBEngine – v něm jsou uloženy všechny nástroje pro práci s databázemi

Dim dbDatabase As Database ‘deklarace proměnné databáze

Dim dbRecordset As Recordset ‘deklarace recordsetu (jako u data)

‘otevře do proměnné dbDatabase datatabázi „database.mdb“

‘nezapomeňte na klíčové slovo SET bez něj to nefunguje

Set dbDatabase = DBEngine(0).OpenDatabase("database.mdb")

‘Otevře do proměnné dbRecordset tabulku „Tabulka1“

Set dbRecordset = dbDatabase.OpenRecordset("Tabulka1")

‘Cyklus který se opakuje tolikrát dokud je hodnota EOF ‘objektu dbRecordset False

Do Until dbRecordset.EOF

‘Přidá do objektu List1 vždy hodnotu z aktuálního záznamu z pole „Pole1“

List1.AddItem dbRecordset.Fields("Pole1").Value

‘Přesune se v databázi na další záznam

dbRecordset.MoveNext

Loop

Práce se soubory

• práce se soubory se provádí pomocí standardních ovládacích prvků DriveListBox, DirListBox a FileListBox

• tyto objekty se spolu navzájem prováží a to tak, že objekt DriveListBox předá objektu DirListBox označení vybraného disku (a to takto DirListBox.Path=DriveListBox.Drive)

• dále objekt DirListBox předá hodtou Path objektu FileListBox, ve které je uloženy cesta vybraného adresáře (a to takto FileListBox.Path = DirListBox.Path)

• a pomocí objektu FileListBox se dá již normálně pracovat se s vybranými soubory a to na stejném principu jako se pracuje s ovládacím prvkem ListBox

• poznámka : všechny tyto příkazy se pro funkčnost programu musí psát do události Change