Structured Query Language (SQL) é a linguagem de computador usado para o gerenciamento de bancos de dados relacionais. Visual Basic for Applications (VBA) é a linguagem de programação desenvolvida pela Microsoft para uso com os aplicativos do Microsoft Office para criar conteúdo dinâmico. Microsoft Access é o programa de banco de dados dentro da suíte Microsoft Office que usa SQL e VBA para gerenciar dados e fornecer automação para funções de banco de dados sistemáticos. Usando o shell de programação por trás Microsoft Access, você pode se conectar ao banco de dados principal, pesquisar dados, adicionar novos dados e excluir dados através da combinação de SQL e código de programação VBA.
Abra o banco de dados que você deseja trabalhar no Microsoft Access. Abra o Editor do Visual Basic, clicando no "Ferramentas de banco de dados" separador e, em seguida "Visual básico."
Clique em "Inserir" e depois "Módulo" no Editor do Visual Basic.
Digite o código para se conectar ao banco de dados. Você terá que estabelecer uma conexão para usar instruções SQL para o banco de dados.
Sub SQLTutorial ()
"Configure suas variáveis para armazenar as informações
Dim Conn como ADODB.Connection `Esta é a conexão real
Dim rsSelect como ADODB.Recordset `Isto é onde você vai salvar os dados
Dim rsDelete como ADODB.Recordset
Dim rsInsert como ADODB.Recordset
Dim rsUpdate como ADODB.Recordset
Dim strSelectQuery como String `Este é o comando SQL real SELECIONAR
Dim strDeleteQuery como String `Isso vai segurar a instrução SQL DELETE
Dim strInsertQuery como String `Esta é a instrução SQL INSERT
Dim strUpdateQuery como String `Isto irá manter a instrução UPDATE
`Digite os detalhes para se conectar ao banco de dados que você quer
Set Conn = New ADODB.Connection
com Conn
.ConnectionString ="Provider = Microsoft.Jet.OLEDB.4.0-" &_
"Data Source = C: Documents SampleDatabase.mdb"
.Aberto
End With
Agora a conexão com o banco de dados foi feita. Em seguida, você irá atribuir instruções SQL para as variáveis que você já declaradas acima.
Digite um "SELECIONAR" instrução SQL para selecionar dados do banco de dados. A consulta SELECT normalmente é feita assim: "colunas SELECT da tabela". Você pode adicionar critérios para a instrução SELECT, adicionando na "ONDE" cláusula. Por exemplo, você tem uma tabela chamada "clientes" que pretende procurar todos os clientes com o sobrenome "Smith." O código VBA e SQL será parecido com este:
strSelectQuery = "* SELECT FROM tblCustomers ONDE LastName = `Smith`
O asterisco (*) é um carácter universal, o que significa que você quer puxar todas as informações, ou colunas, por qualquer pessoa com o sobrenome "Smith." Para selecionar determinadas colunas, você usaria:
strSelectQuery = "SELECIONE nome, sobrenome DE tblCustomers ONDE LastName = `Smith`"
Digite o "EXCLUIR" declaração se você deseja excluir linhas de dados de uma tabela. O código para isso é:
strDeleteQuery = "DELETE FROM tblCustomers ONDE LastName = `Smith`"
Esta declaração vai apagar todas as linhas onde o cliente tem um sobrenome "ferreiro" a partir de "clientes" mesa. A sintaxe básica para uma instrução DELETE é "DELETE FROM tabela WHERE coluna = `valor`."
Digitar a sintaxe para inserir uma nova linha em uma tabela. Use o "INSERIR" declaração.
strInsertQuery = "VALORES INSERT INTO tblCustomers (John, Smith, 123 Main Street, Cleveland, Ohio)"
Se você tivesse uma tabela clientes que tem nome, sobrenome, endereço, cidade e colunas de Estado, esta declaração irá inserir nos dados na coluna da direita. A vírgula indica o código para pular para a próxima coluna antes de entrar nos valores. Tenha certeza que você está digitando os valores na ordem correta das colunas na tabela de modo a que os seus dados são consistentes.
Digite a instrução SQL para alterar uma linha de dados. Isto é o "ATUALIZAR" declaração.
strUpdateQuery = "ATUALIZAÇÃO tblCustomers SET LastName = `Jones`, Nome ="Jim" ONDE LastName = `Smith`"
Este alterações de instrução todos que tem um sobrenome "ferreiro" para "Jones" e seus primeiros nomes para "Jim." Você pode alterar várias colunas de dados de uma só vez em uma instrução UPDATE, separando as colunas com vírgulas. A sintaxe básica para um UPDATE é "Atualizar a tabela SET column1 = value1, column2 = value2, column3 = value3, ... WHERE coluna = valor."
Digite o código VBA que irá executar a consulta e salvar os resultados em conjuntos de registros. Feche o código VBA.
Definir rsSelect = New ADODB.Recordset
com rsSelect
Definir .ActiveConnection = Conn
.CursorType adOpenStatic =
.Fonte = strSelectQuery
.Aberto
End With
Definir rsDelete = New ADODB.Recordset
com rsDelete
Definir .ActiveConnection = Conn
.CursorType adOpenStatic =
.Fonte = strDeleteQuery
.Aberto
End With
Definir rsInsert = New ADODB.Recordset
com rsInsert
Definir .ActiveConnection = Conn
.CursorType adOpenStatic =
.Fonte = strInsertQuery
.Aberto
End With
Definir rsUpdate = New ADODB.Recordset
com rsDelect
Definir .ActiveConnection = Conn
.CursorType adOpenStatic =
.Fonte = strUpdateQuery
.Aberto
End With
`Digite o código de VBA para fazer o trabalho com os dados que reunimos através das instruções SQL.
`Você pode usar os dados para postar em formas, em outras tabelas ou em relatórios.
"Feche os registros e ligação com você é feito
rsSelect.Close
rsDelete.Close
rsInsert.Close
rsUpdate.Close
End Sub