Добавляет процедуры, хранящиеся в текстовом файле, к хранимым процедурам текущей базы данных.
Синтаксис:
APPEND PROCEDURES FROM FileName [AS nCodePage] [OVERWRITE]
Параметры:
FileName
Задает имя текстового файла, из которого берутся добавляемые хранимые процедуры.
AS nCodePage
Задает кодовую страницу для текстового файла, из которого берутся добавляемые хранимые процедуры. Visual FoxPro копирует содержимое текстового файла и при этом автоматически преобразует содержимое файла в соответствии с заданной кодовой страницей.
Если заданное значение nCodePage не поддерживается, Visual FoxPro генерирует сообщение об ошибке. Выдав функцию GETCP() для этой страницы nCodePage, можно открыть диалоговое окно Code Page и в нем задать нужную кодовую страницу для текстового файла, из которого берутся добавляемые процедуры.
Если предложение AS nCodePage опущено, Visual FoxPro копирует содержимое текстового файла, в котором хранятся присоединяемые процедуры, и при этом автоматически преобразует содержимое в соответствии с текущей кодовой страницей Visual FoxPro. Текущую кодовую страницу Visual FoxPro можно определить с помощью функции CPCURRENT().
Если номер nCodePage равен 0, Visual FoxPro считает, что кодовая страница текстового файла, содержащего добавляемые процедуры, совпадает с кодовой страницей текущей базы данных, и преобразование в текущую кодовую страницу Visual FoxPro не производится.
OVERWRITE
Указывает, что текущие хранимые процедуры базы данных должны замещаться процедурами из текстового файла. Если ключевое слово OVERWRITE опущено, текущие хранимые процедуры базы данных остаются на месте: хранимые процедуры из текстового файла будут присоединяться к текущим хранимым процедурам.
Комментарии
С помощью команды APPEND PROCEDURES можно программным способом модифицировать хранимые процедуры базы данных. В момент выдачи команды APPEND PROCEDURES база данных должна быть открыта и использоваться в качестве текущей; в противном случае Visual FoxPro сгенерирует сообщение об ошибке.
Для работы команды APPEND PROCEDURES необходимо, чтобы база данных была открыта в монопольном режиме. Чтобы открыть базу данных для эксклюзивного пользования, включите предложение EXCLUSIVE в команду OPEN DATABASE.
Пример:
* В следующем примере открывается база данных TESTDATA. Создается * временная таблица MYTABLE с одним memo-полем, и команда REPLACE * помещает в это memo-поле хранимую процедуру MyProcedure. Команда * COPY MEMO создает временный текстовый файл MYTEMP.TXT, в котором * находится соодержимое memo- поля. * Команда APPEND PROCEDURES используется для добавления к базе * данных хранимой процедуры из этого временного текстового файла. * Команда DISPLAY PROCEDURES отображает хранимые процедуры базы * данных, а затем временная таблица и текстовый файл уничтожаются. CLOSE DATABASES SET PATH TO (HOME( ) + 'samples\data\') && Sets path to database OPEN DATABASE testdata && Open testdata database CREATE TABLE mytable FREE (mProcedure M) && Create a temporary table APPEND BLANK REPLACE mProcedure WITH 'PROCEDURE MyProcedure' + CHR(13) + CHR(10) COPY MEMO mProcedure TO mytemp.txt && Temporary file USE && Close the temporary table APPEND PROCEDURES FROM mytemp.txt && Copy procedure to the database CLEAR DISPLAY PROCEDURES && Display the procedures DELETE FILE mytable.dbf && Erase the temporary table DELETE FILE mytable.fpt && Erase the temporary table memo file DELETE FILE mytemp.txt && Erase the temporary file