CONECTAR BANCO MYSQL ONLINE
Galera será que alguém pode me ajudar com essa conexão a um banco mysql com uma certa urgência ?
Quando inicio o projeto o código abaixo está em um módulo
Public Db As ADODB.Connection
Public Tb As Recordset [ô] para a tabela cadastro
Public mblnAddMode As Boolean
Public SQLConnect As String [ô]esta é a string de conexao devera conter a informacao sobre o provedor e o caminho do banco de dados
Public User As String [ô] identificacao do usuario para o banco de dados
Public Senha As String [ô] a senha (se tiver) para o banco de dados
Public IP As String [ô] o endereco ip da maquina na qual esta o mySql
Public BD As String
IP = [Ô]192.168.0.1[Ô]
User = [ô][Ô]root[Ô]
Senha = [ô][Ô]12345[Ô]
BD = [ô][Ô]Etiqueta[Ô]
SQLConnect = [Ô]driver={MySQL};server=[Ô] & IP & [Ô];uid=[Ô] & User & [Ô];pwd=[Ô] & Senha & [Ô];database=[Ô] & BD
Set Db = New ADODB.Connection
Db.CursorLocation = adUseClient
Db.Open SQLConnect - aqui ele da a mensagem
- Nome da fonte de dados não encontrado e nenhum drive padrão especificado
Estou com o drive mysql connector ODBC 5.1 instalado, nas referências do vb6 está marcado Microsoft Activex Data Objects 2.8 library.
Eu não sei o que pode estar acontecendo pois teoricamente estou com todos os drives, o que pode estar faltando?
Agradeço a todos
Quando inicio o projeto o código abaixo está em um módulo
Public Db As ADODB.Connection
Public Tb As Recordset [ô] para a tabela cadastro
Public mblnAddMode As Boolean
Public SQLConnect As String [ô]esta é a string de conexao devera conter a informacao sobre o provedor e o caminho do banco de dados
Public User As String [ô] identificacao do usuario para o banco de dados
Public Senha As String [ô] a senha (se tiver) para o banco de dados
Public IP As String [ô] o endereco ip da maquina na qual esta o mySql
Public BD As String
IP = [Ô]192.168.0.1[Ô]
User = [ô][Ô]root[Ô]
Senha = [ô][Ô]12345[Ô]
BD = [ô][Ô]Etiqueta[Ô]
SQLConnect = [Ô]driver={MySQL};server=[Ô] & IP & [Ô];uid=[Ô] & User & [Ô];pwd=[Ô] & Senha & [Ô];database=[Ô] & BD
Set Db = New ADODB.Connection
Db.CursorLocation = adUseClient
Db.Open SQLConnect - aqui ele da a mensagem
- Nome da fonte de dados não encontrado e nenhum drive padrão especificado
Estou com o drive mysql connector ODBC 5.1 instalado, nas referências do vb6 está marcado Microsoft Activex Data Objects 2.8 library.
Eu não sei o que pode estar acontecendo pois teoricamente estou com todos os drives, o que pode estar faltando?
Agradeço a todos
Por que você não utiliza o componente adodc? Faz essa conexao de forma bem simples e muito eficaz.
Components:
microsoft ADO data control 6.0 (sp6)
microsoft DATAGRID data control 6.0 (sp6)
Components:
microsoft ADO data control 6.0 (sp6)
microsoft DATAGRID data control 6.0 (sp6)
EU SEMPRE UTILIZO ASSIM...
Function ConectaMySQL() As Boolean
On Local Error GoTo InternetErrorHandler
ConectaMySQL = False
Set adoDataConn = New ADODB.Connection
adoDataConn.CursorLocation = adUseServer
adoDataConn.Open [Ô]DRIVER={MySQL ODBC 5.1 Driver};Server=IP ;uid=USUARIO;pwd=SENHA;Database=NOMEDOBANCO[Ô]
Set rsMySQL = New ADODB.Recordset
[ô]Prepara o recordset
rsMySQL.CursorType = adOpenStatic
[ô]Este é o unico tipo de cursor a ser usado
[ô]com um cursor localizado no lado do cliente
rsMySQL.CursorLocation = adUseServer
[ô]estamos usando o cursor no cliente
rsMySQL.LockType = adLockPessimistic
[ô]Isto garente que o registros que esta sendo editado
[ô]pode ser salvo
ConectaMySQL = True
Call MsgBox([Ô]Voce esta conectado![Ô], vbExclamation, App.Title)
Exit Function
InternetErrorHandler:
[ô] MsgBox Err.Number & [Ô] [Ô] & Err.Description, vbCritical, [Ô]Atenção ![Ô]
End Function
Function ConectaMySQL() As Boolean
On Local Error GoTo InternetErrorHandler
ConectaMySQL = False
Set adoDataConn = New ADODB.Connection
adoDataConn.CursorLocation = adUseServer
adoDataConn.Open [Ô]DRIVER={MySQL ODBC 5.1 Driver};Server=IP ;uid=USUARIO;pwd=SENHA;Database=NOMEDOBANCO[Ô]
Set rsMySQL = New ADODB.Recordset
[ô]Prepara o recordset
rsMySQL.CursorType = adOpenStatic
[ô]Este é o unico tipo de cursor a ser usado
[ô]com um cursor localizado no lado do cliente
rsMySQL.CursorLocation = adUseServer
[ô]estamos usando o cursor no cliente
rsMySQL.LockType = adLockPessimistic
[ô]Isto garente que o registros que esta sendo editado
[ô]pode ser salvo
ConectaMySQL = True
Call MsgBox([Ô]Voce esta conectado![Ô], vbExclamation, App.Title)
Exit Function
InternetErrorHandler:
[ô] MsgBox Err.Number & [Ô] [Ô] & Err.Description, vbCritical, [Ô]Atenção ![Ô]
End Function
e utilizo assim...
If ConectaMySQL = True Then
rsMySQL.Source = [Ô]Select nome_campo From TABELA [Ô]
rsMySQL.ActiveConnection = adoDataConn
rsMySQL.Open
VARIAVAL = rsMySQL!nome_campo
End If
If ConectaMySQL = True Then
rsMySQL.Source = [Ô]Select nome_campo From TABELA [Ô]
rsMySQL.ActiveConnection = adoDataConn
rsMySQL.Open
VARIAVAL = rsMySQL!nome_campo
End If
Vc pode tentar com este componente tambem.
Baixe ele aqui no site
Baixe ele aqui no site
Alvaro,
Eu sempre uso desta forma e funciona corretamente.
Dim adoDataConn As New ADODB.Connection
adoDataConn.Open [Ô]Provider=MSDASQL;Driver={MySQL ODBC 3.51 Driver};Server=IP;Database=NOMEBANCO;User=USUARIO;Password=SENHA;Option=2;[Ô]
Thiago
Eu sempre uso desta forma e funciona corretamente.
Dim adoDataConn As New ADODB.Connection
adoDataConn.Open [Ô]Provider=MSDASQL;Driver={MySQL ODBC 3.51 Driver};Server=IP;Database=NOMEBANCO;User=USUARIO;Password=SENHA;Option=2;[Ô]
Thiago
Galera quero agradecer a ajuda, e utillizei a idéia do nosso amigo MAICONJG
O problema é que eu não tinha especificado o drive quando coloquei
[Ô]driver={MySQL ODBC 5.1 Driver};server=[Ô] etc etc
Funcionou sem maiores problemas, era apenas isso, porque no mais não precisei acrescentar mais nada
Agradeço mais uma vez pela atenção
O problema é que eu não tinha especificado o drive quando coloquei
[Ô]driver={MySQL ODBC 5.1 Driver};server=[Ô] etc etc
Funcionou sem maiores problemas, era apenas isso, porque no mais não precisei acrescentar mais nada
Agradeço mais uma vez pela atenção
Tópico encerrado , respostas não são mais permitidas