Проверить реакцию программы обработки ошибок можно, искусственно создав ошибочную ситуацию с помощью команды

ERROR nErrorNumber nErrorNumber, cMessageTextl [cMessageTextl]

которая генерирует ошибку Visual FoxPro. Параметр nErrorNumber определяет номер ошибки, который используется для воспроизведения стандартного сообщения Visual FoxPro. Параметр cMessageTextl задает текст, появляющийся в сообщении об ошибке, который может содержать дополнительную информацию. Например, если вы ссылаетесь на переменную, которой не существует, Visual FoxPro может вывести имя этой переменной в сообщении об ошибке. Параметр cMessageTextl определяет текст, отображаемый в сообщении об ошибке. Когда вместо параметра nErrorNumber в команде задается параметр cMessageTextl, будет сгенерирована ошибка Visual FoxPro с номером 1098 (определяемая пользователем ошибка). Чтобы переместить часть сообщения об ошибке на следующую строку, используйте в cMessageTextl символ возврата каретки CHR(13).

Команда ERROR может использоваться помимо проверки программы обработки ошибок для того, чтобы показать особые сообщения об ошибках. Если действует установка ON ERROR, то при выполнении команды ERROR Visual FoxPro выполняет процедуру обработки ошибок, определяемую в установке ON ERROR. Если происходит ошибка для объекта, будет выполнено событие Error для этого объекта.

Если вы задаете команду ERROR из окна Command и установка ON ERROR не действует, Visual FoxPro показывает сообщение об ошибке. Если команда ERROR выдана в программе и установка ON ERROR также не действует, Visual FoxPro выводит сообщение об ошибке и разрешает вам закончить или приостановить программу, либо игнорировать ошибку.

Например, чтобы задать появление ошибки Visual FoxPro номер 12, напишем следующую команду в требуемом месте программы:

ERROR 12

Появится сообщение об ошибке Variable not found ( Переменная не найдена ). Если задать эту команду в следующем виде:

ERROR 12, nVar1

появится сообщение об ошибке Variable nVar1 not found ( Переменная nVar1 не найдена ).

Для получения более обширной информации при отладке пpогpаммы можно использовать следующие функции.

AERRO R(ArrayName)

Создает массив, содержащий информацию относительно самой последней ошибки Visual FoxPro, OLE или ODBC. Параметр ArrayName определяет имя создаваемого массива. Функция AERROR() создает массив с шестью столбцами и возвращает число строк в массиве, которое определяется типом ошибки. Следующий список описывает содержание каждого элемента массива:

Номер Описание

элемента

1 Числовой. Содержит номер ошибки. Идентичен значению, возвращаемому функцией ERROR().

2 Символьный. Текст сообщения об ошибке. Идентичен значению, возвращаемому функцией MESSAGE().

3 Значение NULL. Если ошибка имеет дополнительный параметр, содержит текст параметра ошибки. Идентичен значению, возвращаемому функцией SYS(2018).

4 Значение NULL. Однако, как и в

предыдущем случае, может содержать номер рабочей области, в которой произошла ошибка.

Значение NULL. Если триггер не смог выполниться (ошибка 1539), будет содержать одно из следующих числовых значений:

1 - триггер вставки потерпел неудачу;

2 - триггер модернизации потерпел

неудачу;

3 - триггер удаления потерпел неудачу. Значение NULL

Значение NULL.

В следующем списке описано содержимое каждого элемента создаваемого массива, когда происходят ошибки OLE с номерами 1427 или 1429:

Номер элемента

Описание

Числовой. Содержит код ошибки 1427 или 1429.

Символьный. Текст FoxPro сообщения об ошибке.

Символьный. Текст OLE сообщения об ошибке.

Символьный. Имя прикладной программы (например, Microsoft Excel).

Значение NULL или Символьный. В последнем случае содержит имя справочного файла, где может быть найдена более подробная информация относительно ошибки.

Значение NULL или Символьный. В последнем случае содержит идентификатор для соответствующей темы оперативной подсказки, если информация доступна из приложения.

Числовой. Номер ошибки OLE.

Ниже приводится описание содержимого каждого элемента массива, когда происходит ошибка ODBC с номером 1526 (ошибка соединения ODBC). Массив может содержать две или больше строки - по одной для каждой ошибки ODBC:

Номер элемента

1 2 3 4 5 6 7

Описание

Числовой. Содержит номер ошибки

1526.

Символьный. Текст сообщения об ошибке.

Символьный. Текст ODBC сообщения об ошибке.

Символьный. Текущее состояние

ODBC SQL.

Числовой. Номер ошибки ODBC источника данных.

Числовой. Указатель соединения

ODBC.

Значение NULL. ERROR()

Возвpащает номеp ошибки, котоpая пpоизошла пpи выполнении пpогpаммы, если действует команда ON ERROR.

LINENO([1])

Сброс

Шаг с обходом процедуры

Панель 1

-I-I-I-I-I-

Шаг с заходом в процедуру

Установка точки останова

Рис. 12.4. Наиболее часто используемые функции отладки в Access Таблица 12.1. Инструментальные функции отладки в Access Кнопка Выполняемое Соответствующая отладки действие горячая клавиша

Возвpащает номеp стpоки пpогpаммы относительно первой строки главной программы, в котоpой пpоизошла ошибка. Если вы указываете параметр 1, то номер строки вычисляется относительно первой строки текущей программы или процедуры.

Счетчик строк в программе учитывает все строки, включая комментарии и пустые строки. Вы всегда можете задать приостановку выполнения программы, если откроете окно Debug на время выполнения программы и в его левой части запишете, например, LINENO(1) = 100. После этого не забудьте на разделительной линии окна Debug поставить точку останова.

MESSAGE([1])

Возвpащает сообщение об ошибке, с помощью опции 1 можно вывести последнюю пpогpаммную стpоку, пpи выполнении котоpой пpоизошла ошибка. Для pаботы функции необходимо установить ON ERROR.

PROGRAM([nevel])

Возвpащает название пpогpаммы, во вpемя pаботы котоpой пpоизошла ошибка. Численный аpгумент опpеделяет уpовень вложенности пpогpамм, чьи имена необходимо запомнить, если nLevel = 1, то возвpащается имя только пеpвой исполнявшейся пpогpаммы (главной), если аpгумент не указан, возвpащается имя текущей пpогpаммы.

Работу описанных выше функций можно пpоиллюстpиpовать следующим пpостым пpимеpом:

ON ERROR DO proc error WITH;

ERROR(),MESSAGE(),MESSAGE(1),PROGRAM(),LINENO() RETURN

PROCEDURE proc error

LPARAMETER nError, cMess, cMess1, cProg, nLineno

? Номер ошибки: + LTRIM(STR(nError))

? Сообщение об ошибке: + cMess

? Текст строки, вызвавшей ошибку: + cMess1

? Номер строки с ошибкой: + LTRIM(STR(nLineno))

? Ошибка пpоизошла в пpогpамме: + cProg

RETURN

Отладка программы в Access

Четыре из наиболее часто используемых функций отладки доступны через панель инструментов Access. Их описание приведено в табл. 12.1. На рис. 12.4 представлена панель инструментов для выполнения отладки и приведено описание ее кнопок.