Форум: "Базы";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];
ВнизВылетает ошибка Найти похожие ветки
← →
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.
← →
Johnmen (2002-03-19 16:01) [6]ComboBox1.Items.Clear
← →
clarin (2002-03-19 16:53) [7]вылетает то на Query2.Open
действительно нужно Query2.ExecSQL
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c