Как да стартирате заявки за достъп в Visual Basic

Стъпка 1

Стартирайте Microsoft Office Access и изберете "Blank Database". Наименувайте базата данни като "QueryTest" и кликнете върху "Създаване".

Стъпка 2

Създайте нова таблица и я наименувайте "Таблица1". На първия ред напишете "John" под "Field1" и "Smith" под "Field2".

Добавете друг ред, като напишете "Джеймс" под "Поле1" и "Гонзалес" под "Поле2". Запишете таблицата "Таблица1" и я затворете.

Стъпка 3

Стартирайте Microsoft Visual Basic 2010 Express и изберете "Нов проект" от менюто "Файл". Изберете "Windows Forms Application" и кликнете върху "OK".

Кликнете върху "Лентата с инструменти" в левия прозорец на прозореца и кликнете двукратно върху "Бутон", за да добавите бутон към формуляра си. Щракнете двукратно върху "Button1", за да отворите модула "Form1.vb", където ще напишете вашия код.

Стъпка 4

Напишете "Импортиране на System.Data.OleDb" в горната част на модула "Form1.vb". Кликнете върху "Private Sub Button1_Click", за да започнете да пишете кода на Visual Basic.

Стъпка 5

Напишете следното, за да декларирате вашите връзки и командни променливи:

Dim myConnToAccess Като OleDbConnection Dim mySQLCommand Като OleDbCommand Dim mySQLStrg As String

Стъпка 6

Въведете следното, за да отворите връзка към базата данни на Access, наречена "TestQuest":

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

Редактирайте частта от кода "Source = C: \ QueryTest.mdb" и напишете пътя, където сте запазили базата данни на Access.

Стъпка 7

Напишете следното, за да изпълните заявка "Изтриване" във вашата база данни:

mySQLStrg = "DELETE Table1.Field1 ОТ таблица1 WHERE (((Table1.Field1) = 'John')); mySQLCommand = Нов OleDbCommand (mySQLStrg, myConnToAccess) mySQLCommand.ExecuteNonQuery ()

Чрез тази заявка ще изтриете записа, в който "Field1" е равен на "John".

Натиснете "F5", за да стартирате програмата и натиснете бутона "Бутон1".