Вопрос : Вопрос SQL для того чтобы выбрать все таблицы от базы данных доступа

Мы имеем app налаживает ОЛЕ связьо к любому типу базы данных (сервера MS SQL, Oракул, MySQL, etc) и запрашивает что таблицы присутствуют в той базе данных. Нормальн это что-то как:
SELECT TABLE_NAME ОТ INFORMATION_SCHEMA.TABLES

Can любого дает мне эквивалент для базы данных доступа по мере того как это не работает?


Also для того чтобы получить колонки присытствыющим в специфически таблице, котор мы используем:
SELECT COLUMN_NAME ОТ INFORMATION_SCHEMA.COLUMNS ГДЕ (TABLE_NAME = «")

Does любое myTableName знают это было бы для Acces?
class=

Ответ : Вопрос SQL для того чтобы выбрать все таблицы от базы данных доступа

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

Довольно, но если вы создаете эту функцию VBA в модуле, то вы можете использовать это

ВЫБЕРИТЕ имя, GetFields (имя)
ОТ MSysObjects
ГДЕ напечатайте на машинке ВНУТРИ (1, 4, 6)
ЗАКАЗ Именем;
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:

Функция GetFields (ByVal TableName как шнур) как шнур

   'Справки: Библиотека объектных модулей 11.0, библиотека объектных модулей доступа Майкрософт Майкрософт DAO 3.6
   'Установите справки путем щелкать инструментами и после этого справки в окне взгляда Кодего
   'Возвращает все названия поля существуют в таблице TableName.
   'Принимает
   'TableName: Имя таблицы в поля расположены
   'Возвращает все названия поля, Null в противном случае
   'ИСПОЛЬЗОВАНИЕ: GetFields «TABLENAME»

   На errhandler ошибки переход

   Тусклый db как DAO.Database
   Тусклое tdf как DAO.TableDef
   Тусклое fld как DAO.Field
   Тусклое strField как шнур


   Установите db = CurrentDb

   Установите tdf = db.TableDefs (TableName)

   'Закрепите петлеть через все поля (колонки)
   Для каждого fld в tdf. Поля

      strField = strField & fld. Имя & «,» 'самосхват название поля

   Затем

   'Возвратите названия поля
   GetFields = strField
   'Если отсутствие ошибок
ExitHere:
   Установите fld = ничего
   Установите tdf = ничего
   Установите db = ничего

   'Сообщите потребителя, котор процесс закончен.
'   MsgBox «печать показателя вполне»
   Выходите функция

errhandler:
   'Будет возвращение ошибки как null
   GetFields = «ошибка» & Err.Number & vbCrLf & Err.Description

   С заблуждайтесь
'      MsgBox «ошибка» &. Номер & vbCrLf &. Описание, _
'            vbOKOnly или vbCritical, «GetFields»
   Конец с

   Резюме ExitHere

Функция конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us