MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]efetuar comando ping pelo access

    lfconsult
    lfconsult
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 05/09/2010

    [Resolvido]efetuar comando ping pelo access Empty [Resolvido]efetuar comando ping pelo access

    Mensagem  lfconsult em 14/7/2012, 17:07

    ola boa tarde to precisando efetuar o comando ping pelo access e obter a resposta do mesmo.
    ja pesquisei bastante e ainda nao achei nada, alguem poderia me ajudar


    .................................................................................
    sunny
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido]efetuar comando ping pelo access Empty Re: [Resolvido]efetuar comando ping pelo access

    Mensagem  criquio em 14/7/2012, 18:41

    Seria algo assim?

    Código:
        Dim objShell As Object, Resultado As String
       
        Resultado = ""
        Set objShell = CreateObject("WScript.Shell").Exec("ping EndereçoASerPingado")

        Do While Not objShell.StdOut.AtEndOfStream
            Resultado = objShell.StdOut.ReadLine()
        Loop

        MsgBox Resultado & "-" & SystemOnLine


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    lfconsult
    lfconsult
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 05/09/2010

    [Resolvido]efetuar comando ping pelo access Empty Re: [Resolvido]efetuar comando ping pelo access

    Mensagem  lfconsult em 15/7/2012, 16:25

    cara perfeito este comando so nao to conseguindo me refereir a um campo para obter o endereço pro ping, exemplo ping 192.168.1.1 funciona perfeitamente.

    se eu colocar ping txt.endexterno não executa da erro pois se eu deixar o campo dentro das "" nao funciona e sem "" da erro

    deve ser burrice minha mas tem algum jeito facil de se referir a um campo.

    muito grato deste ja


    .................................................................................
    sunny
    lfconsult
    lfconsult
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 05/09/2010

    [Resolvido]efetuar comando ping pelo access Empty Re: [Resolvido]efetuar comando ping pelo access

    Mensagem  lfconsult em 15/7/2012, 16:37

    cara muito obrigado consegui
    fiz assim


    Dim objShell As Object, Resultado As String

    Resultado = ""
    endping = "ping " & Me.txtendexterno
    Set objShell = CreateObject("WScript.Shell").Exec(endping)

    Do While Not objShell.StdOut.AtEndOfStream
    Resultado = objShell.StdOut.ReadLine()
    Loop

    MsgBox Resultado & "-" & SystemOnLine

    ai funcionou perfeitamente do jeito que eu precisava...

    muito obrigado


    .................................................................................
    sunny
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7852
    Registrado : 05/11/2009

    [Resolvido]efetuar comando ping pelo access Empty Re: [Resolvido]efetuar comando ping pelo access

    Mensagem  Alexandre Neves em 15/7/2012, 16:45

    Boa tarde, ifconsult
    Lembre-se: esclarecida a dúvida, marcado o Resolvido
    Desta vez, marco-o
    avatar
    raijeweb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 187
    Registrado : 01/04/2016

    [Resolvido]efetuar comando ping pelo access Empty Re: [Resolvido]efetuar comando ping pelo access

    Mensagem  raijeweb em 18/8/2019, 05:24

    Olá luiz teria como voce postar aqui no forum o exemplo de como voce fez?

      Data/hora atual: 22/1/2021, 08:40