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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Banco Access
Gboese
SANTO ANDRÉ
SP - BRASIL
Postada em 28/11/2005 07:59 hs            
Como faço para conseguir pegar todos os campos de uma tabela.
Porque eu tenho 2 bancos e gostaria de comparar quais campos estão faltando em determinadas tabelas.
 
Obrigado

Gustavo Boese
     
Martini
 Pontos: 2843 Pontos: 2843
PAROBÉ
RS - BRASIL
Postada em 28/11/2005 11:07 hs         
  Set vgdb = OpenDatabase("C:Documentos_AndréTempBancoDeDados.mdb")
  
  Dim intI As Integer
  Dim intX As Integer
  For intI = 0 To vgdb.TableDefs.Count - 1
    For intX = 0 To vgdb.TableDefs(intI).Fields.Count - 1
      List1.AddItem vgdb.TableDefs(intI).Name + " - " + vgdb.TableDefs(intI).Fields(intX).Name
    Next
  Next
 
     
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