nome dos campos de uma tabela

[cpa 0]

Pessoal, estou fazendo uma página onde o usuário poderá digitar qualquer select e a página deve mostrar os nomes dos campos do select. Ou seja, o objetivo é mostrar a estrutura da tabela e não os registros da tabela.Exemplo:O usuário digita: select * from tbClienteAo clicar num botão, traz o nome dos campos da tabela:codClienteNomeClienteFoneClienteAlguém pode me ajudar?

[arr 0]

Se você estiver usando o Acces isso dá para fazer com o Open.Schema.Vai um script aí para você começar a brincar:Abs,<%Response.Write ListaTabelaFunction ListaTabela'## LISTANDO O "NOME DAS TABELAS" DE SEU BANCO DE DADOS COM OPENSCHEMADim Conn, RSTabelas, RSColunas, RSCampos, adSchemaTables, adSchemaColumnsSet Conn = Server.CreateObject("ADODB.Connection")'####### MICROSOFT ACCESS ########################################################FileDB = "c:\pasta\meuDB.mdb" ' Substitua essa linha com o caminho corretostringDB = "DBQ=" & FileDB & ";Driver={Microsoft Access Driver (*.mdb)}"Conn.Open stringDBadSchemaTables = 20Set RSTabelas = Conn.OpenSchema(adSchemaTables)Response.Write "<b>Nome das tabelas do seu banco de dados</b><br>"Do While Not RSTabelas.EOFIf Trim(RSTabelas("TABLE_TYPE")) = "TABLE" ThenResponse.Write RSTabelas("TABLE_NAME") & "<br>"End IfRSTabelas.MovenextLoop%><BR><BR><BR><%'## LISTANDO O "NOME DAS COLUNAS" DAS TABELAS DE SEU BANCO DE DADOS COM OPENSCHEMA ########adSchemaColumns = 4Set RSColunas = Conn.OpenSchema(adSchemaColumns)RSTabelas.MovefirstDo While Not RSTabelas.EOFIf Trim(RSTabelas("TABLE_TYPE")) = "TABLE" ThenRSColunas.MoveFirstResponse.Write "<b>Nome das Colunas da tabelas " & RSTabelas("TABLE_NAME") & "</b><br>"Response.Write"<br><br>"&RSTabelas("TABLE_NAME") &"<br><br>"Do While Not RSColunas.EOFIf Trim(RSColunas("TABLE_NAME"))=RSTabelas("TABLE_NAME") ThenResponse.Write "<b>" & RSColunas("COLUMN_NAME") & "</b>"Response.Write"<br> TABLE_CATALOG "& RSColunas("TABLE_CATALOG")Response.Write"<br> TABLE_SCHEMA "& RSColunas("TABLE_SCHEMA")Response.Write"<br> TABLE_NAME "& RSColunas("TABLE_NAME")Response.Write"<br> COLUMN_NAME "& RSColunas("COLUMN_NAME")'Response.Write"<br> COLUMN_GUID "& RSColunas("COLUMN_GUID")'Response.Write"<br> COLUMN_PROPID "& RSColunas("COLUMN_PROPID")Response.Write"<br> ORDINAL_POSITION "& RSColunas("ORDINAL_POSITION")Response.Write"<br> COLUMN_HASDEFAULT "& RSColunas("COLUMN_HASDEFAULT")Response.Write"<br> COLUMN_DEFAULT "& RSColunas("COLUMN_DEFAULT")Response.Write"<br> COLUMN_FLAGS "& RSColunas("COLUMN_FLAGS")Response.Write"<br> IS_NULLABLE "& RSColunas("IS_NULLABLE")Response.Write"<br> DATA_TYPE "& RSColunas("DATA_TYPE")Response.Write"<br> TYPE_GUID "& RSColunas("TYPE_GUID")Response.Write"<br> CHARACTER_MAXIMUM_LENGTH "& RSColunas("CHARACTER_MAXIMUM_LENGTH")Response.Write"<br> CHARACTER_OCTET_LENGTH "& RSColunas("CHARACTER_OCTET_LENGTH")Response.Write"<br> NUMERIC_PRECISION "& RSColunas("NUMERIC_PRECISION")Response.Write"<br> NUMERIC_SCALE "& RSColunas("NUMERIC_SCALE")Response.Write"<br> DATETIME_PRECISION "& RSColunas("DATETIME_PRECISION")Response.Write"<br> CHARACTER_SET_CATALOG "& RSColunas("CHARACTER_SET_CATALOG")Response.Write"<br> CHARACTER_SET_SCHEMA "& RSColunas("CHARACTER_SET_SCHEMA")Response.Write"<br> CHARACTER_SET_NAME "& RSColunas("CHARACTER_SET_NAME")Response.Write"<br> COLLATION_CATALOG "& RSColunas("COLLATION_CATALOG")Response.Write"<br> COLLATION_SCHEMA "& RSColunas("COLLATION_SCHEMA")Response.Write"<br> COLLATION_NAME "& RSColunas("COLLATION_NAME")Response.Write"<br> DOMAIN_CATALOG "& RSColunas("DOMAIN_CATALOG")Response.Write"<br> DOMAIN_SCHEMA "& RSColunas("DOMAIN_SCHEMA")Response.Write"<br> DOMAIN_NAME "& RSColunas("DOMAIN_NAME")Response.Write"<br> DESCRIPTION "& RSColunas("DESCRIPTION") Response.Write"<br> SS_DATA_TYPE "& RSColunas("SS_DATA_TYPE")Response.Write "<BR><BR><BR><BR>"End IFRSColunas.MoveNextLoopEnd IFRSTabelas.MoveNextLoopEnd Function%>