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

← →
Rustik (2002-03-19 15:41) [0]

Мастера помогите! У меня вылетает ошибка “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;

← →
Cobalt © (2002-03-19 15:49) [1]

Попробуй перенести это в OnActivate, т.к. при создании окна ещё не созданы (кажется)...

← →
sniknik © (2002-03-19 15:49) [2]

повесь все это хозяйство на FormShow, при создании возможно не все компоненты созданы а уже есть обращение.

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

← →
Lusha © (2002-03-19 15:50) [3]

В приведенном коде я "криминала" не вижу. А что "висит" на событиях ComboBox1? Например, на OnChange.

← →
JibSkeart © (2002-03-19 15:50) [4]

Скорее всего енто от того что
Query.Open

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

← →
Chestniy (2002-03-19 15:56) [5]

У меня такое сообщение регулярно бывало в случае если я запросу, который не возвращает данные, говорю вместо ExecSQL Open или Active:=True.

ComboBox1.Items.Clear

← →
clarin (2002-03-19 16:53) [7]

вылетает то на Query2.Open
действительно нужно Query2.ExecSQL

Вылетает ошибка Найти похожие ветки