Переход с BDE на ADO. Блокировки DbiAcqTableLock...

Доброго времени суток!
Осуществляется переход на ADO и в одной из функций (оговорюсь, продукт изначально не мой) встретил вот это:

function Tlock.getNum(alias,table,field:String;step:Integer):Integer;
var i:Integer;
begin
table1.DataBaseName:=alias;
table1.TableName:=table;
table1.open;

while DbiAcqTableLock(Table1.Handle ,dbiWriteLock)<>0 do;
      i:=table1.FieldByName(field).asInteger;

      Table1.Edit;
      Table1.FieldByName(field).AsInteger :=i+step;
      Table1.Post;
      Table1.UnLockTable(ltWriteLock);
      table1.close;
      getNum:=i;
end;

Как я понял функция блокирует указанную таблицу с тем, чтобы забрать номер следующей записи и присвоить полю номер+1.
Теперь вопрос-как осуществить такую же блокировку таблицы средствами ADO (Query,Table)?
Заранее благодарен )

Какая СУБД?

Posted via ActualForum NNTP Server 1.4

пардон... Delphi7, MS SQL EM 8.0

ADO "не умеет" блокировать таблицы. По конкретной реализации блокировки таблицы идите в форум по MSSQL.

Posted via ActualForum NNTP Server 1.4

спс, так и сделаю...

Гыыыы... отправили обратно )))

Обсуждайте в этом топике, параллельный закрываю.

А чего обсуждать в ветке дельфи проблемы с базой... выбрать или не выбрать auto increment для этого поля?

while DbiAcqTableLock(Table1.Handle ,dbiWriteLock)<>0 do;

Ждет когда будет снята блокировка

В целом функция реализует счетчик. Возвращает значение инкрементирует его и сохраняет.