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

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

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

Помогите убить баг!!!!!!! [D6, dBase, FoxPro]

Salivan © (2003-09-16 10:47:00)

Написал прогу под BDE, преимущественно использую SQL инструкции, и часто выдается ошибка "can"t create cursor handle". точно не могу сказать при каких обстоятельствах, но ошибка возникает либо при попытке выполнить "update mytable", либо "insert into". Не подскажете, в чем может быть дело?

Заранее благодарен.

Val (2003-09-16 12:11:00) [1]

+Sandman25 © (16.09.03 12:07) [7]
поэтому, в данном случае Application.ProcessMessages; не нужен, думаю.

Sandman25 (2003-09-16 12:07:00) [2]

Пока ExecSQL не выполнится, программа дальше выполняться все равно не будет. Это не асинхронная процедура. Попробуйте пройтись по программе пошагово в режиме отладки и сами увидите. Поставьте точку останова (F5) на ExecSQL, а потом нажмите F8.

Salivan (2003-09-16 12:02:00) [3]

> Sandman25 © (16.09.03 11:53) [5]
> Наверное, некорректно обращаться к State после ExecSQL.
> Кстати, в любом случае эта проверка Вам ничего не даст.
> Попробуйте ее убрать.

Попробую, конечно, но как тогда определять, что Query уже все выполнил и с таблицей уже можно работать дальше?

Sandman25 (2003-09-16 11:53:00) [4]

Наверное, некорректно обращаться к State после ExecSQL. Кстати, в любом случае эта проверка Вам ничего не даст. Попробуйте ее убрать.

Salivan (2003-09-16 11:51:00) [5]

> Sandman25 © (16.09.03 11:29) [3]
> Приведите кусок кода, на котором возникает ошибка.

{-------begin-----регистрация отправления исходящих-----------------}
with DataModule1.Query1 do
begin
Close;
while State<>dsInactive do
Application.ProcessMessages;
SQL.Clear;
SQL.Add("update buffer");
SQL.Add("set parol=""2""");
Application.ProcessMessages;
try
ExecSQL;
while State<>dsInactive do
Application.ProcessMessages;
except
on E:Exception do
begin
Application.MessageBox(PChar(e.Message),"Ошибка при регистрации п/п в таблице buffer.dbf",MB_OK);
raise;
end;
end;
while State<>dsInactive do
Application.ProcessMessages;
SQL.Clear;
SQL.Add("insert into o_reestr");
SQL.Add("select * from buffer");
Application.ProcessMessages;
try
ExecSQL;
while State<>dsInactive do
Application.ProcessMessages;
except
on E:Exception do
begin
Application.MessageBox(PChar(e.Message),"Ошибка при переносе п/п в реестр",MB_OK);
raise;
end;
end;
while State<>dsInactive do
Application.ProcessMessages;
end;
{------end-----регистрация отправления исходящих------------}

Где-то здесь. Потому как далее никаких операций с базой не производится кроме переоткрытия, но это уже в блоке finally

Sandman25 (2003-09-16 11:29:00) [6]

Приведите кусок кода, на котором возникает ошибка.

Salivan (2003-09-16 11:09:00) [7]

> HSolo © (16.09.03 10:54) [1]
> У Вас, по-видимому, везде стоит Query.Open

Да нет, там правильно все. Если бы был Query.Open, то я бы SQL запрос ни вжисть бы не поменял. ошибка вообще как-то нерегулярно выскакивает, вемя от времени

HSolo (2003-09-16 10:54:00) [8]

У Вас, по-видимому, везде стоит Query.Open
А для запросов на обновление данных (insert/update/delete) нужно Query.ExecSQL - т.к. ничего эти запросы не возвращают. Open - это только для select

Наверх

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