Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Узнать первичный ключ. BDE / 4 сообщений из 4, страница 1 из 1
26.07.2018, 15:32
    #39679713
minva
minva
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Узнать первичный ключ. BDE
Народ, кто еще BDE помнит? Можно ли узнать, какие столбцы парадоксовой таблицы являются первичным коючом
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.07.2018, 16:52
    #39679763
white_nigger
white_nigger
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Узнать первичный ключ. BDE
minvaНарод, кто еще BDE помнит? Можно ли узнать, какие столбцы парадоксовой таблицы являются первичным коючомВ Database Desktop-е глянуть :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.07.2018, 17:11
    #39679775
Dimitry Sibiryakov
Dimitry Sibiryakov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Узнать первичный ключ. BDE
minvaМожно ли узнать, какие столбцы парадоксовой таблицы являются первичным коючом

Можно: сканируешь IndexDefs, для нужного смотришь Fields.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.07.2018, 18:27
    #39679814
Мимопроходящий
Мимопроходящий
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Узнать первичный ключ. BDE
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
function GetPrimaryKey(Tbl: TTable):IDXDesc;
var
  TmpCursor: hdbicur;
  rslt: dbiResult;
  IndexDesc: IDXDesc;
begin
  Result := nil;
  Check(DbiOpenIndexList(Tbl.dbhandle, PChar(Tbl.TableName), nil, TmpCursor));
  repeat
    rslt:= DbiGetNextRecord(TmpCursor, dbiNOLOCK, @IndexDesc, nil);
    if (rslt <> DBIERR_EOF) and IndexDesc.bPrimary then begin
      Result := IndexDesc;
      Break;
    end;
  until (rslt <> DBIERR_NONE);
  Check(DbiCloseCursor(TmpCursor));
end;


Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Узнать первичный ключ. BDE / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 391ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2040584]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 148ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 22ms
get tp. blocked users:
 1ms
others: 194ms
total:  391ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]