CONEXÃO COM ACESS NO MÓDULO
Senhores, boa tarde.
Os amigos tem algum exemplo de conexão via ADO para banco Access pelo Módulo?
Assim: meu projeto tem um Form (Form1) e um Modulo (Module1)
A conexão (o código) tem que estar no Module1
O banco de dados é no Office (NewDados.accdb) Microsoft Office Professional Plus 2019
Será que fui claro?
Um abraço a todos
Elieudo
Os amigos tem algum exemplo de conexão via ADO para banco Access pelo Módulo?
Assim: meu projeto tem um Form (Form1) e um Modulo (Module1)
A conexão (o código) tem que estar no Module1
O banco de dados é no Office (NewDados.accdb) Microsoft Office Professional Plus 2019
Será que fui claro?
Um abraço a todos
Elieudo
No banco de codigos daqui do VBMANIA tem aos montes ...... faça um pesquisa e sacia-te e deleite-se ...
Option Explicit
' Declaração da conexão e do recordset como variáveis globais
Public Conn As ADODB.Connection
Public Rs As ADODB.Recordset
' Caminho do banco de dados Access (.mdb)
Public Const CAMINHO_BD As String = "C:\meubanco.mdb"
' Função para abrir a conexão com o banco
Public Sub AbrirConexao()
' Se a conexão já estiver aberta, fecha primeiro
If Not Conn Is Nothing Then
If Conn.State = adStateOpen Then Conn.Close
End If
' Cria um novo objeto de conexão
Set Conn = New ADODB.Connection
' String de conexão com o banco Access (sem senha)
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CAMINHO_BD & ";Persist Security Info=False;"
' Abre a conexão
Conn.Open
End Sub
' Função para fechar a conexão
Public Sub FecharConexao()
If Not Conn Is Nothing Then
If Conn.State = adStateOpen Then Conn.Close
Set Conn = Nothing
End If
End Sub
' Função para executar comandos SQL (INSERT, UPDATE, DELETE)
Public Sub ExecutarSQL(ByVal strSQL As String)
If Conn Is Nothing Then Call AbrirConexao
Conn.Execute strSQL
End Sub
' Função para retornar um Recordset (SELECT)
Public Function ExecutarConsulta(ByVal strSQL As String) As ADODB.Recordset
If Conn Is Nothing Then Call AbrirConexao
Set Rs = New ADODB.Recordset
Rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
Set ExecutarConsulta = Rs
End Function
Private Sub cmdTestar_Click()
Dim rsLocal As ADODB.Recordset
Dim strSQL As String
' Abre a conexão
Call AbrirConexao
' Exemplo de inserção de dados
ExecutarSQL "INSERT INTO Clientes (Nome, Idade) VALUES ('João Silva', 30)"
' Exemplo de consulta
strSQL = "SELECT * FROM Clientes"
Set rsLocal = ExecutarConsulta(strSQL)
' Exibe os dados retornados
Do While Not rsLocal.EOF
MsgBox "ID: " & rsLocal("ID") & " - Nome: " & rsLocal("Nome")
rsLocal.MoveNext
Loop
' Fecha o Recordset
rsLocal.Close
Set rsLocal = Nothing
' Fecha a conexão
Call FecharConexao
End Sub
' Declaração da conexão e do recordset como variáveis globais
Public Conn As ADODB.Connection
Public Rs As ADODB.Recordset
' Caminho do banco de dados Access (.mdb)
Public Const CAMINHO_BD As String = "C:\meubanco.mdb"
' Função para abrir a conexão com o banco
Public Sub AbrirConexao()
' Se a conexão já estiver aberta, fecha primeiro
If Not Conn Is Nothing Then
If Conn.State = adStateOpen Then Conn.Close
End If
' Cria um novo objeto de conexão
Set Conn = New ADODB.Connection
' String de conexão com o banco Access (sem senha)
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CAMINHO_BD & ";Persist Security Info=False;"
' Abre a conexão
Conn.Open
End Sub
' Função para fechar a conexão
Public Sub FecharConexao()
If Not Conn Is Nothing Then
If Conn.State = adStateOpen Then Conn.Close
Set Conn = Nothing
End If
End Sub
' Função para executar comandos SQL (INSERT, UPDATE, DELETE)
Public Sub ExecutarSQL(ByVal strSQL As String)
If Conn Is Nothing Then Call AbrirConexao
Conn.Execute strSQL
End Sub
' Função para retornar um Recordset (SELECT)
Public Function ExecutarConsulta(ByVal strSQL As String) As ADODB.Recordset
If Conn Is Nothing Then Call AbrirConexao
Set Rs = New ADODB.Recordset
Rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
Set ExecutarConsulta = Rs
End Function
Private Sub cmdTestar_Click()
Dim rsLocal As ADODB.Recordset
Dim strSQL As String
' Abre a conexão
Call AbrirConexao
' Exemplo de inserção de dados
ExecutarSQL "INSERT INTO Clientes (Nome, Idade) VALUES ('João Silva', 30)"
' Exemplo de consulta
strSQL = "SELECT * FROM Clientes"
Set rsLocal = ExecutarConsulta(strSQL)
' Exibe os dados retornados
Do While Not rsLocal.EOF
MsgBox "ID: " & rsLocal("ID") & " - Nome: " & rsLocal("Nome")
rsLocal.MoveNext
Loop
' Fecha o Recordset
rsLocal.Close
Set rsLocal = Nothing
' Fecha a conexão
Call FecharConexao
End Sub
porque que começar em algo tão ultrapassado.
Hoje você tem a oportunidade de começar com ate a IA te auxiliando tá tão fácil, mas tão facil
Hoje você tem a oportunidade de começar com ate a IA te auxiliando tá tão fácil, mas tão facil
Citação:porque que começar em algo tão ultrapassado.
Hoje você tem a oportunidade de começar com ate a IA te auxiliando tá tão fácil, mas tão facil
Isso é o que eu chamo de perder tempo na Vida.
Falando em IA, a coisa tá num nível quase que "mágico".
Tinha um server aqui que estava em desuso, pedi permissão e coloquei um DeepSeek full nele. Funciona belezinha!
Fiz um "agente" do Jira(onde pinga as demandas). Ele está ligado à um "virtual dev". Como funciona:
- A demanda vem do usuário.
- A demanda é criada no Jira, no projeto correspondente. Hoje, um PO faz isso, mas já estou trabalhando numa IA que vai "compôr" a demanda em Gherkin language
- A demanda é atribuída ao agente virtual no Jira.
- O virtual dev é acionado, lendo a demanda e o projeto relativo(vários projetos, em várias plataformas, com várias estruturas) à ela.
- Apresenta um plano de ação para o criador ou responsável pela demanda(quase sempre eu), do que é necessário ser feito para cumprir a demanda.
- Eu dou uma "bizoiada" no plano e autorizo, mas posso apresentar sugestões ou refazer os passos. Geralmente não altero nada, ou muitíssimo pouco.
- Ele cria um branch no git, implementa as mudanças de acordo com o plano apresentado, confere scripts de testes e ajusta ou cria novos testes de acordo com a demanda.
- Então ele faz um pull request e me envia o link.
- Eu confiro o PR e autorizo.
- Ele faz o merge e aciona o pipeline que sobe a nova feature/demanda para ambiente de testes.
- Os testes são feitos(a grande maioria também já é por IA) e quando os testes estão ok, ele faz o push para o git de produção e aciona o pipeline e finalmente vai pra prod.
- Tudo tem log 100% de cada coisinha que foi feita.
Podem notar que isso é o dia-a-dia de um dev em ambiente corporativo.
Isso tudo ocorre geralmente em MENOS de 5 minutos. Ele faz demandas de devs junior, pleno e até algumas de sênior. Não custou nada para a empresa e ele está fazendo o trabalho de vários devs(ele opera em paralelo com vários agentes).
Já teve dias que fiz em uma manhã, coisas que levaria em torno de uma semana para um time de uns 10 plenos. Código de altíssima qualidade, cobertura de testes acima de 95%. O troço é um MONSTRO, tudo isso num HP Proliant que estava desativado e custa menos de 10 mil.
Certamente vai chegar o dia que ele faz tudo, tudinho mesmo, totalmente sozinho. Ainda bem que loguinho to me aposentando.
Tinha um server aqui que estava em desuso, pedi permissão e coloquei um DeepSeek full nele. Funciona belezinha!
Fiz um "agente" do Jira(onde pinga as demandas). Ele está ligado à um "virtual dev". Como funciona:
- A demanda vem do usuário.
- A demanda é criada no Jira, no projeto correspondente. Hoje, um PO faz isso, mas já estou trabalhando numa IA que vai "compôr" a demanda em Gherkin language
- A demanda é atribuída ao agente virtual no Jira.
- O virtual dev é acionado, lendo a demanda e o projeto relativo(vários projetos, em várias plataformas, com várias estruturas) à ela.
- Apresenta um plano de ação para o criador ou responsável pela demanda(quase sempre eu), do que é necessário ser feito para cumprir a demanda.
- Eu dou uma "bizoiada" no plano e autorizo, mas posso apresentar sugestões ou refazer os passos. Geralmente não altero nada, ou muitíssimo pouco.
- Ele cria um branch no git, implementa as mudanças de acordo com o plano apresentado, confere scripts de testes e ajusta ou cria novos testes de acordo com a demanda.
- Então ele faz um pull request e me envia o link.
- Eu confiro o PR e autorizo.
- Ele faz o merge e aciona o pipeline que sobe a nova feature/demanda para ambiente de testes.
- Os testes são feitos(a grande maioria também já é por IA) e quando os testes estão ok, ele faz o push para o git de produção e aciona o pipeline e finalmente vai pra prod.
- Tudo tem log 100% de cada coisinha que foi feita.
Podem notar que isso é o dia-a-dia de um dev em ambiente corporativo.
Isso tudo ocorre geralmente em MENOS de 5 minutos. Ele faz demandas de devs junior, pleno e até algumas de sênior. Não custou nada para a empresa e ele está fazendo o trabalho de vários devs(ele opera em paralelo com vários agentes).
Já teve dias que fiz em uma manhã, coisas que levaria em torno de uma semana para um time de uns 10 plenos. Código de altíssima qualidade, cobertura de testes acima de 95%. O troço é um MONSTRO, tudo isso num HP Proliant que estava desativado e custa menos de 10 mil.
Certamente vai chegar o dia que ele faz tudo, tudinho mesmo, totalmente sozinho. Ainda bem que loguinho to me aposentando.
Pra quem não conhece Gherkin language, aqui está um exemplo de uma feature que seria fazer um omelete(criado por IA):
Feature: Preparação de um omelete
Como uma pessoa faminta
Quero preparar um omelete
Para ter uma refeição deliciosa
Scenario: Fazer um omelete simples
Given que eu tenho os seguintes ingredientes:
| Ingrediente | Quantidade |
| Ovos | 2 |
| Sal | 1 pitada |
| Pimenta | A gosto |
| Manteiga | 1 colher |
| Queijo | 50g |
| Leite | 1 colher |
And que eu tenho os seguintes utensílios:
| Utensílio |
| Frigideira |
| Fogão |
| Tigela |
| Garfo |
| Espátula |
When eu quebro os ovos na tigela
And adiciono sal, pimenta e leite
And bato os ovos com um garfo até ficarem homogêneos
And coloco a frigideira no fogão em fogo médio
And adiciono a manteiga e espero derreter
And despejo os ovos batidos na frigideira
And espero até que as bordas comecem a firmar
And espalho o queijo sobre o omelete
And dobro o omelete ao meio com a espátula
And deixo cozinhar por mais 1 minuto
And desligo o fogo
And transfiro o omelete para um prato
Then eu devo ter um omelete pronto para comer
And o omelete deve estar dourado e saboroso
Substitua isso agora por "criar um campo no formulário do cliente" ou "adicionar um campo de soma de colunas em um relatório".
Feature: Preparação de um omelete
Como uma pessoa faminta
Quero preparar um omelete
Para ter uma refeição deliciosa
Scenario: Fazer um omelete simples
Given que eu tenho os seguintes ingredientes:
| Ingrediente | Quantidade |
| Ovos | 2 |
| Sal | 1 pitada |
| Pimenta | A gosto |
| Manteiga | 1 colher |
| Queijo | 50g |
| Leite | 1 colher |
And que eu tenho os seguintes utensílios:
| Utensílio |
| Frigideira |
| Fogão |
| Tigela |
| Garfo |
| Espátula |
When eu quebro os ovos na tigela
And adiciono sal, pimenta e leite
And bato os ovos com um garfo até ficarem homogêneos
And coloco a frigideira no fogão em fogo médio
And adiciono a manteiga e espero derreter
And despejo os ovos batidos na frigideira
And espero até que as bordas comecem a firmar
And espalho o queijo sobre o omelete
And dobro o omelete ao meio com a espátula
And deixo cozinhar por mais 1 minuto
And desligo o fogo
And transfiro o omelete para um prato
Then eu devo ter um omelete pronto para comer
And o omelete deve estar dourado e saboroso
Substitua isso agora por "criar um campo no formulário do cliente" ou "adicionar um campo de soma de colunas em um relatório".
Faça seu login para responder