Текущий архив: 2002.10.10;
Скачать: CL | DM;

Вниз

EOleException   Найти похожие ветки 

← →
pvasya ©   (2002-09-28 09:53) [0]

Работаю с mdb файлом при помощи ADOQuery.
В цикле несколько раз вызываю нижеследующую процедуру, но при
втором ее вызове программа вылетает с EOleException. Что происходит? Как победить эту ошибку?

procedure SendToUser(Query:TADOQuery;UserId,DiskId:String);
begin
Query.SQL.Clear;
Query.SQL.Add("update tbDisk set diskUse=2 where diskId in ("+DiskId+" )");
Query.ExecSQL;

Query.SQL.Clear;
Query.SQL.Add("INSERT INTO tbRegistry (NameId, DiskId, DateOut) "+
" SELECT UserId, diskId, Date() AS Expr1 "+
" FROM tbDisk, tbUsers "+
" WHERE diskId in ("+DiskId+") AND tbUsers.UserId="+UserId);
Query.ExecSQL;
end;

---

← →
pvasya ©   (2002-09-28 12:22) [1]

Неужели никто не работал с ADOQuery?

---

Страницы: 1 вся ветка

Текущий архив: 2002.10.10;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.023 c