Jak spustit dotazy aplikace Access v jazyce Visual Basic

Krok 1

Spusťte aplikaci Microsoft Office Access a vyberte možnost "Prázdná databáze". Název databáze označte jako "QueryTest" a klikněte na tlačítko "Vytvořit".

Krok 2

Vytvořte novou tabulku a pojmenujte ji "Tabulka1". V prvním řádku napište "John" pod "Field1" a "Smith" pod "Field2".

Přidejte další řádek zadáním položky "James" pod "Field1" a "Gonzalez" do pole "Field2". Uložte tabulku "Table1" a zavřete ji.

Krok 3

Spusťte program Microsoft Visual Basic 2010 Express a v nabídce "Soubor" vyberte "Nový projekt". Vyberte "Windows Forms Application" a klikněte na "OK".

Klikněte na "Panel nástrojů" v levém podokně okna a poklepejte na "Tlačítko" a přidejte tlačítko do formuláře. Poklepáním na tlačítko "Button1" otevřete modul "Form1.vb", v němž napíšete kód.

Krok 4

Zadejte "Import System.Data.OleDb" v horní části modulu "Form1.vb". Klepněte na tlačítko "Private Sub Button1_Click" a začněte psát kód jazyka Visual Basic.

Krok 5

Napište následující prohlášení pro připojení a příkazové proměnné:

Dim myConnToAccess Jako OleDbConnection Dim mySQLCommand Jako OleDbCommand Dim mySQLStrg Jako řetězec

Krok 6

Zadejte následující postup pro otevření připojení k databázi aplikace Access s názvem TestQuest:

myConnToAccess = Nový OleDbConnection ("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C: \ QueryTest.mdb;") myConnToAccess.Open ()

Upravte část kódu "Source = C: \ QueryTest.mdb" a napište cestu, kde jste uložili databázi aplikace Access.

Krok 7

Napište následující spuštění dotazu "Delete" v databázi:

mySQLStrg = "DELETE Table1.Field1 FROM tabulka1 WHERE (((Table1.Field1) = 'John')); mySQLCommand = Nový OleDbCommand (mySQLStrg, myConnToAccess) mySQLCommand.ExecuteNonQuery ()

Tímto dotazem odstraníte záznam, ve kterém je "Field1" roven "John".

Stiskněte "F5" pro spuštění programu a klikněte na tlačítko "Button1".