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

@Ksenya100 · Регистрация: 13.05.2010

Author24 — интернет-сервис помощи студентам

искала по всем форумам, ответ на свой вопрос не нашла =(
программа длинная, напишу только код связанный с Query1

Delphi

procedure TForm1.SpeedButton1Click(Sender: TObject);    {Здесь Query1 работает}
var ready:string;
begin
{здесь есть и другие операции, никак не связанные с Query1, ready - имя таблицы, его я здесь и получаю}
Query1.Close;
Query1.SQL.Text:='select distinct obj_code from '+ready;
Query1.Open;
Combobox1.Clear;
Query1.First;
While not Query1.Eof do
begin
Combobox1.Items.Add(Query1.FieldByName('obj_code').AsString);
Query1.Next;
end;
Query1.Open;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
var    i: integer;
begin
i:=0;
Query1.Active:=true;
Query1.First; {это ещё выполняется, а дальше не хочет}
for i := 0 to Form2.DBGrid1.DataSource.DataSet.RecordCount  do
  begin
  Application.ProcessMessages;
       While not Query1.Eof do
       begin 
      {тело цикла }
       Query1.Next;
       end;
  end;
end;

в чем ошбка?? что с dataset'ом не так??

@harmless · 01.06.2010, 11:47

В 16ой строчке примера, не вижу смысла.
По нажатию какой кнопки ошибка возникает?
Скорее всего где-то Next или First вызываются при закрытом наборе данных.

@Ksenya100 · 01.06.2010, 11:57 **[ТС]**

=)) 16 строчка была написана на всякий случай... (уже после того, как я всё перепробовала)
а ошибка выскакивает при выполнеии 25 строки.

@harmless · 01.06.2010, 12:00

А у DBGrid1 какой DataSource?

@Lord_Voodoo · 01.06.2010, 12:01

Ksenya100, ну текста запроса я чего-то не вижу вообще...
Form2.DBGrid1.DataSource.DataSet - что указано здесь?

@Ksenya100 · 01.06.2010, 12:03 **[ТС]**

DBGrid1.DataSource1.Dataset.Query1

@SAMZ · 01.06.2010, 12:05

Сообщение от Ksenya100

Form2.DBGrid1.DataSource.DataSet.RecordCount

А этот DataSet открыт ???

@harmless · 01.06.2010, 12:06

DBGrid1.DataSource1.Dataset - тут Query1 должно быть написано.

@Ksenya100 · 01.06.2010, 12:19 **[ТС]**

написала
Form2.DBGrid1.DataSource.DataSet.Open;
работает!!! спасибо!!
только он и раньше был открыт..... сам закрылся?.........

@harmless · 01.06.2010, 12:22

Странно, такое ощущение, что где-то косяк в другом месте...
Или Query1 не является источником данных для DBGrid1.

@Ksenya100 · 01.06.2010, 12:30 **[ТС]**

является
но можт ещё где-то что-то не так=)
я один цикл убрала (while)

@harmless · 01.06.2010, 12:33

Сообщение от Ksenya100

Delphi

1
2
3

Query1.Active:=true;
Query1.First; {это ещё выполняется, а дальше не хочет}
for i := 0 to Form2.DBGrid1.DataSource.DataSet.RecordCount do

Причем тут еще один цикл? Или тут между строчками еще что-то стоит?

@Ksenya100 · 01.06.2010, 13:06 **[ТС]**

ну цикл while do мог как-то повлиять (смотря что там внутри) но я не говорила, что из-за этого ошибки больше нет... её нет из-за Form2.DBGrid1.DataSource.DataSet.Open;

@harmless · 01.06.2010, 13:08

Понятно, что ничего не понятно...

@harmless 150 / 150 / 3 Регистрация: 05.05.2010 Сообщений: 570
	01.06.2010, 13:08	14
	Понятно, что ничего не понятно... 0

@harmless 150 / 150 / 3 Регистрация: 05.05.2010 Сообщений: 570
	01.06.2010, 11:47	2
	В 16ой строчке примера, не вижу смысла. По нажатию какой кнопки ошибка возникает? Скорее всего где-то Next или First вызываются при закрытом наборе данных. 0

@Ksenya100 72 / 64 / 3 Регистрация: 13.05.2010 Сообщений: 349
	01.06.2010, 11:57 [ТС]	3
	=)) 16 строчка была написана на всякий случай... (уже после того, как я всё перепробовала) а ошибка выскакивает при выполнеии 25 строки. 0

@harmless 150 / 150 / 3 Регистрация: 05.05.2010 Сообщений: 570
	01.06.2010, 12:00	4
	А у DBGrid1 какой DataSource? 0

@Lord_Voodoo Супер-модератор 8783 / 2536 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	01.06.2010, 12:01	5
	Ksenya100, ну текста запроса я чего-то не вижу вообще... Form2.DBGrid1.DataSource.DataSet - что указано здесь? 0

@Ksenya100 72 / 64 / 3 Регистрация: 13.05.2010 Сообщений: 349
	01.06.2010, 12:03 [ТС]	6
	DBGrid1.DataSource1.Dataset.Query1 0

@SAMZ 1263 / 706 / 62 Регистрация: 21.12.2009 Сообщений: 2,255
	01.06.2010, 12:05	7
	Сообщение от Ksenya100 Form2.DBGrid1.DataSource.DataSet.RecordCount А этот DataSet открыт ??? 1

@harmless 150 / 150 / 3 Регистрация: 05.05.2010 Сообщений: 570
	01.06.2010, 12:06	8
	DBGrid1.DataSource1.Dataset - тут Query1 должно быть написано. 0

@Ksenya100 72 / 64 / 3 Регистрация: 13.05.2010 Сообщений: 349
	01.06.2010, 12:19 [ТС]	9
	написала Form2.DBGrid1.DataSource.DataSet.Open; работает!!! спасибо!! только он и раньше был открыт..... сам закрылся?......... 0

@harmless 150 / 150 / 3 Регистрация: 05.05.2010 Сообщений: 570
	01.06.2010, 12:22	10
	Странно, такое ощущение, что где-то косяк в другом месте... Или Query1 не является источником данных для DBGrid1. 0

@Ksenya100 72 / 64 / 3 Регистрация: 13.05.2010 Сообщений: 349
	01.06.2010, 12:30 [ТС]	11
	является но можт ещё где-то что-то не так=) я один цикл убрала (while) 0

Опции темы

@Ksenya100 72 / 64 / 3 Регистрация: 13.05.2010 Сообщений: 349
	01.06.2010, 13:06 [ТС]	13
	ну цикл while do мог как-то повлиять (смотря что там внутри) но я не говорила, что из-за этого ошибки больше нет... её нет из-за Form2.DBGrid1.DataSource.DataSet.Open; 0