Fråga : Sql-alla queryen som väljer, bordlägger från en ta framdatabas

Vi har en app som gör en OLE anslutning till någon typ av databas (server för ms SQL, Oracle, MySQL, etc.), och queries vad bordlägger, är närvarande däri databas. Normalt detta är något något liknande:
SELECT TABLE_NAME FRÅN INFORMATION_SCHEMA.TABLES

Can någon ger mig motsvarigheten för en ta framdatabas, som denna inte fungerar?


Also som får kolonnerna som, gåva i en närmare detalj bordlägger oss, använder:
SELECT COLUMN_NAME FRÅN INFORMATION_SCHEMA.COLUMNS, VAR (TABLE_NAME = ”myTableName”)

Does någon vet att vad denna skulle, är för Acces?
" klar "

Svar : Sql-alla queryen som väljer, bordlägger från en ta framdatabas

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

Inte nätt, men, om du skapar, denna VBA fungerar i en enhet, du kan använda denna

VALT känt, GetFields (namnge),
FRÅN MSysObjects
VAR typ I (1, 4, 6)
BESTÄLLA VID känt;
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:
Fungera GetFields (ByVal TableName som stränger) som stränger

   'Hänvisar till: Microsoft Access 11.0 anmärker arkivet, Microsoft DAO 3.6 anmärker arkivet
   'Uppsättningen hänvisar till, genom att klicka, bearbetar och hänvisar till därefter i kodifiera beskådar fönstret
   'Går alla tillbaka sätter in namnger som finns bordlägger in TableName.
   'Accepterar
   'TableName: Namnge av bordlägger i vilket sätter in lokaliseras
   'Går alla tillbaka sätter in namnger, ogiltigt annars
   'ANVÄNDNING: GetFields ”TABLENAME”,

   På GoTo errhandler för fel

   Dunkel db som DAO.Database
   Dunkel tdf som DAO.TableDef
   Dunkel fld som DAO.Field
   Dunkel strField som stränger


   Uppsättning db = CurrentDb

   Fastställd tdf = db.TableDefs (TableName)

   'Kretsa till och med alla sätter in (kolonner)
   För varje fld i tdf. Sätter in

      strField = strField & fld. Känt & ”,” 'hastigt grepp den kända sätta in

   Därefter

   'Gå sätta in tillbaka namnger
   GetFields = strField
   'Om inga fel
ExitHere:
   Fastställd fld = ingenting
   Fastställd tdf = ingenting
   Uppsättning db = ingenting

   'Meddela användaren som det processaa är färdigt.
'   MsgBox ”färdigt rekordtryck”,
   Gå ut fungerar

errhandler:
   'Det finns en felretur som ogiltigt
   GetFields = ”fel” & Err.Number & vbCrLf & Err.Description

   Med fela
'      MsgBox ”fel” &. Numrera & vbCrLf &. Beskrivning _,
'            vbOKOnly eller vbCritical, ”GetFields”,
   Avsluta med

   Meritförteckning ExitHere

Avsluta fungerar
Andra lösningar  
 
programming4us programming4us