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

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

Работа с транзакцией [D7, Paradox]

Demien ©   (2010-11-15 20:19:00) 

Здравствуйте!
мне необходимо в рамках явной транзакции организовать изменение поля "Улица". к примеру с "Мира" на "Анисимова".
и если более трех записей имеют одну и ту же улицу, то необходимо сделать откат транзакции, иначе принять изменения.

вот часть кода:

procedure TForm1.Button1Click(Sender: TObject);
var     BufStreet:string;
begin
BufStreet:=Table1Street.asstring;
Edit1.Text:=BufStreet;
end;

procedure TForm1.Button2Click(DataSet: TDataSet);
var buf,i,j,c:integer;
BufStreet:string;
begin
if Database1.InTransaction=true then   begin
try
Table1.First;
c:=Table1.RecordCount;
j:=0;
for i:=1 to c do
table1.RecNo:=i;
begin
BufStreet:=Table1Street.asstring;
Table1.Filter:='Street = ''' + bufstreet + '*''';
Table1.Filtered:=true;
If Table1.RecordCount>3 then
j:=j+1;
Table1.Filtered:=false;
end;
if j= 0 then
begin
DataBase1.Commit;
Button1.Enabled:=true;
end
else if j>0 then begin
Table1.Cancel;
DataBase1.RollBack;
Table1.Refresh;
Button4.Enabled:=true;
            end;
Except
Table1.Cancel;
DataBase1.RollBack;
Table1.Refresh;
Button4.Enabled:=true;
end;
end;
end;

проблема в том, что в части кода, когда происходит фильтрация, поиск, и т.п., эти операции автоматически вызывают POST, который принимает все сделанные изменения.
но мне надо, чтобы принятие или откат изменений просходил именно там, где я их описал(в зависимости от выполнения условий j=0 или j>0)..
Как можно это реалазовать?

заранее спасибо за помощь!

---

Anatoly Podgoretsky   (2010-11-17 19:08:00) [1]

> Виталий Панасенко  (17.11.2010 10:23:09)  [9]

Деньги платят.

---

Виталий Панасенко   (2010-11-17 10:23:00) [2]

учат всяким глупостям :-)

---

Anatoly Podgoretsky   (2010-11-17 10:20:00) [3]

> и я обязан сделать ее именно на парадоксе, и именно с использованием
> транзакций=)
> вот и бьюсь с решением..

Ты не обязан ее сделать, там достаточно иммитации.

---

Виталий Панасенко   (2010-11-17 10:15:00) [4]

а, ну тогда удачи.. и тому, кто ее поставил, тем более..:-)

---

Demien   (2010-11-16 14:32:00) [5]

эм, понимаете, дело в том, что это т.н. тестовая работа...
и я обязан сделать ее именно на парадоксе, и именно с использованием транзакций=)
вот и бьюсь с решением..

---

Виталий Панасенко   (2010-11-16 14:01:00) [6]

совет: уйти с парадокса на, хотя бы, связку АДО+MS Access 2000 И выше.там транзакции нормальные. хотя с адо нужно много всяких всячин знать.я, вот, например, никак не могу обновить одну строку, либо не знаю как, либо так нельзя.. а вот используя FIBPlus+FireBird - это элементарное, стандартное поведение фибов...там наоборот, чтобы обновить весь набор данных нужно переоткрывать его.

---

Demien   (2010-11-16 13:09:00) [7]

а вообще Парадокс поддерживает вложенную транзакцию?
просто пришла идея,
где код с фильтрацией и поиском запихнуть в эту вложенную транзакцию,
то на основную, она не повлияет, и результат достигнется...

или к примеру разделить всю транзакцию на 2 сессии...но это я не знаю как сделать, может кто нибудь даст инфу по этому?
просто я искал, и к сожалению ни к чему не пришел(

---

Виталий Панасенко   (2010-11-16 09:48:00) [8]

есть там псевдотранзакции. т.е. их реально можно откатить.. но если система падает, то все изменения будут подтверждены...и ограничение на 255 строк на таблицу кажись. т.е. толку от них маловата так скажем..

---

Johnmen   (2010-11-16 09:26:00) [9]

М.б. более логично сначала проверить, что "если более ДВУХ записей имеют одну и ту же улицу", то и ничего не делать?
И какие могут быть транзакции в Парадоксе???

---

Demien   (2010-11-15 20:23:00) [10]

ой, простите не то вставил=(
в начале кода вместо

procedure TForm1.Button1Click(Sender: TObject);
var     BufStreet:string;
begin
BufStreet:=Table1Street.asstring;
Edit1.Text:=BufStreet;
end;

должно быть
procedure TForm1.Button1Click(Sender: TObject);
begin
DataBase1.StartTransaction;
Button4.Enabled:=false;

end;

---

Наверх