Cuestión : Pregunta del SQL para seleccionar todas las tablas de una base de datos del acceso

Tenemos un app que haga una conexión VIEJA a cualquier tipo de la base de datos (servidor del ms SQL, Oracle, MySQL, etc) y pregunte qué tablas están presentes en esa base de datos. Éste es normalmente algo como: ¿el
SELECT TABLE_NAME de INFORMATION_SCHEMA.TABLES

Can cualquier persona me da el equivalente para una base de datos del acceso pues éste no trabaja?


Also para conseguir las columnas presentes en una tabla específica que utilizamos: ¿
SELECT COLUMN_NAME de INFORMATION_SCHEMA.COLUMNS DONDE (TABLE_NAME = el “")

Does cualquier persona del myTableName saben cuáles sería esto para Acces?
class= del

Respuesta : Pregunta del SQL para seleccionar todas las tablas de una base de datos del acceso

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

No bastante, pero si usted crea esta función de VBA en un módulo, usted puede utilizar esto

SELECCIONAR el nombre, GetFields (el nombre)
De MSysObjects
DONDE mecanografiar ADENTRO (1, 4, 6)
ORDEN por nombre;
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:

Función GetFields (ByVal TableName como secuencia) como secuencia

   'Referencias: Biblioteca objeto de Microsoft Access 11.0, biblioteca objeto de Microsoft DAO 3.6
   'Fijar las referencias chascando las herramientas y entonces las referencias en la ventana de la opinión del código
   'Vuelve todos los nombres de campo que existan en la tabla TableName.
   'Acepta
   'TableName: Nombre de la tabla en el cual los campos están situados
   'Vuelve todos los nombres de campo, falta de información de otra manera
   'USO: GetFields “TABLENAME”

   En errhandler indicado del error

   DB dévil como DAO.Database
   Tdf dévil como DAO.TableDef
   Fld dévil como DAO.Field
   strField dévil como secuencia


   Fijar DB = CurrentDb

   Fijar el tdf = db.TableDefs (TableName)

   'Colocar a través de todos los campos (las columnas)
   Para cada fld en tdf. Campos

      strField = strField y fld. Nombre y “,” 'gancho agarrador el nombre de campo

   Después

   'Volver los nombres de campo
   GetFields = strField
   'Si ningunos errores
ExitHere:
   Fijar el fld = nada
   Fijar el tdf = nada
   Fijar DB = nada

   'Notificar a usuario que el proceso es completo.
'   MsgBox “impresión del expediente completa”
   Salir la función

errhandler:
   'Hay una vuelta del error como falta de información
   GetFields = “error” y Err.Number y vbCrLf y Err.Description

   Con errar
'      MsgBox “error” y. Número y vbCrLf y. Descripción, _
'            vbOKOnly o vbCritical, “GetFields”
   Extremo con

   Curriculum vitae ExitHere

Función del final
Otras soluciones  
 
programming4us programming4us