Получить версию таблицыDelphi , Базы данных , ТаблицыПолучить версию таблицы
Оформил: DeeCo function GetTableVersion(Table: TTable): Longint; var hCursor: hDBICur; DT: TBLFullDesc; begin Check(DbiOpenTableList(Table.DBHandle, True, False, PChar(Table.TableName), hCursor)); Check(DbiGetNextRecord(hCursor, dbiNOLOCK, @DT, nil)); Result := DT.tblExt.iRestrVersion; Check(DbiCloseCursor(hCursor)); end; Статья Получить версию таблицы раздела Базы данных Таблицы может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |