MYSQL
boa tarde a todos,
Eu estou querendo usar o mysql e costaria de saber como faço para me conectar ao banco
bom no Sql server eu utilizo uma string de conexao assim?
Sub connect()
On Error GoTo bancoib
Set Con = CreateObject([Ô]ADODB.Connection[Ô])
Set rs = CreateObject([Ô]ADODB.Recordset[Ô])
Con.ConnectionTimeout = 9000
Con.open [Ô]Driver={SQL Server};[Ô] & _
[Ô]Server=10.85.5.2;[Ô] & _
[Ô]Database=lojaBase;[Ô] & _
[Ô]Uid=sa;[Ô] & _
[Ô]Pwd=;[Ô]
rs.CursorLocation = adUseClient
Exit Sub
bancoib:
MsgBox [Ô]Não Foi Possivel Efetuar A conexão Com O Banco Da Matriz[Ô]
End Sub
como faria para me conectar no mysql.
so para lembrar eu ja instalei o banco de dados e do mysql-connector-odbc-5.2.2-win32 o driver odbc como eu faria para me conectar ao mysql
Eu estou querendo usar o mysql e costaria de saber como faço para me conectar ao banco
bom no Sql server eu utilizo uma string de conexao assim?
Sub connect()
On Error GoTo bancoib
Set Con = CreateObject([Ô]ADODB.Connection[Ô])
Set rs = CreateObject([Ô]ADODB.Recordset[Ô])
Con.ConnectionTimeout = 9000
Con.open [Ô]Driver={SQL Server};[Ô] & _
[Ô]Server=10.85.5.2;[Ô] & _
[Ô]Database=lojaBase;[Ô] & _
[Ô]Uid=sa;[Ô] & _
[Ô]Pwd=;[Ô]
rs.CursorLocation = adUseClient
Exit Sub
bancoib:
MsgBox [Ô]Não Foi Possivel Efetuar A conexão Com O Banco Da Matriz[Ô]
End Sub
como faria para me conectar no mysql.
so para lembrar eu ja instalei o banco de dados e do mysql-connector-odbc-5.2.2-win32 o driver odbc como eu faria para me conectar ao mysql
Do mesmo jeito que faz agora, apenas mude a string de conexão.
e qual seria a string de conexao com mysql?
eu utilizo uma função a tempos e sempre me foi util veja:
em um Módulo cole:
com a função acima em qualformulário você poderá conectar executar uma tarefa e desconectar.
exemplo em um form
em um Módulo cole:
Global Conexao As New ADODB.Connection
Public Function Conecta(Valor As Boolean)
Dim SERVER As String, BD As String, PORTA As String, USER As String, SENHA As String
Dim CON_STR As String
If Conexao.State = 1 Then
Conexao.Close
Set Conexao = Nothing
Valor = True
End If
If Valor = True Then
SERVER = [Ô]localhost[Ô][txt-color=#007100] [ô] ou o ip da maquina no caso de acesso remoto[/txt-color]
BD = [Ô]nome_do_banco[Ô]
PORTA = [Ô]3306[Ô]
USER = [Ô]root[Ô]
SENHA = [Ô]sua_senha[Ô]
CON_STR = [Ô]DRIVER={MySQL ODBC 5.1 DRIVER};[Ô] _
& [Ô]Server=[Ô] & SERVER & [Ô];[Ô] _
& [Ô]Port=[Ô] & PORTA & [Ô];[Ô] _
& [Ô]Database=[Ô] & BD & [Ô];[Ô] _
& [Ô]UID=[Ô] & USER & [Ô];[Ô] _
& [Ô]PWD=[Ô] & SENHA & [Ô];[Ô] _
& [Ô]Option=3;[Ô]
With Conexao
.CursorLocation = adUseClient
.ConnectionString = CON_STR
.Open CON_STR
End With
Else
Conexao.Close
Set Conexao = Nothing
End If
End Functioncom a função acima em qualformulário você poderá conectar executar uma tarefa e desconectar.
exemplo em um form
Conecta True[txt-color=#007100] [ô]Me conecto[/txt-color]
Dim RS As Recordset
Set RS = Conexao.Execute([Ô]SELECT * FROM tabela[Ô])
Do While Not RS.EOF
List1.AddItem RS!campo
RS.Movenext
Loop
Conecta False [txt-color=#007100][ô]Me desconecto[/txt-color]
marcelo utilizei o seu ex mas deu o seguinte erro:
[Microsoft][odbc driver manager] Nome da fonte de dados não encontrado e nenhum driver padrao especificado,
vale lembrar que eu instalei o driver odbc mysql-connector-odbc-5.2.2-win32 e o my sql mysql-5.5.15-win32
como pode ver em anexo
[Microsoft][odbc driver manager] Nome da fonte de dados não encontrado e nenhum driver padrao especificado,
vale lembrar que eu instalei o driver odbc mysql-connector-odbc-5.2.2-win32 e o my sql mysql-5.5.15-win32
como pode ver em anexo
desculpe você tem que instalar o odbc driver 5.1 do mysql, você consegue o mesmo no proprio site do mysql
Tópico encerrado , respostas não são mais permitidas