Vraag : SQL Vraag om alle lijsten van een gegevensbestand van de Toegang te selecteren

Wij hebben app die een verbinding OLE aan om het even welk type van gegevensbestand (de Server van lidstaten SQL, Oracle, MySQL, enz.) maakt en vraagt welke lijsten in dat gegevensbestand aanwezig zijn. Normaal is dit iets als:
SELECT TABLE_NAME VAN INFORMATION_SCHEMA.TABLES

Can iedereen geeft me het equivalent voor een gegevensbestand van de Toegang aangezien dit niet werkt?


Also om de kolommen in een specifieke lijst huidig te krijgen die wij hebben gebruikt:
SELECT COLUMN_NAME VAN INFORMATION_SCHEMA.COLUMNS WAAR (TABLE_NAME = „myTableName“)

Does iedereen weet wat dit voor Acces zou zijn?

Antwoord : SQL Vraag om alle lijsten van een gegevensbestand van de Toegang te selecteren

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

Niet vrij, maar als u deze functie VBA in een module cre�ërt, kunt u dit gebruiken

SELECTEER Naam, GetFields (Naam)
VAN MSysObjects
WAAR Type BINNEN (1, 4, 6)
ORDE DOOR Naam;
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:
Functie GetFields (ByVal TableName als Koord) als Koord

   'Verwijzingen: Microsoft Access 11.0 de Bibliotheek van Objecten, de Bibliotheek van de Objecten van Microsoft DAO 3.6
   'Plaats verwijzingen door Hulpmiddelen Te klikken en dan Verwijzingen in het venster van de Mening van de Code
   'Keert alle Namen van het Gebied terug die in Lijst TableName bestaan.
   'Keurt goed
   'TableName: Naam van lijst waarin de gebieden worden gevestigd
   'Keert Alle Namen van het Gebied terug, anders nietig verklaren
   'GEBRUIK: GetFields „TABLENAME“

   Op Fout GoTo errhandler

   Schemerige db als DAO.Database
   Schemerige tdf als DAO.TableDef
   Schemerige fld als DAO.Field
   Schemerige strField als Koord


   Vastgesteld db = CurrentDb

   Reeks tdf = db.TableDefs (TableName)

   'Lijn door alle gebieden (kolommen)
   Voor Elke fld in tdf. Gebieden

      strField = strField & fld. Naam & „,“ 'Greep de gebiedsnaam

   Daarna

   'Keer de Namen van het Gebied terug
   GetFields = strField
   'Als geen fouten
ExitHere:
   Reeks fld = niets
   Reeks tdf = niets
   Vastgesteld db = niets

   'Breng de gebruiker op de hoogte het proces volledig is.
'   MsgBox „Volledige de Druk van het Verslag“
   De Functie van de uitgang

errhandler:
   'Er is een foutenterugkeer ongeldig
   GetFields = „Fout“ & Err.Number & vbCrLf & Err.Description

   Met vergis me
'      MsgBox „Fout“ &. Aantal & vbCrLf &. Beschrijving, _
'            vbOKOnly of vbCritical, „GetFields“
   Eind met

   Hervat ExitHere

Beëindig Functie
Andere oplossingen  
 
programming4us programming4us