Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.056 c
14-32977          drpass                2002-03-05 00:45  2002.04.11  
Злостный хакерский вопрос


1-32779           Pinochet              2002-03-31 14:51  2002.04.11  
Алгоритм!!!!


1-32858           DimaIv                2002-03-29 05:01  2002.04.11  
Подскажите плиз. Как программно удалить файл.


6-32933           Ivanov Vova           2002-01-22 15:41  2002.04.11  
Мастера, помогите ламеру, плз.


1-32837           CrazyAngel            2002-03-28 18:00  2002.04.11  
Как найти приложение , которое блокирует файл ?