paradox с паролем

← →
GetIt (2004-03-28 08:02) [0]

Как создать (программно) paradox с паролем ?
И как подключаться к этой базе (с паролем ) ?

Вот создание:
with TTable.Create(nil) do begin DatabaseName := pathDB; TableName := nameDB; TableType := ttParadox; with FieldDefs do begin Add("Code", ftAutoInc, 0, false); Add("Fam", ftString, 20, false); end; CreateTable; with IndexDefs do begin Clear; AddIndex("","Q_Code",[ixPrimary,ixUnique]); AddIndex("idFam","Fam",[ixCaseInsensitive]); end; end;

вопрос лишь о пароле на базу...
и вообще, надёжен ли он ?

← →
GetIt (2004-03-28 12:24) [1]

Ну-у-у же-е-е...........

← →
Mike Kouzmine © (2004-03-28 12:33) [2]

Надежнее его нет. Лучше не использовать, так как если забудешь - не восстановить!

← →
GetIt (2004-03-28 14:36) [3]

Ну а как использовать то его ?! Программно?...
Что, никто не имел с этим дела, что ли....
:|

← →
LaidBack (2004-03-28 17:00) [4]

DbiCreateTable + F1

← →
GetIt (2004-03-28 18:53) [5]

Да-а-а....
Мастера-а-а....

← →
Mishgun (2004-03-29 02:44) [6]

DbiCreateTable & CRTblDesc если не можешь создать через Dbi... , то можно после создания выполнить DbiDoRestructure с установкой пароля, например:

{T: TTable; - таблица P: String - пароль} var db: TDatabase; Desc: CRTblDesc; db := T.OpenDatabase; FillChar(Desc, SizeOf(Desc), #0); StrCopy(Desc.szTblName, PChar(T.TableName)); StrCopy(Desc.szTblType, szParadox); if (P <> "") then begin StrCopy(Desc.szPassword, PChar(P)); Desc.bProtected := True; // - указываем на наличие пароля end; // Desc.bPack := True; // - упаковка данных... Check(DbiDoRestructure(db.Handle, 1, @Desc, nil, nil, nil, False));

Может я чего то непонимаю но у парадокса есть служебные пароли, общеизвестные. Т.е. ставь или неставь открыть 2 мин. :)

paradox с паролем Найти похожие ветки