Conexão Mysql em forms acoplados

Moderador: Avelino Sampaio

LUCIANORW
Mensagens: 3
Registrado em: 08 Jun 2015, 22:13

Conexão Mysql em forms acoplados

Mensagempor LUCIANORW » 02 Dez 2016, 23:51

Boa noite!!!
Como faço para apenas criar a conexão com bd mysql na inicialização do front ms access?
Veja o codigo retirado do site do Mabesi (algumas adaptacoes para testes):

Código: Selecionar todos

'===================================================================
'Módulo ControleVinculo - Conexão com Mysql
'
'Métodos:
'1-Checar o vínculo do FrontEnd atual com um BackEnd no servidor MySql;
'2-Atualizar o vínculo do FrontEnd atual com um BackEnd no servidor MySql;
'3-Criar uma conexão com um banco de dados em um servidor MySql;
'4-Executar atualizações e consultas utilizando a conexão MySql.
'
' Autor: Plínio Mabesi
' Contato: pliniomabesi@gmail.com
' Website: www.mabesi.com
'===================================================================

Option Compare Database
Option Explicit

'Cria uma conexão ADO
Private mySqlCon As New ADODB.Connection

'Cria um recordset ADO
Private rstCon As New ADODB.Recordset
Sub nada()
    Call conectarMySql("root", "SENHA", "127.0.0.1", "bd_TESTE", "3306")
End Sub
Sub conectarMySql(argUsuario As String, argSenha As String, argIp As String, argBd As String, argPorta As String)
'Esta função abre a conexão com o MySql e a deixa ativa, e pode também abrir um recordset para testar a conexão.
    Dim strConnect As String
    'strConnect = "driver={MySql ODBC 5.3 Unicode Driver};server=" & argIp & ";uid=" & argUsuario & ";pwd=" & argSenha & ";database=" & argBd
    strConnect = "Driver={MySQL ODBC 5.3 Unicode Driver};Server=" & argIp & ";Database=" & argBd & ";User=" & argUsuario & "; Password=" & argSenha & "; Port=" & argPorta & ";Option=3;"
    mySqlCon.Open strConnect
End Sub


Só que executando a funcao Nada (que fiz para teste), ao abrir uma tabela do Mysql, abre o MySql Connector.
Lembrando, estou usando dados acoplados, gostaria de ao iniciar o sistema, fazer a conexão com Mysql e só destruir quando sair.

Att
Luciano
Access 2003

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Voltar para “Access x MySql”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 1 visitante