| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

paradox с паролем [D6, Paradox]

GetIt ©   (2004-03-28 08:02:00) 

Как создать (программно) 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;


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

---

atruhin   (2004-03-31 08:39:00) [1]

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

---

Mishgun   (2004-03-29 02:44:00) [2]

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));


---

GetIt   (2004-03-28 18:53:00) [3]

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

---

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

DbiCreateTable + F1

---

GetIt   (2004-03-28 14:36:00) [5]

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

---

Mike Kouzmine   (2004-03-28 12:33:00) [6]

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

---

GetIt   (2004-03-28 12:24:00) [7]

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

---

Наверх