MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    Vincular um banco de dados á um IP de máquina específico

    avatar
    aep
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 26/04/2018

    Vincular um banco de dados á um IP de máquina específico Empty Vincular um banco de dados á um IP de máquina específico

    Mensagem  aep 26/4/2018, 16:00

    Boa tarde pessoal,

    Gostaria de saber se alguém sabe como vincular um determinado banco de dados à um IP de máquina especifico!

    Tipo, eu informo em algum lugar o número do IP da máquina, quando o banco abre ele confere se o IP da máquina é o mesmo que eu defini no banco de dados, se sim o banco abre, se não o banco não abre.
    Essa conferencia poderia ser tipo em um formulário splash ou outro lugar

    Se alguém tiver uma ideia ou um modelo para me enviar agradeço desde já
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    Vincular um banco de dados á um IP de máquina específico Empty Re: Vincular um banco de dados á um IP de máquina específico

    Mensagem  Alvaro Teixeira 26/4/2018, 16:46

    Olá Roberto, Bem-Vindo ao fórum.

    Para vincular usamos via UNC em que pode ser o nome da maquina ou IP, exemplo:

    \\NomeMaquina_ou_IP\Pasta\Ficheiro.accdb
    \\192.xxx.xxx.xxx\Pasta\Ficheiro.accdb


    Para obter o IP da maquina que está a rolar, veja no tópico abaixo:
    https://www.maximoaccess.com/t24432-mostrar-ip-da-maquina

    Se efetuar uma "Busca" no fórum tem mais exemplos, veja como fazer:
    https://www.maximoaccess.com/t1115-busca-no-forum-search


    Abraço
    avatar
    aep
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 26/04/2018

    Vincular um banco de dados á um IP de máquina específico Empty Re: Vincular um banco de dados á um IP de máquina específico

    Mensagem  aep 8/5/2018, 21:41

    Obrigado pela atenção amigo, mas não é bem isso.

    Meu banco fica na própria máquina que vai usar, dai fiz o pacote de instalação que faz o atalho pro usuário direto...

    Precisaria informar, eu mesmo, mesmo que manualmente em alguma tabela ou formulario o IP da máquina que vai usar, dai quando fosse abrir o BD testaria para ver se é o mesmo, senão fosse ele não abriria.

    Isso seria tipo para evitar de algum espertalhão copiasse o programa e colocasse para rodar em outra máquina entende.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    Vincular um banco de dados á um IP de máquina específico Empty Re: Vincular um banco de dados á um IP de máquina específico

    Mensagem  Alvaro Teixeira 8/5/2018, 22:45

    Olá Roberto,

    Obrigado pelo retorno, não falta exemplos no forum para o pretendido.
    É só fazer uma "Busca", veja este por exemplo:

    https://www.maximoaccess.com/t32447-numero-de-serie-da-motherboard-do-hd

    Abraço
    avatar
    aep
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 26/04/2018

    Vincular um banco de dados á um IP de máquina específico Empty Re: Vincular um banco de dados á um IP de máquina específico

    Mensagem  aep 10/5/2018, 21:34

    Consegui colocando o seguinte código em um modulo e atribuindo em uma caixa texto para mostrar o IP


    Código:
    Public Function fncIP() As String
    Dim objWMIService As Object
    Dim strComputer As String
    Dim strSql As String
    Dim IPConfigSet
    Dim IPConfig
    Dim i

    strComputer = "." 'Acesso a máquina local
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    strSql = "Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE"
    Set IPConfigSet = objWMIService.ExecQuery(strSql)

    For Each IPConfig In IPConfigSet
    If Not IsNull(IPConfig.IPAddress) Then
    For i = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
      If InStr(IPConfig.IPAddress(i), "::") = 0 Then fncIP = "IP da máquina " & Environ("computername") & ":  " & IPConfig.IPAddress(i)
    Next
    End If
    Next
    Set objWMIService = Nothing
    End Function

    Dai fiz a comparação no formulario ao carregar com o seguinte código

    Código:
    Private Sub Form_Load()
    If (Texto22) = "IP da máquina 038269:  10.xxx.xxx.23" Then

    Cancel = -1
    NotExit = 0

    Else
    On Error GoTo Err_Form_Load
    MsgBox "Máquina não Cadastrada - Entre em contato com o suporte técnico      (61) xxxxxx-xxxx  xxxxxxxxxx@gmail.com", vbInformation, "Alerta!"
       Dim stDocName As String

       stDocName = "mc_fecha_programa"
       DoCmd.RunMacro stDocName

    Exit_Form_Load:
       Exit Sub


    Err_Form_Load:
       MsgBox Err.Description
       Resume Exit_Form_Load
    End If
    End Sub

    Deu certinho com o IP, mas surgiu outro problema, se a maquina não estiver conectada em rede o IP fica mudando, será que consigo fazer com o mesmo código para pegar o MAC da máquina?
    Como mudaria o código?


    Última edição por aep em 11/5/2018, 15:27, editado 1 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    Vincular um banco de dados á um IP de máquina específico Empty Re: Vincular um banco de dados á um IP de máquina específico

    Mensagem  Alvaro Teixeira 11/5/2018, 12:39

    Olá Roberto,

    Foi por essa razão de alterar que na minha última mensaagem fiz a sugestão da verificação através do numero de série da Placa-Mãe.
    No seguimento do que pretende, será ajustar o código para verificar com o MAC, quanto à função pode obter no link abaixo:
    https://www.maximoaccess.com/t33280-ip-local-publico-e-mac-address

    Abraço
    avatar
    aep
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 26/04/2018

    Vincular um banco de dados á um IP de máquina específico Empty RESOLVIDO

    Mensagem  aep 11/5/2018, 19:57

    Cara,

    Deu certinho, muito obrigado!

    Acho que você entendeu mais rápido do que eu que eu estava querendo, parabéns!

    Obrigado pela atenção AMIGO

    cheers cheers bounce bounce lol! lol!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    Vincular um banco de dados á um IP de máquina específico Empty Re: Vincular um banco de dados á um IP de máquina específico

    Mensagem  Alvaro Teixeira 11/5/2018, 21:19

    Olá Roberto,

    Obrigado pelo retorno.

    Não se esqueça de dar o tópico como Resolvido, veja como fazer:
    https://www.maximoaccess.com/t860-resolucao-de-topicos

    Abraço

    Conteúdo patrocinado


    Vincular um banco de dados á um IP de máquina específico Empty Re: Vincular um banco de dados á um IP de máquina específico

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 02:25