Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Вылетает ошибка

Rustik © (2002-03-19 15:41:00)
Мастера помогите! У меня вылетает ошибка “error creating cursor handle”
При создании формы у меня происходит заполнение ComboBoxa и обновление таблицы через SQL запрос (в таблицу вставляются свежие данные)
procedure TKrat_danForm.FormCreate(Sender: TObject);
begin
Table2.Open;
Query2.Close;
Query2.Open;
Table2.First;
Table1.Active:=true;
ComboBox1.Clear;
Ошибка вылетает в этом месте
while not Table1.eof do
begin
ComboBox1.Items.Add(Table1.FieldbyName("Name_uchastka").AsString);
Table1.Next;
end;
Table2.IndexName := "FIO_Ind";
end;

clarin (2002-03-19 16:53:00) [1]
вылетает то на Query2.Open
действительно нужно Query2.ExecSQL

Johnmen (2002-03-19 16:01:00) [2]
ComboBox1.Items.Clear

Chestniy (2002-03-19 15:56:00) [3]
У меня такое сообщение регулярно бывало в случае если я запросу, который не возвращает данные, говорю вместо ExecSQL Open или Active:=True.

Lusha (2002-03-19 15:50:00) [4]
В приведенном коде я "криминала" не вижу. А что "висит" на событиях ComboBox1? Например, на OnChange.

JibSkeart (2002-03-19 15:50:00) [5]
Скорее всего енто от того что
Query.Open

попробуйте вот так !
Query.ExecSql

Cobalt (2002-03-19 15:49:00) [6]
Попробуй перенести это в OnActivate, т.к. при создании окна ещё не созданы (кажется)...

sniknik (2002-03-19 15:49:00) [7]
повесь все это хозяйство на FormShow, при создании возможно не все компоненты созданы а уже есть обращение.

procedure TKrat_danForm.FormShow(Sender: TObject);
const once: boolean = True;
begin
if once then begin
....
once:= False;
end;
end;

Наверх

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