Cum se execută interogările de acces în Visual Basic

Pasul 1

Rulați Microsoft Office Access și selectați "Bază de date necompletată". Denumiți baza de date ca "QueryTest" și faceți clic pe "Creați".

Pasul 2

Creați o nouă tabelă și denumiți-o "Table1". În primul rând scrieți "John" sub "Field1" și "Smith" sub "Field2".

Adăugați un alt rând tastând "James" sub "Field1" și "Gonzalez" sub "Field2". Salvați masa "Table1" și închideți-o.

Pasul 3

Executați Microsoft Visual Basic 2010 Express și selectați "New Project" din meniul "File". Alegeți "Windows Forms Application" și faceți clic pe "OK".

Faceți clic pe "Bara de instrumente" din panoul din stânga ferestrei dvs. și faceți dublu clic pe "Buton" pentru a adăuga un buton la formularul dvs. Faceți dublu clic pe butonul "1" pentru a deschide modulul "Form1.vb", care este locul în care vă veți scrie codul.

Pasul 4

Introduceți "Importă System.Data.OleDb" în partea de sus a modulului "Form1.vb". Faceți clic pe "Private Sub Button1_Click" pentru a începe să scrieți codul Visual Basic.

Pasul 5

Scrieți următoarele pentru a declara conexiunile și variabilele de comandă:

Dim myConnToAccess Ca OleDbConnection Dim mySQLCommand Ca OleDbCommand Dim mySQLStrg Ca șir

Pasul 6

Introduceți următoarele pentru a deschide o conexiune la baza de date Access numită "TestQuest":

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

Editați partea din codul "Source = C: \ QueryTest.mdb" și scrieți calea în care ați salvat baza de date Access.

Pasul 7

Scrieți următoarele pentru a executa o interogare "Șterge" în baza de date:

mySQLStrg = "DELETE Table1.File1 FROM Tabelul1 WHERE (((Table1.Field1) = 'John')); mySQLCommand = OleDbCommand nou (mySQLStrg, myConnToAccess) mySQLCommand.ExecuteNonQuery ()

Prin această interogare veți șterge înregistrarea în care "Field1" este egal cu "John".

Apăsați "F5" pentru a rula programul și faceți clic pe "Button1".