Имитируем псевдоним PdoxWIN PRIV


var
d : TDataBase;
begin
d := TDataBase.Create(Application);
d.DataBaseName := ′PRIV′;
d.DriverName := ′STANDARD′;
d.Params.Add(′PATH=′+Session.PrivateDir);
d.Connected := True;
end;



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



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