Текущий архив: 2004.04.25;
Скачать: CL | DM;
Вниз
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));
← →
atruhin © (2004-03-31 08:39) [7]Может я чего то непонимаю но у парадокса есть служебные пароли, общеизвестные. Т.е. ставь или неставь открыть 2 мин. :)
Страницы: 1 вся ветка
Текущий архив: 2004.04.25;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.022 c
