Приветствую Вас Гость | RSS

Меню сайта

Реклама

Категории раздела
ADO [17]
ASCII и CSV [12]
Access [20]
Alias [24]
BDE [37]
BLOB поля [19]
Clipper [2]
DB2 [2]
DBASE и DBF [26]
Fox Pro [1]
Interbase [21]
MSSQL [0]
ODBC [10]
Oracle [0]
Paradox [0]
SQL [29]
Sybase [1]
База данных [0]
Закладки [2]
Записи [0]
Индексы [10]
Компоненты и Базы данных [0]
Модуль данных [3]
Отчеты [2]
Ошибки БД [17]
Поиск [16]
Поля [0]
Сортировка и Фильтр [6]
Таблицы [0]

Наш опрос
Есть ли у Вас свой сайт?
Всего ответов: 48

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Главная » Статьи » Базы данных » SQL

TUpdateSQL. Выполнение нескольких SQL команд

Огорворимся сразу. Под SQL сервером подразумеваются сервера, выполняющие SQL запросы, к ним относятся Oracle, MS SQL, InterBase и т.д.

В стандартной поставке Delphi TUpdateSQL позволяет выполнить только одну SQL команду, но возникает ситуация, когда желательно выполнить сразу несколько команд (например: удаление из двух таблиц одновременно, когда нет возможности установить каскадное удаление (DBF, DB)) или запустить процедуру на SQL сервере. В этом случае можно обойти ограничение, навязанное Delphi в виде ошибки Update Failed, возникающей при сохранении данных.

ТИПОВЫЕ РЕШЕНИЯ

Как это сделать:

В каталоге {DELPHI$}\Source\VCL\ есть файл DBTABLES.PAS.
Открываем его и находим следующий код:


procedure TUpdateSQL.ExecSQL(UpdateKind: TUpdateKind);
begin
with Query[UpdateKind] do
begin
Prepare;
ExecSQL;
if RowsAffected <> 1 then
DatabaseError(SUpdateFailed);
end;
end;

комментируем строки


if RowsAffected <> 1 then
DatabaseError(SUpdateFailed);

затем необходимо откомпилировать этот файл, как один из путей - добавить его в новый проект и запустить компиляцию проекта. Затем файл dbtables.dcu необходимо скопировать в каталоги:
{DELPHI$}\LIB и {DELPHI$}\LIB\DEBUG

И можно приступать к работе.

Есть одно НО. При построении проекта, если в параметрах проекта выбрать Build with runtime packages, то номер не пройдет, поскольку в данном случае приложение будет использовать уже готовый BPL от Borland.

КОММЕНТАРИЙ:

Если хорошо подумать, то авторы VCL не "от балды" сделали в этом месте контроль количества затронутых запросом записей. И не зря сравнили его с единицей (хотя, на первый взгляд, проще с нулем: RowsAffected > 0 -> Ok!). Компонент TUpdateSQL отрабатывает для операции над одной записью. Если запрос затронул несколько записей одной таблицы (например - удалил), то это повод для разборки - запрос неправильный, либо в таблице дубликаты. Если же мы закомментируем эту проверку, то рискуем остаться без контроля подобного рода ошибок.

Конечно, уверенный в себе программист (допустим, он реализовал необходимый контроль ошибок в хранимой процедуре) может исправить свою личную копию VCL и пользоваться ею.

Но, как говорится, "Не уверен - не обгоняй".

Категория: SQL | Добавил: Skinner (29.07.2008)
Просмотров: 433 | Рейтинг: 0.0/0
  Delphi Lab   Главная   Регистрация   Вход  
Интересная Цитата

Поиск

Магазин


Copyright MyCorp © 2025 Хостинг от uCoz