Vedere la lista delle tabelle del mio db access

di Anonimizzato6663 il
1 risposte
/
Anonimizzato6663
Utente anonimizzato
Mi trovo nel codice di una form di un db di access 2003.
vorrei accedere col codice alla lista delle mie tabelle dello stesso db.
come fare?

1 Risposte

  • /
    Anonimizzato6611
    Utente anonimizzato
    Non programma direttamente in Ms Access, quindi non so come puntare il DataBase stesso; in Vb6 farei così: 
    Dim WkTmp  As Workspace
Dim dbC As Database
Dim Jt As Integer

Set WkTmp = Workspaces(0)
Set dbC = WkTmp.OpenDatabase("DB1.mdb")

For Jt = 0 To dbC.TableDefs.Count - 1
'escludo le tabelle di sistema
    If (dbC.TableDefs(Jt).Attributes And dbSystemObject) = 0 Then
        Debug.Print dbC.TableDefs(Jt).Name
    End If
Next Jt

'questo per vedere eventuali Query
For Jt = 0 To dbC. QueryDefs.Count - 1
    Debug.Print dbC.QueryDefs(Jt).Name 
Next Jt

dbC.Close
Set dbC = Nothing
Set WkTmp = Nothing
    Dove DB1.mdb è il DataBase da gestire
Devi accedere o registrarti per scrivere nel forum
1 risposte