Come eseguire le query di Access in Visual Basic

Passaggio 1

Esegui Microsoft Office Access e seleziona "Database vuoto". Assegna un nome al database come "QueryTest" e fai clic su "Crea".

Passaggio 2

Crea una nuova tabella e chiamala "Tabella1". Nella prima riga scrivi "John" sotto "Field1" e "Smith" sotto "Field2".

Aggiungi un'altra riga digitando "James" sotto "Field1" e "Gonzalez" sotto "Field2". Salva la tabella "Table1" e chiudila.

Passaggio 3

Esegui Microsoft Visual Basic 2010 Express e seleziona "Nuovo progetto" dal menu "File". Scegli "Applicazione Windows Form" e fai clic su "OK".

Fai clic su "Barra degli strumenti" nel riquadro sinistro della finestra e fai doppio clic su "Pulsante" per aggiungere un pulsante al modulo. Fare doppio clic su "Button1" per aprire il modulo "Form1.vb", che è il posto in cui scrivere il codice.

Passaggio 4

Digitare "Imports System.Data.OleDb" nella parte superiore del modulo "Form1.vb". Fare clic all'interno di "Private Sub Button1_Click" per iniziare a scrivere il codice Visual Basic.

Passaggio 5

Scrivi quanto segue per dichiarare le tue connessioni e le variabili di comando:

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

Passaggio 6

Digitare quanto segue per aprire una connessione al database di Access denominato "TestQuest":

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

Modificare la parte del codice "Origine = C: \ QueryTest.mdb" e scrivere il percorso in cui è stato salvato il database di Access.

Passaggio 7

Scrivi quanto segue per eseguire una query "Elimina" nel tuo database:

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

Attraverso questa query eliminerai il record in cui "Field1" è uguale a "John".

Premere "F5" per eseguire il programma e fare clic su "Button1".