MYSQL E VB EM REDE LOCAL
COMO FAÇO PARA ACESSAR O MYSQL EM REDE LOCAL.
USEI A CONEXÃO ABAIXO:
VBanco.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;PORT=3306;DATABASE=sisvenda; USER=;PASSWORD=;OPTION=3;"
VBanco.open
COMO FAÇO PARA ACESSAR DE UMA OUTRA ESTAÇÃO QUE ESTEJA NA REDE E QUE TENHA O ODBC Jà  INSTALADO?
USEI A CONEXÃO ABAIXO:
VBanco.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;PORT=3306;DATABASE=sisvenda; USER=;PASSWORD=;OPTION=3;"
VBanco.open
COMO FAÇO PARA ACESSAR DE UMA OUTRA ESTAÇÃO QUE ESTEJA NA REDE E QUE TENHA O ODBC Jà  INSTALADO?
Bom primerio você vai ter qua abilitar o IP ou nome da maquina que vai acessar o Mysql
use o mysql front ou control center e va em user administration para abilitar um novo usuario
depois você nao precisa instalar o DRIVER, eu prefiro usar um dll que ja faz este acesso sem precisar do odbc
voce pode baixar a DLL neste endereço
MYSQL DLL
e o mysql control center deste
Mysqlcc
use o mysql front ou control center e va em user administration para abilitar um novo usuario
depois você nao precisa instalar o DRIVER, eu prefiro usar um dll que ja faz este acesso sem precisar do odbc
voce pode baixar a DLL neste endereço
MYSQL DLL
e o mysql control center deste
Mysqlcc
no "SERVER=localhost" de colocar o IP da maquina q esta instalado o Mysql
EX:
"DRIVER={MySQL ODBC 3.51 Driver};SERVER=192.168.1.1;PORT=3306;DATABASE=sisvenda; USER=;PASSWORD=;OPTION=3;"
EX:
"DRIVER={MySQL ODBC 3.51 Driver};SERVER=192.168.1.1;PORT=3306;DATABASE=sisvenda; USER=;PASSWORD=;OPTION=3;"
Amigo Jr. Cesarino já tinha feito isto que vc sugeriu mais deu o seguinte erro:
Run Time Error '1130':
#HY0000Host 'robson-andrade' is not allowed to connect to this MYSQLServer.
o nome da máquina que estáo MySQL é robson-andrade com SO Win200.
Run Time Error '1130':
#HY0000Host 'robson-andrade' is not allowed to connect to this MYSQLServer.
o nome da máquina que estáo MySQL é robson-andrade com SO Win200.
olha como eu faço:
Function AbreConexao()
Dim Banco As ADODB.Connection
Set Banco = New ADODB.Connection
driver = "MySql ODBC 3.51 DRIVER"
mySqlIP = "192.168.1.2"
usr_id = "root" ' identificacao
pass = "" ' senha
strConnect = "driver={" & driver & "};server=" & mySqlIP & ";uid=" & usr_id & ";pwd=" & pass & ";database=clientes"
Banco.CursorLocation = adUseClient
Banco.Open strConnect
End Function
ve se pode te ajudar,
Function AbreConexao()
Dim Banco As ADODB.Connection
Set Banco = New ADODB.Connection
driver = "MySql ODBC 3.51 DRIVER"
mySqlIP = "192.168.1.2"
usr_id = "root" ' identificacao
pass = "" ' senha
strConnect = "driver={" & driver & "};server=" & mySqlIP & ";uid=" & usr_id & ";pwd=" & pass & ";database=clientes"
Banco.CursorLocation = adUseClient
Banco.Open strConnect
End Function
ve se pode te ajudar,
vc colocou para rodar o motor do banco na maquina q vc quer acessar ?
vc deu permissao para o usuario acessar remotamente ?
vc deu permissao para o usuario acessar remotamente ?
voce tem que ir na pasta bin do mysql e ativar o winmysqladmin.exe ele vai pedir usuario e senha para administrador a partir dai ele ja vai funcionar local, depois é so voce baixar o control center no link que indiquei antes e criar os usuarios
Obrigado amigos.....cosegui a conexão.....o único problema é que tem q se criar usuário @nomedamáquina para cada estação ou usar o % no host....
Como faço para usar o OLE DB com está string de conexao:
"Provider=MySQLProv;Data Source=mydb;User Id=UserName;Password=asdasd;"
Provider= não sei qual colocar e diz que não existe
mydb=minha database
User id=usuário
Password=senha
Como faço para usar o OLE DB com está string de conexao:
"Provider=MySQLProv;Data Source=mydb;User Id=UserName;Password=asdasd;"
Provider= não sei qual colocar e diz que não existe
mydb=minha database
User id=usuário
Password=senha
db.Open ("DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=" & IP_SERVIDOR & ";" _
& "DATABASE=dbcadastro;" _
& "UID=clayton;PWD=618114; OPTION=3")
Tópico encerrado , respostas não são mais permitidas