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 do pacote Office da Microsoft que usa SQL e VBA para gerenciar dados e fornecer automação de funções de banco de dados sistemáticos . Usando o shell de programação por trás do Microsoft Access, você pode se conectar ao banco de dados principal , procurar dados , adicionar novos dados e excluir dados , combinando SQL e código de programação Visual Basic for Applications . Instruções
1
Abra o banco de dados que você quer trabalhar com no Microsoft Access. Abra o Editor do Visual Basic , clicando na aba " Ferramentas de banco de dados " e depois " Visual Basic ".
2
Clique em " Inserir" e em seguida "Module" no Editor do Visual Basic.
3 Tipo
no código para se conectar ao banco de dados. Você vai 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 SELECT real
Dim strDeleteQuery como string' Isto irá manter o SQL DELETE
Dim strInsertQuery como string ' Esta é a instrução SQL INSERT
Dim strUpdateQuery como string' Isso vai realizar a instrução UPDATE
Type ' nos 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: \\ Documentos \\ SampleDatabase.mdb "
Abrir
End With
Agora a sua conexão com o banco de dados foi feito. . Em seguida, você irá atribuir instruções SQL para as variáveis já declaradas acima.
4
Tipo em um comunicado "SELECT" SQL para selecionar os dados do banco de dados. Uma consulta seleção é geralmente composto da seguinte forma: "SELECT colunas da tabela" . Você pode adicionar critérios para a instrução SELECT , adicionando na cláusula "where" . Por exemplo , você tem uma tabela chamada "clientes" que pretende procurar todos os clientes com o sobrenome "Silva ". O código VBA e SQL será parecido com este :
strSelectQuery = "SELECT * FROM tblCustomers ONDE Sobrenome = 'Smith ' em
O asterisco (*) é um curinga, o que significa que você quer puxar toda a informação , ou colunas , por qualquer pessoa com o sobrenome " . Smith " Para selecionar determinadas colunas , você usaria :
strSelectQuery = "SELECT nome, sobrenome FROM tblCustomers ONDE Sobrenome = 'Smith ' "
5 Tipo
no "DELETE" declaração se você deseja excluir linhas de dados de uma tabela O código para isso é a seguinte: .
strDeleteQuery = " DELETE FROM tblCustomers ONDE Sobrenome = 'Smith' "
Esta declaração vai apagar todas as linhas em que o cliente tem um sobrenome " Silva "de" clientes " mesa. a sintaxe básica para uma instrução DELETE é" DELETE FROM tabela WHERE coluna = ' valor ' ".
6 Tipo
na sintaxe para inserir uma nova linha em uma tabela . Use o " INSERT " declaração .
strInsertQuery =" INSERT INTO tblCustomers VALUES ( John , Smith , 123 Main Street, Cleveland , Ohio) "
Se você tivesse uma tabela de 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 diz 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 da tabela para que seus dados são consistentes.
7
digite a instrução SQL para alterar uma linha de dados. Esta é a declaração "UPDATE " .
strUpdateQuery = " tblCustomers UPDATE SET Sobrenome = 'Jones ' , Nome =" Jim "ONDE Sobrenome = 'Smith' "
Esta declaração muda todo mundo que tem um sobrenome de "Smith" de seus primeiros nomes para " Jones " e " 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 é " UPDATE tabela SET coluna1 = valor1, column2 = valor2, column3 = value3 , ... WHERE coluna = valor ".
8 Tipo
no código VBA que irá executar a consulta e salvar os resultados de conjuntos de registros. Feche o código VBA.
Set rsSelect = Novo ADODB . Recordset
Com rsSelect
Definir. ActiveConnection = Conn
. CursorType = adOpenStatic
. Source = strSelectQuery
. Abrir
End With
Set rsDelete = New ADODB.Recordset
Com rsDelete
Definir . ActiveConnection = Conn
. CursorType adOpenStatic =
. Source = strDeleteQuery
. Abrir
End With
Set rsInsert = New ADODB.Recordset
Com rsInsert
Definir. ActiveConnection = Conn
. CursorType = adOpenStatic
. Source = strInsertQuery
. Abrir
End With
Set rsUpdate = New ADODB.Recordset
Com rsDelect
Definir . ActiveConnection = Conn
. CursorType = adOpenStatic
. Source = strUpdateQuery
. Abrir
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 pós em formas , em outras tabelas ou nos relatórios .
' Feche os registros e conexão com você é feito
rsSelect.Close
rsDelete.Close
rsInsert.Close
rsUpdate.Close
End Sub
