Jorge
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 09/06/2004 09:58 hs
bom dia.... seguinte, queria escolher em uma lista um arquivos .MDB e quando eu escolher este, ele me listar em outro lugar as tabelas dele. Para que isso: quero fazer um programinha para dar manutenção nas tabelas, poder alterar campos, incluir novos campos sem precisar deslocar a tabela do cliente... valeu... |
|
|
|
|
|
Rochª
|
RIO DE JANEIRO
RJ - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 09/06/2004 10:55 hs
Não se se voce usa DAO ou ADO entao vai as duas 'Usando ADO
Dim ADOXCat As New ADOX.Catalog
ADOXCat.ActiveConnection = "PROVIDER=Microsoft.Jet." & _
"OLEDB.4.0;Data Source=" & _
"C:Banco.MDB;"
For i = 0 To ADOXCat.Tables.Count - 1
Debug.Print ADOXCat.Tables.Item(i).Name
Next i
'Depois desta rotina ter sido executada, o nome de TODAS as tabelas do banco de dados estará na janela Immediate Windows...
'Usando DAO
'No evento que você desejar:
Dim DB As DAO.Database
Dim i As Integer
Set DB = Workspaces(0).OpenDatabese("C:Banco.MDB")
For i = 0 To DB.TableDefs.Count - 1
If (DB.TableDefs(i).Attributes And _
dbSystemObject) <> dbSystemObject Then
Print DB.TableDefs(i).Name
End If
Next
__________________________________________________________________________ Qualquer coisa post Rochª
|
|
|
|
JERB RS
|
PELOTAS
RS - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 09/06/2004 14:03 hs
'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
'Print Tbl.Name
List1.AddItem Tbl.Name
'Listar campos...
For Each Fld In Tbl.Fields
Print Fld.Name
Next
'Listar indexes...
For Each Idx In Tbl.Indexes
Print Idx.Name
Next
End If
Next 'Listar consultas...
For Each Qry In DB.QueryDefs
Debug.Print Qry.Name 'Para saber o nome ....ou
Debug.Print Qry.SQL 'Para saber a estrutura SQL
Next a idéia é poder carregar as tabelas em um list e depois quando clicar na lista, listar os campos e as consultas da tabela selecionada...
|
|
|
|
|
|
Postada em 09/06/2004 14:04 hs
falta só isso.... que não ta dando certo... no evento CLICK do list eu coloco o que ????  |
|
|
|
JERB RS
|
PELOTAS
RS - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 09/06/2004 15:40 hs
e ai galera, to na mão ainda.... me ajudem.... não consegui desvendar o mistério.... |
|
|
|
|
|
Postada em 09/06/2004 15:47 hs
Manuel F. L. Sansoni Supervisor de TI
|
|
|
|
