Понедельник, 20.08.2018
Королевство Delphi
Главное меню
Статьи
Наш опрос
Нравится раздел статьи?
Всего ответов: 65
Статистика
Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа
Главная » Статьи » Базы данных » Разные

Как перейти к указанной записи в БД?
function TBDEDirect.GoToRecord(RecNo: LongInt): Boolean;
var
 RecCount: LongInt;
 Bookmark: TBookmark;
 Res: DBIResult;
begin
 Result := False;
 if CheckDatabase then
 begin
 if RecNo < 1 then
 RecNo := 1;
 RecCount := GetRecordCount;
 if RecNo > RecCount then
 RecNo := RecCount;
 Res := DbiSetToRecordNo(FDataLink.DataSource.DataSet.Handle,
 RecNo);
 if Res = 0 then
 begin
 Bookmark := StrAlloc(GetBookmarkSize);
 DbiGetBookmark(FDataLink.DataSource.DataSet.Handle,
 Bookmark);
 FDataLink.DataSource.DataSet.GoToBookmark(Bookmark);
 FDataLink.DataSource.DataSet.FreeBookmark(Bookmark);
 Result := True;
 end
 else
 Check(Res);
 end;
end;

Получить ссылку на материал

Категория: Разные | Добавил: Барон (21.12.2011)
Просмотров: 421 | Теги: БД, запись | Рейтинг: 0.0/0
[ Пожертвования для сайта ] [ Пожаловаться на материал ]

Если вам помог материал сайта кликните по оплаченной рекламе размещенной в центре

Поиск
Категории раздела
Access [1]
ADO [5]
Alias [4]
Oracle [1]
Delphi & SQL [15]
Разные [29]
Псевдоним [12]
СУБД клиент-сервер [3]
Королевство Delphi © 2010-2018
Яндекс цитирования