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

Содержание активной записи в БД
function TBDEDirect.GetCurRecord(Lock: DBILockType): PChar;
var
 Res: DBIResult;
 RecSize: Word;
 RecBuf: PChar;
 Bookmark: TBookmark;
begin
 Result := StrNew('');
 if CheckDatabase then
 begin
 RecSize := GetPhysicalRecSize;
 RecBuf := StrAlloc(RecSize+1);
 FillChar(RecBuf^, RecSize+1, #0);
 Bookmark := FDataLink.DataSource.DataSet.GetBookmark;
 DbiSetToBookmark(FDataLink.DataSource.DataSet.Handle,Bookmark);
 FDataLink.DataSource.DataSet.FreeBookmark(Bookmark);
 Res := DbiGetRecord(FDataLink.DataSource.DataSet.Handle,
 Lock, RecBuf, nil);
 if Res = 0 then
 Result := RecBuf
 else
 Check(Res);
 end;
end;

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

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

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

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