UpdateSQL

← →
ed_30 (2002-05-17 15:26) [0]

Доброго всем дня!

Помогите (если можно, примером) как при использовании UpdateSQL и Query отслеживать ошибки возникающие при добавлении, удалении, редактировании записи и вызывать собственные обработчики для этих ошибок.

Заранее спасибо.

← →
Lusha (2002-05-17 15:28) [1]

Обрабатывать OnUpdateRecord, OnUpdateError...

← →
ed_30 (2002-05-17 16:16) [2]

procedure TForm1.Button1Click(Sender: TObject);
var
jpg: TJPEGImage;
bufStream: TStringStream;

begin
jpg := TJPEGImage.Create;
jpg.LoadFromFile("421501.jpg");
bufStream := TStringStream.Create("");
jpg.SaveToStream(bufStream);
jpg.Free;
ZUpdateSql1.Params.ParamByName("name").AsString := Edit1.Text;
ZUpdateSql1.Params.ParamByName("image").LoadFromStream(bufStream,ftBlob);
bufStream.Free;
ZUpdateSql1.Apply(ukInsert);
ZMySqlQuery1.Refresh;
end;

Использую такой кусок кода. Но вед при этом, не вызываются методы ZMySqlQuery1 и он остается в состоянии dsBrowse, а в ZUpdateSQl1 нет методов UpdateRecord, UpdateError....

Или я вообще все делаю неправильно? Если не трудно, поясните пожалйста.

← →
Lusha (2002-05-17 16:24) [3]

>ed_30 (17.05.02 16:16)
Гы-гы. Да, в общем то можно и так. Я до такого просто не додумался... Думал Вы CachedUpdates используете... :)

Ваш способ вызова TUpdateSQL аналогичен вызову TQuery.ExecSQL с соответствующим запросом, поэтому я так никогда не извращался...

А ответ на Ваш вопрос по-видимому - обрабатывать исключительные ситуации... Ключевое слово except...

UpdateSQL Найти похожие ветки