Как обработать ошибки выдаваемые при выполнении SQL-оператора?

← →
Neposeda (2002-10-15 13:45) [0]

Я имею ввиду ошибки типа SQLCODE100 и т.п., т.е. необходимо обрабатывать ошибки о двойных записях в первичных ключах ну и т.п., чтобы не вываливаться из программы.

Спасибо! Алексей.

← →
neXt © (2002-10-15 13:46) [1]

код ошибки хранится в @@error если это MS2000

← →
Johnmen © (2002-10-15 14:08) [2]

try ...

← →
Neposeda (2002-10-15 14:35) [3]

А по подробней можно:
Вот я пишу в программе:
Query1.Close; Query1.SQL.Clear; Query1.SQL.Add(ick); Query1.ExecSQL;

ick-строка SQL-оператора.

← →
AM (2002-10-15 14:45) [4]

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(ick);
TRY
Query1.ExecSQL;
EXCEPT
ShowMessage("ОШИБКА!");
Exit;
END;

ShowMessage("Все хорошо!");

← →
Neposeda (2002-10-15 15:27) [5]

А как правильно интерпритировать ошибку, т.е. при вашем способе любая ошибка опишется сообщением "ОШИБКА", вне зависимости есть ли коннект, синтаксическая ошибка, либо двойник примарикей.
Хотелось бы сообщать более конкретную ошибку, путем обработки SQL кода ошибки.

← →
Johnmen © (2002-10-15 15:39) [6]

Нет ли желания нажать F1 на try ?

← →
gek © (2002-10-15 15:43) [7]

> Johnmen © (15.10.02 15:39)

Он видимо хочет примерно так

TRY
Query1.ExecSQL;
EXCEPT
on E:Exception do
begin
ShowMessage(E.message);
Exit;
end;

← →
Johnmen © (2002-10-15 15:58) [8]

Neposeda (15.10.02 13:45)> Ошибки SQL - оператора не могут привести к "вываливанию" из программы, если она написана без "экзотики"! Обычный DBException.

Procedure ObrabotchicErrorov(E:EDatabaseError;{E: EDBEngineError;}UpdateKindSTR: string;Pole:string);
var
s:string;
PartCat,PartCode:word;
sp:Pchar;
UKSTR:string;
function OriginalMessage: String;
var I: Integer; DBErr: TDBError; S: String;
begin
if E is EDBEngineError then
begin
Result := #13#10 ;
for I := 0 to EDBEngineError(E).ErrorCount - 1 do
begin
DBErr := EDBEngineError(E).Errors[I];
case DBErr.NativeError of
-836: { Intebase exception }
begin
S := DBErr.Message;
Result := #13#10 + Copy(S, Pos(#10, S) + 1, Length(S));
Exit;
end;
end;
S := Trim(DBErr.Message);
if S <> "" then Result := Result + #13#10 + S;
end; end;
OriginalMessage :=Result;
end;
{********************}
begin
UKSTR:=UpdateKindSTR;
case EDBEngineError(E).Errors[0].ErrorCode of
(* $2204: E.Message := "aaaaa"{LoadStr(SKeyDeleted);};
$271E,$2734: E.Message := "bbbbbbbb"{LoadStr(SInvalidUserName);};
$2815: E.Message := "cccccccccc"{LoadStr(SDeadlock);};*)
(* $2604: E.Message :={ LoadStr(SFKViolation) + }"wwww"+OriginalMessage;*)
13059:
begin
E.Message:="У вас отсутствуют права на изменение даной таблицы."{+OriginalMessage};
end;
$2601:
begin
if UKSTR="ukDelete" then E.Message:="Удалить запись нельзя так как это повлечет нарушение целостности базы данных."{+OriginalMessage};
if ((UKSTR="ukInsert")) then
E.Message:="Изменения сохранить нельзя так как нарушается условие уникальности поля ""+Pole+"""{+OriginalMessage};
if ((UKSTR="ukModify")) then
begin
if Pos("Btrieve Error 5", OriginalMessage)<>0 then
E.Message:="Изменения сохранить нельзя, так как нарушается условие уникальности поля ""+Pole+"""{+OriginalMessage};
if Pos("Btrieve Error 71", OriginalMessage)<>0 then
E.Message:="Изменения сохранить нельзя, так как это повлечет нарушение целостности базы данных."{+OriginalMessage};
{дублирование значений полей в уникальном ключе}
end;
end;
else
begin
E.Message := (*Format(LoadStr(6{SErrorCodeFmt}), [EDBEngineError(E).Errors[0].ErrorCode]) +*)OriginalMessage;
end; end;
Application.MessageBox(PChar(E.Message),"Сообщение",MB_OK);
end;

← →
Neposeda (2002-10-16 09:08) [11]

Всем Огромное Спасибо за ответы!
Алексей.

Как обработать ошибки выдаваемые при выполнении SQL-оператора? Найти похожие ветки