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

ADATABASES(ArrayName)

Параметры

ArrayName

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

Возвращаемое значение

Числовое

Замечания

Имена всех открытых баз данных помещаются в массив переменных.

ADATABASES( ) создает двумерный массив. Первый столбец массива содержит имена открытых баз данных, а второй столбец содержит пути к базам данных.

ADATABASES( ) возвращает количество имен (строк) баз данных в массиве. Если нет открытых  баз данных, ADATABASES( ) возвращает 0 и массив не создается.

Пример

Следующий пример открывает базу данных testdata , и затем использует ADATABASES( ), чтобы создать массив gaDatabase, содержащий имен всех открытых баз данных.

Скопировать код 
SET PATH TO (HOME(2) + '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

См. Также