Delphi и Базы данных → Alias → Как узнать расположение локальной БД по ее Alias


uses
DbiProcs;

function GetDirByDatabase(Database: TDatabase): string;
var
pszDir: PChar;
begin
pszDir := StrAlloc(255);
try
DbiGetDirectory(Database.Handle, True, pszDir);
Result := StrPas(pszDir);
finally
StrDispose(pszDir);
end;
end;
Опубликовал admin
11 Мар, Вторник 2008г.

Delphi и Базы данных → Alias → Как создать SystemDSN


const
ODBC_ADD_DSN = 1; // Добавляем источник данных
ODBC_CONFIG_DSN = 2; // Конфигурируем (редактируем) источник данных
ODBC_REMOVE_DSN = 3; // Удаляем источник данных
ODBC_ADD_SYS_DSN = 4; // Добавляем системный DSN
ODBC_CONFIG_SYS_DSN = 5; // Конфигурируем системный DSN
ODBC_REMOVE_SYS_DSN = 6; // удаляем системный DSN

type
TSQLConfigDataSource = function( hwndParent: HWND; fRequest: WORD;
lpszDriver: LPCSTR; lpszAttributes: LPCSTR ) : BOOL; stdcall;
Опубликовал admin
11 Мар, Вторник 2008г.

Delphi и Базы данных → Alias → Описание функции DbiAddAlias

Опубликовал admin
11 Мар, Вторник 2008г.

Delphi и Базы данных → Alias → Псевдонимы в Delphi

Опубликовал admin
11 Мар, Вторник 2008г.

Delphi и Базы данных → Alias → Новый псевдоним на лету


type
TDataMod = class(TDataModule)
Database: TDatabase;
public
procedure TempAlias(NewAlias, NewDir: string);
end;

procedure TDataMod.TempAlias(NewAlias, NewDir: string);
begin
with Session do
if not IsAlias(NewAlias) then
begin
ConfigMode := cmSession; (* NewAlias будет ВРЕМЕННЫМ *)
try
AddStandardAlias(NewAlias, NewDir, ′PARADOX′);
Database.Close;
Database.AliasName := NewAlias;
Database.Open;
finally
Опубликовал admin
11 Мар, Вторник 2008г.


RSS-материал

Программирование для чайников.