USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Estrutura Tabelas
Lú998
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 02/12/2005 13:40 hs         
Oi Galera !
 
Alguem sabe alguma rotina / comando que mostre a estrutura e nomes dos campos de 1 tabela ? (não conteudo dos campos e sim o nome)
 
Valeu !
 
   
Glaucia Helena
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 02/12/2005 14:54 hs            
Oi lu, li algo a respeito no site do Macoratti, de uma procurada com calma que você encontrará.
 
   
Elieser Topassi
Pontos: 2843 Pontos: 2843
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
ENUNCIADA !
Postada em 02/12/2005 21:50 hs            
Se for Access, tem realmente alguns artigos la no site do macoratti mto bons sobre isso... pesquisa la...
Mas se for SQL Server, olha isso:
 
é só adaptar...
 
Flw!


Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn:
elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
Emoções "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

   
Tekki
Pontos: 2843 Pontos: 2843 Pontos: 2843
UBERLÂNDIA
MG - BRASIL
ENUNCIADA !
Postada em 03/12/2005 08:07 hs            
Private Sub sub_LancaCampos()
Dim rsCampos As ADODB.Recordset
   
    Set rsCampos = dbPrincipal.OpenSchema(adSchemaColumns)
   
    'Pega os campos da tabela atual
    Dim bPrimeiroCampo As Boolean 'Para lançar o primeiro campo no text do cboCampos
    bPrimeiroCampo = True
   
    Do Until rsCampos.EOF
        If rsCampos!TABLE_NAME = pub_sTabela Then
            cboCampos.AddItem Right(rsCampos!COLUMN_NAME, Len(rsCampos!COLUMN_NAME) - 4) & " "
            cboOrdem.AddItem Right(rsCampos!COLUMN_NAME, Len(rsCampos!COLUMN_NAME) - 4) & " "
            If bPrimeiroCampo = True Then
                cboCampos.Text = Right(rsCampos!COLUMN_NAME, Len(rsCampos!COLUMN_NAME) - 4) & " "
                cboOrdem.Text = Right(rsCampos!COLUMN_NAME, Len(rsCampos!COLUMN_NAME) - 4) & " "
                bPrimeiroCampo = False
            End If
        End If
        rsCampos.MoveNext
    Loop
   
    rsCampos.Close
    Set rsCampos = Nothing
End Sub
 
 
Esta é uma rotina que uso num dos meus programas.
 
Veja outros exemplos.
 
 
Isto para MDB.
 
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página