Como executar consultas do Access no Visual Basic

Passo 1

Execute o Microsoft Office Access e selecione "Banco de dados em branco". Nomeie o banco de dados como "QueryTest" e clique em "Criar".

Passo 2

Crie uma nova tabela e nomeie como "Tabela1". Na primeira linha, escreva "John" em "Field1" e "Smith" em "Field2".

Adicione outra linha digitando "James" em "Field1" e "Gonzalez" em "Field2". Salve a tabela "Table1" e feche-a.

Passo 3

Execute o Microsoft Visual Basic 2010 Express e selecione "Novo Projeto" no menu "Arquivo". Escolha "Windows Forms Application" e clique em "OK".

Clique em "Toolbar" no painel esquerdo da sua janela e clique duas vezes em "Button" para adicionar um botão ao seu formulário. Clique duas vezes em "Button1" para abrir o módulo "Form1.vb", que é o lugar onde você irá escrever seu código.

Passo 4

Digite "Imports System.Data.OleDb" na parte superior do seu módulo "Form1.vb". Clique em "Private Sub Button1_Click" para começar a escrever seu código do Visual Basic.

Passo 5

Escreva o seguinte para declarar suas conexões e variáveis ​​de comando:

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

Passo 6

Digite o seguinte para abrir uma conexão com o banco de dados do Access chamado "TestQuest":

myConnToAccess = Novo OleDbConnection ("Provedor = Microsoft.Jet.OLEDB.4.0; Fonte de Dados = C: \ QueryTest.mdb;") myConnToAccess.Open ()

Edite a parte do código "Source = C: \ QueryTest.mdb" e escreva o caminho onde você salvou seu banco de dados do Access.

Passo 7

Escreva o seguinte para executar uma consulta "Excluir" em seu banco de dados:

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

Por meio dessa consulta, você excluirá o registro no qual "Campo1" é igual a "João".

Pressione "F5" para executar o seu programa e clique em "Button1".