Come fare una query VBA in Access elenca le tabelle in un database
Ottieni un elenco di tavoli
Passaggio 1
Creare una query per eseguire il comando SQL mostrato di seguito. Questa query ottiene un elenco di tutte le tabelle nel database di Access corrente. L'istruzione where usa il numero 1 per indicare che vogliamo solo che le tabelle appaiano.
SELECT MSysObjects.Name, MSysObjects.DateCreate, MSysObjects.DateUpdate, MSysObjects.Type, MSysObjects.Flags FROM MSysObjects WHERE MSysObjects.Type = 1
Passaggio 2
Ottenere un elenco contenente solo le tabelle nel database che non provengono dal sistema, con l'esempio fornito di seguito:
SELECT MSysObjects.Name, MSysObjects.DateCreate, MSysObjects.DateUpdate, MSysObjects.Type, MSysObjects.Flags FROM MSysObjects WHERE MSysObjects.Type = 1 AND MSysObjects.Name Non come 'MSys'
Passaggio 3
Ottenere un elenco che contenga solo le tabelle non nascoste nel database eseguendo la seguente query:
SELECT MSysObjects.Name, MSysObjects.DateCreate, MSysObjects.DateUpdate, MSysObjects.Type, MSysObjects.Flags FROM MSysObjects WHERE MSysObjects.Type = 1 AND MSysObjects.Flags 8
Passaggio 4
Ordina l'elenco delle tabelle non di sistema non nascoste utilizzando il seguente codice SQL:
SELECT MSysObjects.Name, MSysObjects.DateCreate, MSysObjects.DateUpdate, MSysObjects.Type, MSysObjects.Flags FROM MSysObjects WHERE MSysObjects.Type = 1 AND MSysObjects.Flags 8 AND MSysObjects.Name Non come 'MSys *' ORDER BY MSysObjects.Name
Utilizzare l'elenco di tabelle in VBA
Passaggio 1
Carica il tuo elenco di tabelle in un oggetto set di record utilizzando il codice VBA mostrato di seguito:
Dim rsMisTablas As DAO.Recordset Set rsMisTablas = CurrentDb.OpenRecordset ('MyConsulta')
Passaggio 2
Scorri un ciclo attraverso ogni record ottenuto nella query.
Dim rsMisTablas As DAO.Recordset Set rsMisTablas = CurrentDb.OpenRecordset ('MyConsulta')
Do While Not rsMisTablas.EOF 'Codice per manipolare le informazioni
rsMisTablas.MoveNext Loop
Passaggio 3
Aggiungi i nomi di ogni tabella a un elenco a discesa che modifica il tuo ciclo while:
Dim rsMisTablas As DAO.Recordset Set rsMisTablas = CurrentDb.OpenRecordset ('MyConsulta') Me.cmbMiComboBox.Clear
Do While Not rsMisTablas.EOF Me.cmbMiComboBox.AddItem rsMisTablas! [Nome]
rsMisTablas.MoveNext Loop
Passaggio 4
Chiudi l'oggetto set di record per liberare la memoria che stai utilizzando:
Dim rsMisTablas As DAO.Recordset Set rsMisTablas = CurrentDb.OpenRecordset ('MyConsulta') Me.cmbMiComboBox.Clear
Do While Not rsMisTablas.EOF Me.cmbMiComboBox.AddItem rsMisTablas! [Nome]
rsMisTablas.MoveNext Loop
rsMisTablas.Close Set rsMisTablas = Nothing
