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


3 participantes

    [Resolvido]Gardar o resultado de função na tabela.

    avatar
    Daluque
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 217
    Registrado : 06/03/2012

    [Resolvido]Gardar o resultado de função na tabela. Empty Gardar o resultado de função na tabela.

    Mensagem  Daluque 19/11/2012, 17:39

    Amigos.
    Esse código pega o IP da maquina. estou tentando guardar o resultado em uma tabela e não estou conseguindo. só sai na janela imediata.

    Option Explicit

    ' VBA MODULE: Get all IP Addresses of your machine
    ' (c) 2005 Wayne Phillips (http://www.everythingaccess.com)
    ' Written 18/05/2005
    '
    ' REQUIREMENTS: Windows 98 or above, Access 97 and above
    '
    ' Please read the full tutorial here:
    ' http://www.everythingaccess.com/tutorials.asp?ID=Get-all-IP-Addresses-of-your-machine
    '
    ' Please leave the copyright notices in place.
    ' Thank you.
    '
    Option Compare Database

    'A couple of API functions we need in order to query the IP addresses in this machine
    Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
    Public Declare Function GetIpAddrTable Lib "Iphlpapi" (pIPAdrTable As Byte, pdwSize As Long, ByVal Sort As Long) As Long

    'The structures returned by the API call GetIpAddrTable...
    Type IPINFO
    dwAddr As Long ' IP address
    dwIndex As Long ' interface index
    dwMask As Long ' subnet mask
    dwBCastAddr As Long ' broadcast address
    dwReasmSize As Long ' assembly size
    Reserved1 As Integer
    Reserved2 As Integer
    End Type

    Public Function ConvertIPAddressToString(longAddr As Long) As String

    Dim IPBytes(3) As Byte
    Dim lngCount As Long

    'Converts a long IP Address to a string formatted 255.255.255.255
    'Note: Could use inet_ntoa instead

    CopyMemory IPBytes(0), longAddr, 4 ' IP Address is stored in four bytes (255.255.255.255)

    'Convert the 4 byte values to a formatted string
    While lngCount < 4

    ConvertIPAddressToString = ConvertIPAddressToString + _
    CStr(IPBytes(lngCount)) + _
    IIf(lngCount < 3, ".", "")

    lngCount = lngCount + 1

    Wend

    End Function

    Public Sub GetIPAddresses(Optional blnFilterLocalhost As Boolean = False)

    Dim Ret As Long, Tel As Long
    Dim bytBuffer() As Byte
    Dim IPTableRow As IPINFO
    Dim lngCount As Long
    Dim lngBufferRequired As Long
    Dim lngStructSize As Long
    Dim lngNumIPAddresses As Long
    Dim strIPAddress As String

    On Error GoTo ErrorHandler:

    Call GetIpAddrTable(ByVal 0&, lngBufferRequired, 1)

    If lngBufferRequired > 0 Then

    ReDim bytBuffer(0 To lngBufferRequired - 1) As Byte

    If GetIpAddrTable(bytBuffer(0), lngBufferRequired, 1) = 0 Then

    'We've successfully obtained the IP Address details...

    'How big is each structure row?...
    lngStructSize = LenB(IPTableRow)

    'First 4 bytes is a long indicating the number of entries in the table
    CopyMemory lngNumIPAddresses, bytBuffer(0), 4

    While lngCount < lngNumIPAddresses

    'bytBuffer contains the IPINFO structures (after initial 4 byte long)
    CopyMemory IPTableRow, _
    bytBuffer(4 + (lngCount * lngStructSize)), _
    lngStructSize

    strIPAddress = ConvertIPAddressToString(IPTableRow.dwAddr)

    If Not ((strIPAddress = "127.0.0.1") _
    And blnFilterLocalhost) Then

    'Replace this with whatever you want to do with the IP Address...
    Debug.Print strIPAddress

    End If

    lngCount = lngCount + 1

    Wend

    End If

    End If

    Exit Sub

    ErrorHandler:
    MsgBox "An error has occured in GetIPAddresses():" & vbCrLf & vbCrLf & _
    Err.Description & " (" & CStr(Err.Number) & ")"

    End Sub

    poderiam me ajudar nessa ?


    .................................................................................
    Daluque

    Office 2003
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Gardar o resultado de função na tabela. Empty Re: [Resolvido]Gardar o resultado de função na tabela.

    Mensagem  Alexandre Neves 19/11/2012, 19:45

    Oh, Daluque
    Substitua
    Debug.Print strIPAddress
    por
    Currentdb.execute "INSERT INTO Tabela(Campo) VALUES ('" & strIPAddress & "');"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Daluque
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 217
    Registrado : 06/03/2012

    [Resolvido]Gardar o resultado de função na tabela. Empty Re: [Resolvido]Gardar o resultado de função na tabela.

    Mensagem  Daluque 19/11/2012, 23:42

    Alexandre. Obrigado.

    Desculpe, como eu mandaria executar esse comando ?


    .................................................................................
    Daluque

    Office 2003
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Gardar o resultado de função na tabela. Empty Re: [Resolvido]Gardar o resultado de função na tabela.

    Mensagem  JPaulo 20/11/2012, 10:29

    Como você faz para aparecer na janela Immediate, faz num evento qualquer;

    Veja este exemplo, que verifica se sua Internet está ligada e insere o IP na tabela;

    Anexos
    [Resolvido]Gardar o resultado de função na tabela. AttachmentIP.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (23 Kb) Baixado 34 vez(es)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Gardar o resultado de função na tabela. Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Gardar o resultado de função na tabela. Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Gardar o resultado de função na tabela. Folder_announce_new Instruções SQL como utilizar...
    avatar
    Daluque
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 217
    Registrado : 06/03/2012

    [Resolvido]Gardar o resultado de função na tabela. Empty Re: [Resolvido]Gardar o resultado de função na tabela.

    Mensagem  Daluque 20/11/2012, 13:11

    Ok. deu certo.
    Obrigado Alexandre, JPaulo.


    .................................................................................
    Daluque

    Office 2003

    Conteúdo patrocinado


    [Resolvido]Gardar o resultado de função na tabela. Empty Re: [Resolvido]Gardar o resultado de função na tabela.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 11:56