powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Исключения и Firebird
6 сообщений из 6, страница 1 из 1
Исключения и Firebird
    #38032156
Доброго времени суток. Возник такой вопрос:
База данных на Firebird,в ней создано исключение " CREATE EXCEPTION EXIST_TABN 'Такой табельный существует!!!'; ".
Как отобразить данное сообщение пользователю(вызвать это исключение) при внесении данных средствами FoxPro9. На сколько я знаю в Delphi7 есть специальный компонент. Может есть ,что-то и в Fox.
...
Рейтинг: 0 / 0
Исключения и Firebird
    #38033075
UserFb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Екатерина_ПроявинаДоброго времени суток. Возник такой вопрос:
База данных на Firebird,в ней создано исключение " CREATE EXCEPTION EXIST_TABN 'Такой табельный существует!!!'; ".
Как отобразить данное сообщение пользователю(вызвать это исключение) при внесении данных средствами FoxPro9. На сколько я знаю в Delphi7 есть специальный компонент. Может есть ,что-то и в Fox. Лови через AError()
...
Рейтинг: 0 / 0
Исключения и Firebird
    #38034106
UserFb, Может есть пример?
...
Рейтинг: 0 / 0
Исключения и Firebird
    #38034119
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Екатерина_ПроявинаUserFb, Может есть пример?

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
ON ERROR  MyHandler()

ERROR 'MyError'

ON ERROR 

FUNCTION MyHandler
AERROR(arr)
FOR i = 1 TO ALEN(arr)
	?arr(i)
ENDFOR 	
...
Рейтинг: 0 / 0
Исключения и Firebird
    #38034120
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как-то так:
Код: sql
1.
2.
3.
4.
5.
6.
7.
If SQLExec(...)>0
   ? 'Запрос выполнен'
else
   Local laError(1)
   Aerror(laError)
   ? 'Ошибка: ' + laError[2]
Endif
...
Рейтинг: 0 / 0
Исключения и Firebird
    #38034131
Dima T,Спасибо.Попробую.
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Исключения и Firebird
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]