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

    [Resolvido]Retornar nome das colunas de uma tabela

    ruggerib
    ruggerib
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 14/01/2014

    [Resolvido]Retornar nome das colunas de uma tabela Empty [Resolvido]Retornar nome das colunas de uma tabela

    Mensagem  ruggerib 27/5/2016, 02:29

    Amigos,

    preciso retornar em uma consulta o nome dos campos(Colunas) de uma tabela, no banco de dados Oracle e MySql existe uma consulta que é assim

    SELECT COLUMN_NAME
    FROM INFORMATION_SCHEMA.COLUMNS
    WHERE TABLE_SCHEMA='MinhaTbl'

    Preciso de uma consulta equivalente no Access.

    Obrigado desde já pela atenção,
    Ruggeri Barbosa
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Retornar nome das colunas de uma tabela Empty Re: [Resolvido]Retornar nome das colunas de uma tabela

    Mensagem  FabioPaes 27/5/2016, 13:58

    Crie um Modulo e Coloque isto:

    Código:

    Sub MostraCampos(strTabela As String)
    'criado por Alexandre Neves Em 2011-05-15 para Domingos do fórum MaximoAccess
    'Editado por FabioPaes em 27/05/2016

    Dim I As Integer
    Dim F As String

    F = ""

    For I = 1 To CurrentDb.TableDefs(strTabela).Fields.Count
    F = F & "," & CurrentDb.TableDefs(strTabela).Fields(I - 1).Name
    Next
    MsgBox Right(F, Len(F) - 1) 'Remove a ,Anes do Primeiro Campo


    End Sub


    Para Testar, em um botão coloque:

    Código:

    MostraCampos ("tb2") ' "tb2"  é o Nome da Tabela


    Isso mostrará os Nomes dos Campos Separados por Virgula.

    Fonte:
    https://www.maximoaccess.com/t2517-resolvidoidentificar-nomes-dos-campos-da-tabela-via-codigo-vba


    Última edição por FabioPaes em 27/5/2016, 18:17, editado 1 vez(es)


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    ruggerib
    ruggerib
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 14/01/2014

    [Resolvido]Retornar nome das colunas de uma tabela Empty Re: [Resolvido]Retornar nome das colunas de uma tabela

    Mensagem  ruggerib 27/5/2016, 18:06

    Perfeito!
    Atendeu o que eu precisava!

    Abs,
    Ruggeri Barbosa

    Conteúdo patrocinado


    [Resolvido]Retornar nome das colunas de uma tabela Empty Re: [Resolvido]Retornar nome das colunas de uma tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 22:26