Questione : Domanda di SQL per selezionare tutte le tabelle a partire da una base di dati di accesso

Abbiamo un app che fa un collegamento OLE a qualunque tipo di base di dati (assistente del ms SQL, Oracle, MySQL, ecc) ed interroga che tabelle sono presenti in quella base di dati. Questo è normalmente qualcosa come: il
SELECT TABLE_NAME da INFORMATION_SCHEMA.TABLES

Can chiunque mi dà l'equivalente per una base di dati di accesso poichè questo non funziona?


Also per ottenere le colonne presenti in una tabella che specifica usiamo:
SELECT COLUMN_NAME da INFORMATION_SCHEMA.COLUMNS DOVE (TABLE_NAME = “")

Does chiunque del myTableName conoscono che cosa questo sarebbe per Acces?
class= del

Risposta : Domanda di SQL per selezionare tutte le tabelle a partire da una base di dati di accesso

http://www.eraserve.com/tutorials/MS_ACCESS_VBA_Get_All_Fields.asp

Non abbastanza, ma se generate questa funzione di VBA in un modulo, potete usare questo

SELEZIONARE il nome, GetFields (nome)
Da MSysObjects
DOVE scriv DENTRO (1, 4, 6)
ORDINE per nome;
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

Funzione GetFields (ByVal TableName come stringa) come stringa

   'Riferimenti: Biblioteca di oggetto di Microsoft Access 11.0, biblioteca di oggetto di Microsoft DAO 3.6
   'Fissare i riferimenti scattando gli attrezzi ed allora i riferimenti nella finestra di vista di codice
   'Restituisce tutti i nomi di campo che esistono in Tabella TableName.
   'Accetta
   'TableName: Nome della tabella in cui i campi sono situati
   'Restituisce al contrario tutti i nomi di campo, posizione di segnale minimo
   'USO: GetFields “TABLENAME„

   Sul errhandler di avanzamento di errore

   Db fioco come DAO.Database
   Tdf fioco come DAO.TableDef
   Fld fioco come DAO.Field
   strField fioco come stringa


   Regolar db = CurrentDb

   Regolare il tdf = db.TableDefs (TableName)

   'Collegare attraverso tutti i campi (colonne)
   Per ogni fld nel tdf. Campi

      strField = strField & fld. Nome & “,„ 'gru a benna il nome di campo

   Dopo

   'Restituire i nomi di campo
   GetFields = strField
   'Se nessun errori
ExitHere:
   Regolare il fld = niente
   Regolare il tdf = niente
   Regolar db = niente

   'Informare l'utente che il processo è completo.
'   MsgBox “stampa dell'annotazione completa„
   Uscire la funzione

errhandler:
   'Ci è un ritorno di errore come posizione di segnale minimo
   GetFields = “errore„ & Err.Number & vbCrLf & Err.Description

   Con errare
'      MsgBox “errore„ &. Numero & vbCrLf &. Descrizione, _
'            vbOKOnly o vbCritical, “GetFields„
   Estremità con

   Riassunto ExitHere

Funzione di conclusione
Altre soluzioni  
 
programming4us programming4us