MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

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

    Compartilhe

    aep
    Novato
    Novato

    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

    Mensagem  aep em 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á
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 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:
    [Você precisa estar registrado e conectado para ver este link.]

    Se efetuar uma "Busca" no fórum tem mais exemplos, veja como fazer:
    [Você precisa estar registrado e conectado para ver este link.]


    Abraço

    aep
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  aep em 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.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 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:

    [Você precisa estar registrado e conectado para ver este link.]

    Abraço

    aep
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  aep em 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)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 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:
    [Você precisa estar registrado e conectado para ver este link.]

    Abraço

    aep
    Novato
    Novato

    Respeito às Regras 100%

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

    RESOLVIDO

    Mensagem  aep em 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!
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 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:
    [Você precisa estar registrado e conectado para ver este link.]

    Abraço

      Data/hora atual: 23/10/2018, 15:59