CRIAR CONEXÃO ODBC MYSQL E DEPOIS DESTRUIR

LUCIANORW 26/11/2016 14:27:58
#469245
Boa tarde KERPLUNK!!!
Não sei que tanto mexi no 000webhost, mas consegui importar o schema.
As tabelas vieram todas

Sei que está fugindo do proposito do topico, mas para não ficar abrindo varios, talvez possa continuar aqui mesmo, se não puder, me avisa que encerro e abro outro.
Agora mais um BO.
Como disse, consegui jogar o bd no 000webhost, mas conforme a imagem abaixo, ele ainda aparece como localhost.
Isso significa que estou acessando da minha maquina?
Saberia me dizer como consigo descobrir o IP onde o bd está, para poder fazer um teste sem ser local?
E por fim, algum material sobre mysql, de preferencia usando ambiente visual (estou perdidaço), só para ter ideia, não estou sequer conseguindo alterar a senha do root?

Att
Luciano
KERPLUNK 26/11/2016 16:35:50
#469255
Estou vendo que você está perdido mesmo. Quanto às suas perguntas:
Sim, se aparece localhost, você importou o schema para sua máquina local.
Para conectar com o seu banco remoto, você deve ter recebido um e-mail ou algum lugar no host onde informa o endereço(DNS ou IP) para conectar com seu banco de dados. Uma ferramenta visual para o MySQL é o MySQL Workbench.

Mas acho que o que você deveria fazer é entender o que está fazendo. Pelo que pude ver, você nunca trabalhou com servers ou nada em rede, sugiro que entenda como esta estrutura funciona primeiro, ela servirá de base para entender essa coisa de servidor e locais.

LUCIANORW 08/12/2016 17:29:22
#469525
Boa tarde Kerplunk!!!
Era isto que precisava, aparentemente, está funcionando.
  
Function atualizaVinculoMysql(argUsuario As String, argSenha As String, argIp As String, argBd As String, argPorta As String) As Boolean
    [ô] Atualiza vínculos ao banco de dados informado.
    [ô] Retorna True se bem sucedida.
    [ô] varPwd (opcional) recebe a senha do arquivo mdb.
    If CheckConnection = True Then
        Dim bdAtual As Database, defTabela As TableDef
        Dim Contador As Integer
        Dim StatusTexto As String
        Dim strConnect As String
        Dim tabela As String

        atualizaVinculoMysql = False    [ô] Valor inicial da função.

        Set bdAtual = DBEngine(0)(0)
        Contador = 1    [ô] Ajusta contador de tabelas = 1
        [ô] Inicia a barra de progresso do Access.
        StatusTexto = [Ô]Atualizando vínculos com [Ô] & argBd & [Ô]...[Ô]
        SysCmd acSysCmdInitMeter, StatusTexto, bdAtual.TableDefs.Count
        [ô] Define a string da propriedade Connect.
        strConnect = [Ô]ODBC;driver={MySql ODBC 5.3 Unicode Driver};server=[Ô] & argIp & [Ô];uid=[Ô] & argUsuario & [Ô];pwd=[Ô] & argSenha & [Ô];database=[Ô] & argBd & [Ô]; Port=[Ô] & argPorta & [Ô];Option=3;[Ô]
        [ô] Loop pelas tabelas do front-end.
        For Each defTabela In bdAtual.TableDefs
            SysCmd acSysCmdUpdateMeter, Contador    [ô]Atualiza o progresso.
            Contador = Contador + 1
            [ô] Toda tabela vinculada possui a propriedade
            [ô] Connect preenchida.
            If Len(defTabela.Connect) > 0 Then
                On Error Resume Next
                defTabela.Connect = strConnect & [Ô];table=[Ô] & defTabela.Name
                defTabela.RefreshLink  [ô] Atualiza vínculos.
                Resume Next
            End If
        Next defTabela
        atualizaVinculoMysql = True  [ô] Revinculação completa.
Sai:
        SysCmd acSysCmdRemoveMeter
        Set defTabela = Nothing       [ô]libera memória
        Set bdAtual = Nothing
        Exit Function
    Else
        Beep
        MsgBox [Ô]Erro de conexão com a internet![Ô] & vbCrLf & [Ô]Impossivel se conectar com base de dados remota![Ô] & vbCrLf & [Ô]Verifique sua conexão de internet![Ô], vbCritical, [Ô]Erro[Ô]
        DoCmd.Quit
    End If
End Function
Function teste()
    Call atualizaVinculoMysql([Ô]root[Ô], [Ô]SENHA[Ô], [Ô]127.0.0.1[Ô], [Ô]BASE_DE_DADOS[Ô], [Ô]3306[Ô])
End Function


No access tem um esquema de vincular tabelas do back-end ao front-end, mesmo que eu exclua a tabela do front, o codigo refaz o vinculo.
Access => Access

Sabe me dizer se tem algo no Mysql?
Access => Mysql

Att
Luciano
LUCIANORW 01/11/2024 11:36:40
#503639
ok
Página 2 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar