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

    [Resolvido]efetuar comando ping pelo access

    lfconsult
    lfconsult
    Novato
    Novato

    Respeito às regras : 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 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 : Respeito às Regras 100%

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

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

    Mensagem  criquio 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 : 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 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 : 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 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 : Respeito às Regras 100%

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

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

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

    Boa tarde, ifconsult
    Lembre-se: esclarecida a dúvida, marcado o Resolvido
    Desta vez, marco-o
    avatar
    raijeweb
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  raijeweb 18/8/2019, 05:24

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

      Data/hora atual: 24/7/2021, 07:46