REVOLT
И что? Я процитировать хелп сюда должен? Форум может и нафига, но уж точно не резиновый... сие раз. Два - так это то, что в хелпе ты инфу найдешь быстрее чем я отвечу (if). И три - кому охота помогать человеку, который сам не желает что-либо делать?
Резюме - форум для того случая когда все испробовано, но не помогло.

ИМХО конечно...

Во-первых я не знаю про какой хелп идёт речь?
Во-вторых я задал вопос как и многои участники форума.
Ну а в третих пробывал это:

Код

Option Explicit Private WS As Workspace Private DB As Database Dim strDBPath As String Dim strNewPwd As String Private Sub Command1_Click() Set WS = DBEngine.Workspaces(0) Set DB = WS.OpenDatabase (strDBPath,True,False) DB.NewPassword "111", strNewPwd End Sub

Всёравно не фига не получается...

Это сообщение отредактировал(а) REVOLT - 5.10.2004, 18:22

REVOLT, ну делал я раньше так:
пароль на базу ставил прямо в Access , а потом работал с ней через DAO (то есть подключить надо Microsoft DAO 3.6 Object Library. Вот как я открывал базу:

Код

Private mdb As dao.Database               'база данных Private Sub Form_Load() On Error Resume Next Dim strConnect As String Dim pwd As String Text1.Text = "какой-нибудь пароль" pwd = Text1.Text strConnect = ";database=" & App.Path & "\db23.mdb" & ";PWD=" & pwd & ""  'data access with password" On Error Resume Next Set mdb = OpenDatabase("", True, False, strConnect) If Err Then lblLog.Left = 800 lblLog.Caption = "Неправильный пароль." 'Opening your Database failed." 'MsgBox "Вы ввели неправильный пароль", vbExclamation, "Защита доступа" Else Module1.ProgrammStart End If ...

Все что здесь написано было сделано очень давно (примерно два месяца до того как я зарегистрировался на форуме) и поэтому... сильно не ругайтесь Ну так... как пример использовать можно.

Когда изучал базу пришел к выводу, что она зашифровывается, когда ты на нее ставишь пароль. Что как бы логично, иначе какой вообще смысл в пароле...

cardinal, спасибо помог, надал разбираться с твоим репвым примером, но тут теперь такой вопросик, не знаю ли стоит создавать ноавй топик, или сюда написать. Но я напишу наверное, вопрос на мой взгляд не вызовит больших дискуссий.

Есть два текстовых поля code и txtPassword
В txtPassword вводятся символы, а в этот момент в code перекодируются

Код

Option Explicit Private Sub cmdOK_Click() Dim pwl As Variant code.Text = pwl SaveSetting App.EXEName, "Code", "pas", pwl End Sub Private Sub txtPassword_Change() code = Encode(txtPassword) End Sub

Вы наверно поняли что мне хочется записать перекодированный пароль в реестра, как это сделать. Тот код который я привёл не работает. Где я допустил ошибку???

Код

Option Explicit Private Sub cmdOK_Click() Dim pwl As String pwl = code.Text SaveSetting App.EXEName, "Code", "pas", pwl End Sub Private Sub txtPassword_Change() code.Text = Encode(txtPassword) End Sub

Это я так... на работоспособность не проверял... Если не поможет, значит я тебя не понял

cardinal, всё работает! Спасибо тебе, выручил очень!

Ну вот, а ты боялся

cardinal, я тут с реестром немного запутался.

вот код. Но почемуто программа не считывает данные из реестра

Код

Private Sub Form_Load() If pass.Text = "" Then  txtPassword.Visible = True  cmdOK.Visible = True  txtPass.Visible = False    ope.Visible = False End If If pass.Text = GetSetting(App.EXEName, "Code", "pas") Then    txtPassword.Visible = False    cmdOK.Visible = False    txtPass.Visible = True    ope.Visible = True End If End Sub

Плдскажите почему в pass.Text не появляются данные из реестра.

А это что за конструкция?

Код

If pass.Text = GetSetting(App.EXEName, "Code", "pas") Then ...

Отвыкай так писать, тогда и не будешь голову ломать на всякой ерундой...

Вот пример:

Код

Option Explicit Private Sub DeletePass_Click() DeleteSetting App.EXEName, "Code", "pas" End Sub Private Sub GetPass_Click() pass.Text = GetSetting(App.EXEName, "Code", "pas") End Sub Private Sub SetPass_Click() Dim pwl As String pwl = pass.Text SaveSetting App.EXEName, "Code", "pas", pwl End Sub

[quote]А это что за конструкция?


Код

Код

If pass.Text = GetSetting(App.EXEName, "Code", "pas") Then ...

[quote]

Ну это условие. Есле в текстровом поле символы такие же как и в реестре то поисходит условие.
Но это уже не важно. Писат стараюсь переучиваться
У меня всё получилось. Всёравно спасибо

Цитата(REVOLT @ 7.10.2004, 19:40)

Есле в текстровом поле символы такие же как и в реестре то поисходит условие.

Понимаю... То ли я на ручнике был, то ли что, но я почему то не был уверен, что это откомпилируется правильно. Вообщем в таком случае комментарий бы не помешал, а если без коментария, то я думаю лучше будет читаться так (твой код немного подправил):

Код

Private Sub Form_Load() Dim SavedPwd As String If pass.Text = "" Then txtPassword.Visible = True cmdOK.Visible = True txtPass.Visible = False ope.Visible = False End If SavedPwd = GetSetting(App.EXEName, "Code", "pas") If pass.Text = SavedPwd Then txtPassword.Visible = False cmdOK.Visible = False txtPass.Visible = True ope.Visible = True End If End Sub

В этом случае все и без комментариев становится понятно.

Вот представляешься приперся я усталый домой и посмотрел в твой исходник Я конечно согласен что протормозил, но ведь с кем не случается... Дело в том, что в Си оператор сравнения выглядит так: ==, а тут был знак =. Вот я что-то и подумал, что возвратит тебе операция присваивания...
Но думаю раз все таки случилось - значит надо написать по лучше чтобы и ты сам через год после того как не видел этого кода (попрограммировав может даже на многих других языках) понял, что ты написал когда-то там...

Я сделал одну ошибку пару лет назад - плохо комментировал, плохо называл переменные, про редактировал исходники и т..д. - и на то, что тогда понаписал смотрю теперь с ужасом

Спасибо тебе уважаемый Гуру, дописываю эту программу, а с новой всё начинаю коментировать правильно. Как ты правильно сказал сто чере год туда страшно глянут. Я уже недельки две колдую над программой. И туда ужестрашно залязить... ,а через год есле туда глянуть, то вообще заикаться можно начать