Ошибка cannot perform this operation on a closed dataset

If you run your application Delphi will restore the open or closed state that the dataset had in the Delphi form designer.

If there is an error Delphi can quitly drop this and close the dataset.
Also it’s possible that you accidently closed the dataset in the designer, after with it no longer auto-opens on ptogram start.
When it’s time to use the dataset you will get this error because the dataset is closed.

One option is to explicitly open the dataset in the FormCreate event and add error handling code there, this will allow you to see the error message and debug from there.

procedure TForm1.FormCreate(sender: TObject);
begin
  try
    MyDBFTable.Open;
  except on exception e do 
    WriteErrorToLogFile('Cannot open MyDBFTable, error is: ' + e.message);
    // or 
    //ShowMessage('Cannot open MyDBFTable, error is: ' + e.message);
  end; {try}
end;

I always do opening of datasets explicitly in FormCreate because this allows me to log any errors. If a client app has an exception it gets emailed to me automatically.

Программная ошибка

Вернуться в «АРМ Орион»

Нравится ресурс? Помоги проекту!

[ Script execution time: 0,0977 ]   [ 16 queries used ]   [ Generated: 30.01.23, 01:18 GMT ]  

← →
Andriy Tysh
 
(2004-05-22 10:49)
[0]

Из-за чего может вылетать ошибка в ClientDataSet: «Cannot perform this operation on a closed dataset», если учесть, что после каждого едита или инсерта корректно стоит пост? Использую грид DBGridEh.

← →
Алхимик ©
 
(2004-05-22 11:01)
[1]

«Cannot perform this operation on a closed dataset»
«Не могу выполнить эту операцию на закрытом наборе данных»

← →
Andriy Tysh
 
(2004-05-22 14:25)
[2]

> Алхимик ©   (22.05.04 11:01) [1]
> «Cannot perform this operation on a closed dataset»
> «Не могу выполнить эту операцию на закрытом наборе данных»

Сенкс за транслейт!
🙂
Но у меня с этим нет проблемы, а с клиентдатасетом. Он открывается на Шов формы, а закрывается на Клоус.

← →
Anatoly Podgoretsky ©
 
(2004-05-22 14:35)
[3]

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

← →
Andriy Tysh
 
(2004-05-24 10:29)
[4]

> Anatoly Podgoretsky ©   (22.05.04 14:35) [3]
> Из за чего угодно, но в момент выполнения операции набор
> данных закрыт, хочешь выполнять то сначала открой его.

Я это прекрасно понимаю. Вот и ставлю вопрос, что может кроме меня его закрыть. Может DBGridEh, или что-то ещё. Так как я точно не закрываю!

← →
Sergey13 ©
 
(2004-05-24 10:39)
[5]

2Andriy Tysh   (24.05.04 10:29) [4]
Ну повесь на ОнКлозе месадж и посмотри когда закрывается.

← →
31512 ©
 
(2004-05-24 11:13)
[6]

А в каком контексте возикает такая ошибка? Можно привести кусок кода?

← →
Andriy Tysh
 
(2004-05-24 11:37)
[7]

← →
31512 ©
 
(2004-05-24 11:45)
[8]

← →
Andriy Tysh
 
(2004-05-24 11:49)
[9]

> 31512 ©   (24.05.04 11:45) [8]
> ATmpClient:=TClientDataSet.Create(nil) — Вижу
>
> ATmpClient.Open или ATmpClient.Active := True — не вижу.

Действительно нет. Но только-что добавил-эффекта нет. Тот же результат.

← →
Vlad ©
 
(2004-05-24 11:54)
[10]

> Andriy Tysh   (24.05.04 11:49) [9]

А чего же ты хочешь, если у тебя FreeAndNil происходит ?

← →
31512 ©
 
(2004-05-24 12:05)
[11]

> Andriy Tysh   (24.05.04 11:49) [9]

Равно как не установлен источник данных для ATmpClient.
Смотри внимательнее!

← →
sniknik ©
 
(2004-05-24 12:10)
[12]

← →
31512 ©
 
(2004-05-24 12:30)
[13]

Если в AClient передаётся TClientDataSet то предлагаю написать так:

function DeleteByFilter(AClient: TDataSet; AFilter: String): Integer;
begin
with (AClient as TClientDataSet) do
begin
if not Active then Result:=0
else
try
 PacketRecords:=0;
 Filter:=AFilter;
 Filtered:=True;
 Result:=RecordCount;
 First;
 while not Eof do
   Delete; // тут пожоже надо ещё кое - что типа Next
except
  Result:=0;
end;
end;
end;

А вообще-то вместо TDataSet можно и TClientDataSet. И никаких as уже не надо.

← →
Vlad ©
 
(2004-05-24 12:41)
[14]

> 31512 ©   (24.05.04 12:30) [13]


>  while not Eof do
>    Delete; // тут пожоже надо ещё кое - что типа Next
Ничего типа Next там не надо, все итак верно

← →
31512 ©
 
(2004-05-24 12:48)
[15]

> Vlad ©   (24.05.04 12:41) [14]

Значит я ошибся.

← →
sniknik ©
 
(2004-05-24 13:23)
[16]

попробуй так, если не пройдет значит дело не в этой процедуре

function DeleteByFilter(AClient: TDataSet; AFilter: String): Integer;
var RNo: integer;
begin
 Result:= 0;
 if not AClient.Active then Exit;

← →
sniknik ©
 
(2004-05-24 13:35)
[17]

заменить, чтобы на пустой не ругалось, мало ли, может последнюю удаляем

 if not isEmpty then
   if RNo <= RecordCount then RecNo:= RNo
                         else RecNo:= RecordCount;

← →
Andriy Tysh
 
(2004-05-24 14:23)
[18]

← →
Andriy Tysh
 
(2004-05-24 15:57)
[19]

Лучше работает, чем моя ф-ия. Но всё же на протяжении 5 минут тестирования один раз такой же глюк произошёл. Может случайно Ещё я доследил: если после аппенд написать едит, то всё нормально.