Помещает в массив переменных памяти имена всех открытых баз данных и описания путей для этих имен.

Синтаксис

ADATABASES(ArrayName)

Параметры
ArrayName
Задает имя массива. Если задано имя несуществующего массива, Visual FoxPro автоматически создает такой массив. Если задано имя существующего массива, который не в состоянии вместить всю информацию о базе данных, Visual FoxPro автоматически увеличивает размер массива надлежащим образом. Если в массиве больше элементов, чем необходимо, он укорачивается. Если массив уже существует и функция ADATABASES( ) возвращает 0, не найдя открытых баз данных, то массив не изменяется. Ecли массив не существует и функция ADATABASES( ) возвращает 0, массив не создается.

Результат
Числовой

Комментарии
Имена всех баз данных, открытых в текущем разделении сеанса, помещаются в массив переменных памяти.
Функция ADATABASES() создает двумерный массив. Первый столбец массива содержит имена открытых баз данных, а второй столбец пути, ведущие к этим файлам.
Функция ADATABASES() возвращает число имен баз данных (строк) в массиве. Если открытых баз данных нет, ADATABASES() возвращает 0 и массив не создается.

Пример:

* В следующем примере открывается база данных testdata, а затем
* применяется функция ADATABASES( ), чтобы создать массив gaDatabase,
* содержащий имена всех открытых баз данных.
SET PATH TO (HOME( ) + 'samples\data\')	  && Sets path to database
OPEN DATABASE testdata   && Opens the database
CLEAR
? ADATABASES(gaDatabase)	  && Creates an array of open databases
DISPLAY MEMORY LIKE gadatabase  && Displays the contents of the array
CLOSE DATABASES