-
Здравствуйте! мне необходимо в рамках явной транзакции организовать изменение поля "Улица". к примеру с "Мира" на "Анисимова". и если более трех записей имеют одну и ту же улицу, то необходимо сделать откат транзакции, иначе принять изменения. вот часть кода: 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).. Как можно это реалазовать? заранее спасибо за помощь!
-
ой, простите не то вставил=( в начале кода вместо
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;
-
М.б. более логично сначала проверить, что "если более ДВУХ записей имеют одну и ту же улицу", то и ничего не делать?
И какие могут быть транзакции в Парадоксе???
-
есть там псевдотранзакции. т.е. их реально можно откатить.. но если система падает, то все изменения будут подтверждены...и ограничение на 255 строк на таблицу кажись. т.е. толку от них маловата так скажем..
-
а вообще Парадокс поддерживает вложенную транзакцию?
просто пришла идея,
где код с фильтрацией и поиском запихнуть в эту вложенную транзакцию,
то на основную, она не повлияет, и результат достигнется...
или к примеру разделить всю транзакцию на 2 сессии...но это я не знаю как сделать, может кто нибудь даст инфу по этому?
просто я искал, и к сожалению ни к чему не пришел(
-
совет: уйти с парадокса на, хотя бы, связку АДО+MS Access 2000 И выше.там транзакции нормальные. хотя с адо нужно много всяких всячин знать.я, вот, например, никак не могу обновить одну строку, либо не знаю как, либо так нельзя.. а вот используя FIBPlus+FireBird - это элементарное, стандартное поведение фибов...там наоборот, чтобы обновить весь набор данных нужно переоткрывать его.
-
эм, понимаете, дело в том, что это т.н. тестовая работа...
и я обязан сделать ее именно на парадоксе, и именно с использованием транзакций=)
вот и бьюсь с решением..
-
а, ну тогда удачи.. и тому, кто ее поставил, тем более..:-)
-
> и я обязан сделать ее именно на парадоксе, и именно с использованием
> транзакций=)
> вот и бьюсь с решением..
Ты не обязан ее сделать, там достаточно иммитации.
-
учат всяким глупостям :-)
-
> Виталий Панасенко (17.11.2010 10:23:09) [9]
Деньги платят.
|
Есть новые 
Нет новых [134431 +15][b:0][p:0.001]