ABERTURA DE BANCOS DE DADOS
Bom dia pessoal,
Estou tentando abrir um banco de dados pela internet, as linhas de comandos são estas:
[ô]*
[ô]* Declarnado Variáveis Públicas
[ô]*
Public StrSenha As String
Public Servidor As String = [Ô]aecminas.ddns.com.br[Ô] [ô][Ô]192.168.0.1[Ô] [ô]
Public Usuarios As String = [Ô]root[Ô]
Public Senhas As String = [Ô][Ô]
Public Bancos As String = [Ô]aecminas[Ô]
Public Function Login(ByVal Usuario As String, ByVal Senha As String) As Boolean
Dim Str As String
Dim Conectou As Boolean = False
StrSenha = [Ô]Server=[Ô] & Servidor & [Ô];User id=[Ô] & Usuarios & [Ô];password=[Ô] & Senhas & [Ô];database=[Ô] & Bancos & [Ô];[Ô]
Str = [Ô]SELECT USUARIO_SEN,SENHAS1_SEN FROM VbSenha WHERE USUARIO_SEN = [ô][Ô] & Usuario & [Ô][ô]AND SENHAS1_SEN = [ô][Ô] & Senha & [Ô][ô][Ô]
Dim Conn As New MySqlConnection(StrSenha)
Dim Cmd As New MySqlCommand(Str, Conn)
Try
Conn.Open()
Dim dr As MySqlDataReader
dr = Cmd.ExecuteReader
If dr.Read Then
Conectou = True
End If
Catch ex As Exception
[ô]
Conectou = False
Finally
Conn.Close()
End Try
Return Conectou
End Function
Bem, quando especifico o caminho da rede (192.168.0.1) o banco de dados abre normalmente, mas quando tento abrir via internet (aecminas.ddns.com.br), o banco de dados não abre.
O que estou fazendo de errado, ou não é estes os comandos para abrir um banco de dados via internet?
Obrigado,
Estou tentando abrir um banco de dados pela internet, as linhas de comandos são estas:
[ô]*
[ô]* Declarnado Variáveis Públicas
[ô]*
Public StrSenha As String
Public Servidor As String = [Ô]aecminas.ddns.com.br[Ô] [ô][Ô]192.168.0.1[Ô] [ô]
Public Usuarios As String = [Ô]root[Ô]
Public Senhas As String = [Ô][Ô]
Public Bancos As String = [Ô]aecminas[Ô]
Public Function Login(ByVal Usuario As String, ByVal Senha As String) As Boolean
Dim Str As String
Dim Conectou As Boolean = False
StrSenha = [Ô]Server=[Ô] & Servidor & [Ô];User id=[Ô] & Usuarios & [Ô];password=[Ô] & Senhas & [Ô];database=[Ô] & Bancos & [Ô];[Ô]
Str = [Ô]SELECT USUARIO_SEN,SENHAS1_SEN FROM VbSenha WHERE USUARIO_SEN = [ô][Ô] & Usuario & [Ô][ô]AND SENHAS1_SEN = [ô][Ô] & Senha & [Ô][ô][Ô]
Dim Conn As New MySqlConnection(StrSenha)
Dim Cmd As New MySqlCommand(Str, Conn)
Try
Conn.Open()
Dim dr As MySqlDataReader
dr = Cmd.ExecuteReader
If dr.Read Then
Conectou = True
End If
Catch ex As Exception
[ô]
Conectou = False
Finally
Conn.Close()
End Try
Return Conectou
End Function
Bem, quando especifico o caminho da rede (192.168.0.1) o banco de dados abre normalmente, mas quando tento abrir via internet (aecminas.ddns.com.br), o banco de dados não abre.
O que estou fazendo de errado, ou não é estes os comandos para abrir um banco de dados via internet?
Obrigado,
Se abre localmente, o problema não está no código. Tem que verificar a acessibilidade do servidor. Isso é com quem cuida da rede...
da um olhada na porta 1433, verifique se esta aberta no firewall, para acesso externo é necessário que esta porta esteja aberta
Pessoal, já tem um programa feito em DELPHI rodando aqui na empresa com o endereço DDNS descrito, só que que estou fazendo é que não quer dar certo.
Alguma sugestão??
Obrigado,
Alguma sugestão??
Obrigado,
vi que vc esta usando o usuário root
no mysql deve estar habilitado para permitir a conexão do root via rede.
Sugestão: Use o mesmo usuário e senha do outro programa, ou crie um novo usuário!
Grego - bom dia - Estou utilizando o mesmo usuário e senha do programa mencionado e nada.
Mais alguma sugestão?
Obrigado,
Mais alguma sugestão?
Obrigado,
Tópico encerrado , respostas não são mais permitidas