ACESSO MYSQL

MEYB.JULLYS 23/05/2007 09:11:18
#217845
Bom dia a todos, tenho um sistema que roda VB x Mysql e funciona perfeitamente quando rodo com o banco de dados local, quando coloco ele via rede o mesmo ele não consegue acessar o banco, mesmo informando o IP e Porta corretamente, já tentei desativar o firewall da máquina onde esta o banco e mesmo assim não funcionou. Qual será o problema? Pode ser alguma configuração de rede, visto que o servidor onde esta o banco de dados é diferente do servidor geral da rede? SOCORRO.[S44][S44]
JB207 23/05/2007 09:18:48
#217850
Minhas conexoes eu faço assim:
Leio um arquivo INI onde tem as informacoes do sistema.
Espero que te ajude.

Private Sub Le_Arquivo_Configuracoes()

    Open Arqu_Conf For Input As #1
    
    Do While Not EOF(1)
        Linha = ""
        Line Input #1, Linha
        Texto = Mid(Linha, 1, 20)
        If Texto = "Servidor===========>" Then Conf_Serv = Mid(Linha, 22, Len(Linha))
        If Texto = "Usuario============>" Then Conf_Usua = Mid(Linha, 22, Len(Linha))
        If Texto = "Senha==============>" Then Conf_Senh = DesCriptografa(Mid(Linha, 22, Len(Linha)))
        If Texto = "DataBase===========>" Then Conf_Data = Mid(Linha, 22, Len(Linha))
        If Texto = "DiretorioFotos=====>" Then Conf_Dire = Mid(Linha, 22, Len(Linha))
    Loop
    
    stbInformacoes.Panels(1).Text = "Servidor-> " & Conf_Serv
    stbInformacoes.Panels(2).Text = "DataBase-> " & Conf_Data
    stbInformacoes.Panels(4).Text = Format(Date, "dd/mm/yyyy")
    stbInformacoes.Panels(5).Text = Format(Time, "hh:mm:ss")

    Close #1
    
    On Error GoTo Erro_Conexao_MySQL
    
    ConexaoMySQL = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & Conf_Serv & _
                   ";PORT=3306;DATABASE=" & Conf_Data & _
                   ";USER=" & Conf_Usua & ";PASSWORD=" & Conf_Senh & _
                   ";OPTION=3"

    Set BancoDadosMySQL = New ADODB.Connection
    BancoDadosMySQL.ConnectionString = ConexaoMySQL
    BancoDadosMySQL.Open
    
    Exit Sub

Erro_Conexao_MySQL:
    Mensagem = "Erro de conexão com o Banco de Dados MySQL. Erro Nr. = " & Err.Number & vbCrLf & "Consulte o Suporte Técnico."
    Excl_Regi = False
    frmMsgBox.txtMensagem.Text = Mensagem
    frmMsgBox.Show vbModal
    
    Screen.MousePointer = vbHourglass
    frmConfiguracoes.Show vbModal
    
    Screen.MousePointer = vbHourglass
    Le_Arquivo_Configuracoes
    Screen.MousePointer = vbDefault

End Sub
MEYB.JULLYS 23/05/2007 09:37:03
#217859
Amigo, eu já uso a string de conexão a única diferença é que gravo as informações no registro do Windows.
A tenho um sistema que usa a mesma forma de acesso rodando a 01 ano e meio e nunca deu problema. so que agora eu faço da mesma maneira e não quer conectar...
Continuo parado
Valeu pela ajuda.
USUARIO.EXCLUIDOS 23/05/2007 10:48:24
#217885
olha cara aki no meu trampo agente só usa a classe aki do vbmania que é muito ba por sinal da uma procurada aki que ela é bem facil de usar e vc nunca mais vai ter problema com acesso a mysql
Tópico encerrado , respostas não são mais permitidas
Voltar