EOleException [D6]
pvasya © (2002-09-28 09:53:00)
Работаю с 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:00) [1]
Неужели никто не работал с ADOQuery?
Наверх 
ЧАТ |
Орешник |
|
