| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Ошибка или я чтото не правильно делаю подскажите [D7, Paradox]

DelphiM ©   (2003-09-03 01:51:00) 

юзаю BDE в Query1 запрос такой SELECT DISTINCT .....
в TUpdateSQL пи удалении записи запрос такой
delete from .... where ..
и если в таблише болше одной одноименной записи выдает ошибку !
этоо если Query1 >>> SELECT DISTINCT
не должен же веть выдавать ошибку, должен уничтожить все записи с соответствуюшии этой записи !!

---

DelphiM   (2003-09-05 03:17:00) [1]

ВИЖУ ТОЛЬКО ОДИН ВЫХОД

unit UpdateSQLm;

interface

uses
SysUtils, Classes, DBTables, DB;

type
TupdateSQLm = class(TUpdateSQL)
public
procedure ExecSQL(UpdateKind: TUpdateKind);override;
end;

procedure Register;

implementation

procedure TupdateSQLm.ExecSQL(UpdateKind: TUpdateKind);
begin
with Query[UpdateKind] do
begin
Prepare;
ExecSQL;
end;
end;

procedure Register;
begin
RegisterComponents("ModernBDE", [TupdateSQLm]);
end;

end.

---

VAleksey   (2003-09-04 10:54:00) [2]

> Zacho ©

Да все :-), я уже сам посмотрел.

---

Vlad   (2003-09-04 10:52:00) [3]

Это получается, что если тупо глушить Exception то все будет работать как надо ?

---

Zacho   (2003-09-04 10:47:00) [4]

> VAleksey © (04.09.03 10:41) [5]
>
> > HSolo ©
>
> Хм... Весьма странное утверждение. Как бы хотелось бы проверить.
> Поробую.

Ничего странного. Вот кусок из DBTables.pas Ни о чем не говорит ?
procedure TUpdateSQL.ExecSQL(UpdateKind: TUpdateKind);
begin
with Query[UpdateKind] do
begin
Prepare;
ExecSQL;
if RowsAffected <> 1 then DatabaseError(SUpdateFailed);
end;
end;

---

VAleksey   (2003-09-04 10:41:00) [5]

> HSolo ©

Хм... Весьма странное утверждение. Как бы хотелось бы проверить. Поробую.


> DelphiM ©

Текст ошибки в студию.

---

Anatoly Podgoretsky   (2003-09-04 09:00:00) [6]

DelphiM © (03.09.03 01:51)
Должно в случае правильных запросов.

---

DelphiM   (2003-09-04 06:04:00) [7]

Значить если в запросе есть строка SELECT DISTINCTто удалить корректно запись при помаши UpdateSQLне всегда можно ?

---

HSolo   (2003-09-03 09:19:00) [8]

> должен уничтожить все записи с соответствуюшии этой записи !!
Не должен. Каждый запрос в TUpdateSQL должен обрабатывать только одну запись; если их больше - получится то, что получилось у Вас. Ну так уж оно сделано...

---

Sergey13   (2003-09-03 09:12:00) [9]

А слабо оба запроса полностью привести?

---

Наверх