Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

UpdateSQL [D4, MySQL]

ed_30 © (2002-05-17 15:26:00)
Доброго всем дня!

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

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

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

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

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

ed_30 (2002-05-17 16:16:00) [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 15:28:00) [3]
Обрабатывать OnUpdateRecord, OnUpdateError...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »