Jak uruchomić kwerendy dostępu w języku Visual Basic

Krok 1

Uruchom pakiet Microsoft Office Access i wybierz "Pusta baza danych". Nazwij bazę danych jako "QueryTest" i kliknij "Utwórz".

Krok 2

Utwórz nową tabelę i nadaj jej nazwę "Tabela1". W pierwszym wierszu napisz "John" pod "Field1" i "Smith" w "Field2".

Dodaj kolejny wiersz, wpisując "James" pod "Field1" i "Gonzalez" w "Field2". Zapisz tabelę "Tabela 1" i zamknij ją.

Krok 3

Uruchom program Microsoft Visual Basic 2010 Express i wybierz "Nowy projekt" z menu "Plik". Wybierz "Windows Forms Application" i kliknij "OK".

Kliknij "Pasek narzędzi" w lewym okienku okna i dwukrotnie kliknij "Przycisk", aby dodać przycisk do formularza. Kliknij dwukrotnie "Button1", aby otworzyć moduł "Form1.vb", czyli miejsce, w którym napiszesz swój kod.

Krok 4

Wpisz "Imports System.Data.OleDb" u góry modułu "Form1.vb". Kliknij wewnątrz "Private Sub Button1_Click", aby rozpocząć pisanie kodu Visual Basic.

Krok 5

Napisz poniższe, aby zadeklarować swoje połączenia i zmienne poleceń:

Dim myConnToAccess jako OleDbConnection Dim mySQLCommand jako OleDbCommand Dim mySQLStrg As String

Krok 6

Wpisz następujące polecenie, aby otworzyć połączenie z bazą danych programu Access o nazwie "TestQuest":

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

Edytuj część kodu "Source = C: \ QueryTest.mdb" i wpisz ścieżkę, w której zapisałeś swoją bazę danych Access.

Krok 7

Napisz następujące polecenie, aby wykonać kwerendę "Usuń" w bazie danych:

mySQLStrg = "DELETE Table1.Field1 FROM Table1 WHERE ((((Table1.Field1) = 'John'))); mySQLCommand = Nowa nazwa OleDbCommand (mySQLStrg, myConnToAccess) mySQLCommand.ExecuteNonQuery ()

Poprzez to zapytanie usuniesz rekord, w którym "Pole 1" jest równe "Jan".

Naciśnij "F5", aby uruchomić program i kliknij "Button1".