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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Pegar nome da coluna via VB/Access
RSILVA
RIO DE JANEIRO
RJ - BRASIL
Postada em 19/08/2004 16:20 hs         
Como pego o nome da coluna de uma tabela access via código VB.
     
Eledio Junior
Pontos: 2843
CAÇADOR
SC - BRASIL
Postada em 19/08/2004 16:55 hs         
como assim pegar... nuam entendi.... todas elas?
     
RSILVA
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 20/08/2004 11:35 hs         
Pegar os nomes das colunas de uma tabela.
   
WaldirJr
POÇOS DE CALDAS
MG - BRASIL
Postada em 20/08/2004 13:13 hs            
'Listar tabelas e campos
   Dim adoConexao As ADODB.Connection
   Dim adoTabelas As ADODB.Recordset, adoCampos As ADODB.Recordset
   Dim intContador As Integer
  
   Set adoConexao = New ADODB.Connection
   adoConexao.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source = C:Banco.mdb;Jet OLEDB:Database Password=Senha"
  
   Set adoTabelas = adoConexao.OpenSchema(adSchemaTables)
   Do Until adoTabelas.EOF
      
      If adoTabelas(3) = "TABLE" Then
         lstTabelas.AddItem adoTabelas(2)
        
         Set adoCampos = New ADODB.Recordset
         adoCampos.Open "SELECT * FROM " & adoTabelas(2), adoConexao
         For intContador = 0 To adoCampos.Fields.Count - 1
            lstTabelas.AddItem "  -  " & adoCampos(intContador).Name
         Next
         adoCampos.Close
      End If
      adoTabelas.MoveNext
   Loop

________________________

Té +

Que NIMB role bons Dados! Emoções

     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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