Carregar os Campos das tabelas


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Carregar os Campos das tabelas

JERB RS

PELOTAS
RS - BRASIL

ENUNCIADA !

Postada em 16/04/2008 09:04 hs

Alguém tem algum exemplo de como carregar em algum objeto, os nomes das tabelas e seus respectivos campos, com tamanhos, tipos de campos? tipo, tenho uma base de dados com 30 tabelas. Dai queria carregar estas 30 tabelas e seus respectivos campos num treevew por exemplo... alguém já fez isto ?

Treze

SÃO VICENTE
SP - BRASIL

ENUNCIADA !

Postada em 16/04/2008 10:11 hs

Para carregar campos, indices, nome da tabela, utilize este código

'Declarações...
Dim Tbl as TableDef
Dim Fld as Field
Dim Idx as Index
Dim Qry as QueryDefs

'Listar tabelas...
For Each Tbl in BD.TableDefs
  'Verifica se nao eh tabela do sistema...
  If left(tbl.name,4)<>"MSys" and left(tbl.name,4)<>"USys" then
    Debug.Print Tbl.Name
    'Listar campos...
    For Each Fld in Tbl.Fields
      Debug.Print Fld.Name
    Next
    'Listar indexes...
    For Each Idx in Tbl.Indexes
      Debug.Print Idx.Name
    Next
  End If
Next

'Listar consultas...
For Each Qry in DB.QueryDefs
  ' List1.Additem Qry.Name   'Para saber o nome          ....ou
  ' List1.Additem Qry.SQL    'Para saber a estrutura SQL
Next

Dica retirada da sesssão dicas deste site

JERB RS
não registrado

ENUNCIADA !

Postada em 16/04/2008 14:41 hs

muito agradecido amigo e desculpe não ter notado que existe a resposta já... vou testar os campos pois as tabelas eu achei numa dica... grato Treze

JERB RS
não registrado

ENUNCIADA !

Postada em 16/04/2008 15:51 hs

Não consegui fazer funcionar... setei as preferencias lá para DAO, setei BD mas não dá certo. Quando chega na hora de listar os campos, Type mismatch

Treze

SÃO VICENTE
SP - BRASIL

ENUNCIADA !

Postada em 16/04/2008 19:08 hs

Desculpa colega acabei colocando o código pela metade, mas vamos lá

Primeiro vá em Projects / References... e selecione Microsoft DAO 3.6 Object Library ou 3.51 fica a crité rio do seu Banco de Dados

agora insira um listbox no seu form e um Command Button

cole o código abaixo, vai funcionar

Dim DB As Database

Private Sub Form_Load()
Set DB = Workspaces(0).OpenDatabase("c:\nome_do_banco_de_dados.mdb")
End Sub

Private Sub Command1_Click()
Dim Tbl As TableDef
Dim Fld As Field
Dim Idx As Index
Dim Qry As QueryDefs

'Listar tabelas...
For Each Tbl In DB.TableDefs
'Verifica se nao eh tabela do sistema...
If Left(Tbl.Name, 4) <> "MSys" And Left(Tbl.Name, 4) <> "USys" Then
    List1.AddItem Tbl.Name
    'Listar campos...
    For Each Fld In Tbl.Fields
     List1.AddItem Fld.Name
    Next
    'Listar indexes...
    For Each Idx In Tbl.Indexes
      List1.AddItem Idx.Name
    Next
End If
Next

'Listar consultas...
For Each Qry In DB.QueryDefs
' List1.Additem Qry.Name 'Para saber o nome ....ou
' List1.Additem Qry.SQL 'Para saber a estrutura SQL
Next

End Sub

Verifique agora se funcionou

TÓPICO EDITADO

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR