CONEXAO REMOTA VB / MYSQL
Galera por favor uma luz, tenho um servidor mysql 5.... na minha máquina, tenho um sistema de boletos em php e conecta numa boa....ai estou desenvolvendo um projeto em VB6 e não consigo fazer a conexao remota com o VB6, ja uma conexão local é bem sucedida..por favor uma luz................
Procurei na net uma solução mais todas q encontrei não funfaram,..............
uma luz por favor????????????
ALFTERRA.......
Procurei na net uma solução mais todas q encontrei não funfaram,..............
uma luz por favor????????????
ALFTERRA.......
poste a conexão que tentou, em qualquer caso você terá de instalar o conector odbc
Treze, a conexão que estou usando ta abaixo, como falei na mensagem anterior a conexão local tá uma beleza, logo o driver está intalado....
c teria uma luz?
[ô]--------------------------------------------------
Public Sub SU_Conecta()
[ô]O CAMINHO DO BANCO VAI TA NO LOAD DO FORM DE LOGIN
10 On Error GoTo SU_Conecta_Error
20 CaminhoBD = IPconexao
30 Banco = [Ô]NFeONLINE[Ô]
40 UserBD = [Ô]root[Ô]
50 SenhaBD = [Ô]123BAPN3exJqJPCvf678[Ô] [ô]senha pra conexão local
60 Porta = [Ô]3306[Ô]
70 Set ConexaoADO = New ADODB.Connection
90 ConexaoADO.ConnectionString = [Ô]Driver={MySQL ODBC 5.1 Driver};Server=[Ô] & CaminhoBD & [Ô];Port=[Ô] & Porta & [Ô];Database=[Ô] & Banco & [Ô];User=[Ô] & UserBD & [Ô];Password=[Ô] & SenhaBD & [Ô];Option=3;[Ô]
110 ConexaoADO.CursorLocation = adUseClient
120 CNN_string = ConexaoADO.ConnectionString
[ô]MsgBox CNN_string
130 ConexaoADO.Open
140 On Error GoTo 0
150 Exit Sub
SU_Conecta_Error:
160 MsgBox [Ô]Ocorreu um error de número: [Ô] & Err.Number & [Ô] - [Ô] & Err.Description & [Ô], na linha: [Ô] & Erl & [Ô] - [Ô] & Err.Description & [Ô] na procedure SU_Conecta no Módulo CONEXAO_BD[Ô]
End Sub
c teria uma luz?
[ô]--------------------------------------------------
Public Sub SU_Conecta()
[ô]O CAMINHO DO BANCO VAI TA NO LOAD DO FORM DE LOGIN
10 On Error GoTo SU_Conecta_Error
20 CaminhoBD = IPconexao
30 Banco = [Ô]NFeONLINE[Ô]
40 UserBD = [Ô]root[Ô]
50 SenhaBD = [Ô]123BAPN3exJqJPCvf678[Ô] [ô]senha pra conexão local
60 Porta = [Ô]3306[Ô]
70 Set ConexaoADO = New ADODB.Connection
90 ConexaoADO.ConnectionString = [Ô]Driver={MySQL ODBC 5.1 Driver};Server=[Ô] & CaminhoBD & [Ô];Port=[Ô] & Porta & [Ô];Database=[Ô] & Banco & [Ô];User=[Ô] & UserBD & [Ô];Password=[Ô] & SenhaBD & [Ô];Option=3;[Ô]
110 ConexaoADO.CursorLocation = adUseClient
120 CNN_string = ConexaoADO.ConnectionString
[ô]MsgBox CNN_string
130 ConexaoADO.Open
140 On Error GoTo 0
150 Exit Sub
SU_Conecta_Error:
160 MsgBox [Ô]Ocorreu um error de número: [Ô] & Err.Number & [Ô] - [Ô] & Err.Description & [Ô], na linha: [Ô] & Erl & [Ô] - [Ô] & Err.Description & [Ô] na procedure SU_Conecta no Módulo CONEXAO_BD[Ô]
End Sub
colega o banco está em um servidor na net?
ou é um servidor proprio?
ou é um servidor proprio?
Opa! Treze tá num servidor próprio, tinha o mysql instalado com o xampp, ai não dava acesso remoto em uma busca na net, tinha uma dica pra colocar o sevidor mysql fora do xampp, bom fiz isso mais não deu, no meu projeto quando aponto pro IP local 127.0.0.1 a conexão vai que é uma belexa, mais quanto aponto pro IP da net não vai nem a pau....
alf o que pode estra acontecendo primiero você deve se certificar que a porta 3306 esteja liberada no firewall
agora quanto ao ip se você não possui um ip fixo, então esse é um problema, se você não possuir um ip fixo e não quiser contratar o serviso de ip fixo de sua operadora de internet aconselho a baixar o NO-IP no seu servidor este programa lhe fornecerá um IPFIXO que irá funcionar, tente as opções que te passei
agora quanto ao ip se você não possui um ip fixo, então esse é um problema, se você não possuir um ip fixo e não quiser contratar o serviso de ip fixo de sua operadora de internet aconselho a baixar o NO-IP no seu servidor este programa lhe fornecerá um IPFIXO que irá funcionar, tente as opções que te passei
Treze, cara adicionei a porta e nada, desabilitei o firewall do AVG o do win já está desabilitado e nada, cara esse erro ta froid.......
eutou mandando a imagem do erro em anexo..............
eutou mandando a imagem do erro em anexo..............
Por onde vc testa a conexão remorta ?
Na maquina cliente também tem que abrir a porta 3306
Já que é em vb6, e não via browser.
Na maquina cliente também tem que abrir a porta 3306
Já que é em vb6, e não via browser.
tenta esta pequena alteração
teste da maneira acima
Public Sub SU_Conecta()
[ô]O CAMINHO DO BANCO VAI TA NO LOAD DO FORM DE LOGIN
05 Dim CON_STR As String
10 On Error GoTo SU_Conecta_Error
20 CaminhoBD = IPconexao
30 Banco = [Ô]NFeONLINE[Ô]
40 UserBD = [Ô]root[Ô]
50 SenhaBD = [Ô]123BAPN3exJqJPCvf678[Ô] [ô]senha pra conexão local
60 Porta = [Ô]3306[Ô]
70 Set ConexaoADO = New ADODB.Connection
90 CON_STR = [Ô]Driver={MySQL ODBC 5.1 Driver};Server=[Ô] & CaminhoBD & [Ô];Port=[Ô] & Porta & [Ô];Database=[Ô] & Banco & [Ô];User=[Ô] & UserBD & [Ô];Password=[Ô] & SenhaBD & [Ô];Option=3;[Ô]
110 ConexaoADO.CursorLocation = adUseClient
120 ConexaoADO.ConnectionString = CON_STR
[ô]MsgBox CNN_string
130 ConexaoADO.Open CON_STR
140 On Error GoTo 0
150 Exit Sub
SU_Conecta_Error:
160 MsgBox [Ô]Ocorreu um error de número: [Ô] & Err.Number & [Ô] - [Ô] & Err.Description & [Ô], na linha: [Ô] & Erl & [Ô] - [Ô] & Err.Description & [Ô] na procedure SU_Conecta no Módulo CONEXAO_BD[Ô]
End Subteste da maneira acima
Treze, valew pela ajuda/atenção, mais como essa p................ não deu, vou fazer o seguinte: um misto de vb com php, já que vou ter que salvar algumas informações no meu server....
vai ser f... mais fazer o que é a vida hehhehehe
ALF.......
vai ser f... mais fazer o que é a vida hehhehehe
ALF.......
1 - Para testar se seu servidor MySQL está respondendo chamadas externas, utilize o MySQL Administrator
2 - Preencha os dados da conexão com o IP EXTERNO da máquina onde o servidor MySQL está instalado e tente conectar
Se você não conseguir conectar, o problema não é o seu código e sim alguma coisa da rede que não está correta. Se conseguir, aà sim, é código.
Fazer essa mistura que você quer fazer de PHP, vai ser ainda mais trabalhoso...
Uma idéia, seria criar um webservice para usar seu banco de dados.
2 - Preencha os dados da conexão com o IP EXTERNO da máquina onde o servidor MySQL está instalado e tente conectar
Se você não conseguir conectar, o problema não é o seu código e sim alguma coisa da rede que não está correta. Se conseguir, aà sim, é código.
Fazer essa mistura que você quer fazer de PHP, vai ser ainda mais trabalhoso...
Uma idéia, seria criar um webservice para usar seu banco de dados.
Tópico encerrado , respostas não são mais permitidas