Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.22;
Скачать: CL | DM;

Вниз

TADOQUERY как определить ошибку.   Найти похожие ветки 

 
NEWS   (2004-07-30 17:07) [0]

Всем здрасьте.
ЕСТЬ компонент TADOQUERY, который работает на UPDATE.
Для ловли ошибки сделано так:

try
adoquery1.exec;
except
showmessage("Error");
adoquery1.close;
end

Вопрос
как вместо showmessage("Error"); показать текст настоящей ошибки. Как узнать текст ошибки.

СПАСИБО


 
Сергей1   (2004-08-01 19:38) [1]

полагаю, надо делать через обработчик события ADOQuery1EditError :

procedure TForm1.ADOQuery1EditError(DataSet: TDataSet; E: EDatabaseError;
 var Action: TDataAction);
begin
action:=daAbort;
showmessage(e.message)
end;

параметр Е содержит всю инфу об ошибке, а установка action:=daAbort должна подавить всплывающее окно с ошибкой, вот только у меня это не работает :), ничего не понимаю, в хелпе сказано делать именно так, если кто знает, поделитесь опытом


 
сергей1   (2004-08-01 21:40) [2]

забыл указать, как обойти эту ситуацию, вот например как обработать нарушение первичного ключа :

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.ADOQuery1.SQL.Text:="insert into "Table1" values ("
+quotedstr("5")+", "+quotedstr("xdf")+")";
try
form1.ADOQuery1.ExecSQL;
except on E:exception do
begin
 if strpos(pchar(E.Message),"PRIMARY")<>nil then
  begin
   showmessage("Нарушение первичного ключа !");
  end
end;
end;
end;

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



Страницы: 1 вся ветка

Текущий архив: 2004.08.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
6-1084725258
lion_ts
2004-05-16 20:34
2004.08.22
NDIS драйвер, hook драйвер, firewall ?


14-1091733356
Anonim
2004-08-05 23:15
2004.08.22
Программистам на Delphi посвящается


4-1089281283
han_malign
2004-07-08 14:08
2004.08.22
Имя текущего пользователя, из под сервиса...


9-1083521532
Ландграф Павел
2004-05-02 22:12
2004.08.22
управление человеком как в GTA2


3-1090987909
Ani
2004-07-28 08:11
2004.08.22
Как передать содержимое QuickRep в MsWord?