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


    [Resolvido]Retornar nome das colunas de uma tabela

    ruggerib
    ruggerib
    Novato
    Novato

    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 em 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
    Moderador
    Moderador

    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 em 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:
    http://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 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 em 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: 18/6/2019, 14:05