|
|
Postada em 13/01/2005 16:19 hs
Como faço para listar todas as tabelas de um banco a partir de uma conexao??
Eu quero criar uma conexao com o banco, e a partir dai listar todas as tabelas do banco em um grid....
Como poço fazer isso?
Obrigado!
|
|
|
|
|
|
|
|
Postada em 13/01/2005 16:26 hs
Olá Joao !! Qual o banco de dados que vc vai usar: Dbase, Access97, Access2000, etc...
Sérgio Júnior Analista de sistemas e Instrutor de informática ICQ 339982437 ...O cavalo se prepara para a batalha... ...mas do Senhor Jesus vem a vitória...
|
|
|
|
|
|
Postada em 13/01/2005 16:29 hs
Estou usando PostGreSQL versão 7.3.....e ADO...
Eu não vou saber quais tabelas existem no banco.... minha aplicação é quem vai me dizer... deu pra entender?? Você sabe como fazer isso? |
|
|
|
|
|
Postada em 13/01/2005 16:43 hs
Apos definir a aviáveis e abri-las: dim i as integer For i = 0 To Banco.TableDefs.Count - 1
'MsgBox Banco.TableDefs(i).Attributes
If Mid(Banco.TableDefs(i).Name, 1, 4) <> "MSys" Then
Form1.Lst1.AddItem Banco.TableDefs(i).Name
End If
Next i espero que ajude |
|
|
|
|
|
Postada em 13/01/2005 16:57 hs
Ok, obrigado.....
Agora outra pergunta....
Alguem pode me dizer como faço para mostrar a estrutura da tabela selecionada??? |
|
|
|
Romero
|
VILHENA
RO - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 13/01/2005 17:10 hs
dim i as integer din y as integer For i = 0 To Banco.TableDefs.Count - 1
'MsgBox Banco.TableDefs(i).Attributes
If Mid(Banco.TableDefs(i).Name, 1, 4) <> "MSys" Then
For y = o To Banco.TableDefs(i).Fields.Count - 1
Form1.Lst1.AddItem Banco.TableDefs(i).Fields(y).Name
Next y
End If
Next i |
|
|
|
