Lendo as tabelas e campos das tabelas de um BD


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Lendo as tabelas e campos das tabelas de um BD

José Ari

MANAUS
AM - BRASIL

ENUNCIADA !

Postada em 01/05/2008 14:07 hs

gostaria de saber como faço pra ler as tabelas do meu banco de dados. Por exemplo ao abrir o Banco, colocar o nome das Tabelas em um ListBox, e ao clicar nesse ListBox, colocar o nome dos Campos referentes a tabela selecionada em outro ListBox...
Agradeço ae a galera....

================================================================
O Aprendizado é Direito de Todos. O Saber é Privilégio de Poucos.

Começando a estudar VB.NET. Realmente é incrível!!!!

Tekki

UBERLÂNDIA
MG - BRASIL

ENUNCIADA !

Postada em 01/05/2008 20:43 hs

A seção de dicas, do forum, pode te ajudar.

Partindo do pressuposto que o seu banco é o Access, separei algumas dicas.

http://www.vbweb.com.br/dicas_visual.asp?Codigo=486&Classificacao=

http://www.vbweb.com.br/dicas_visual.asp?Codigo=929&Classificacao=

http://www.vbweb.com.br/dicas_visual.asp?Codigo=1717&Classificacao=

http://www.vbweb.com.br/dicas_visual.asp?Codigo=3317&Classificacao=

http://www.macoratti.net/vb_tree2.htm

José Ari
não registrado

ENUNCIADA !

Postada em 01/05/2008 22:32 hs

Tekki valeu,
como eu nao aguentei esperar, andei procurando e consegui fazer um parecido com uma das dicas que voce deu acima, ficou assim:

'Referencia: Microsoft ADO Ext. 2.8 for DLL and Security
Dim ADOXCat As New ADOX.Catalog

Private Sub Command1_Click()

  ADOXCat.ActiveConnection = "Driver={Microsoft Access Driver (*.mdb)};DBQ=c:meubanco.mdb;Uid=;Pwd=senha;"
  For i = 0 To ADOXCat.Tables.Count - 1
    List1.AddItem ADOXCat.Tables.Item(i).Name
  Next i
End Sub

Private Sub List1_Click()
List2.Clear
For i = 0 To ADOXCat.Tables(List1.ListIndex).Columns.Count - 1
    List2.AddItem ADOXCat.Tables(List1.ListIndex).Columns.Item(i)
Next
End Sub

Página(s): 1/1

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

VOLTAR