Сейчас на форуме: hgdagon, asfa, bartolomeo (+6 невидимых) |
eXeL@B —› Программирование —› Standard Jet DB |
Посл.ответ | Сообщение |
|
Создано: 12 октября 2006 05:59 · Личное сообщение · #1 |
|
Создано: 12 октября 2006 22:36 · Личное сообщение · #2 ADOConnection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' + 'Data Source=' + NewDbName + ';' + 'Mode=Share Exclusive;' + 'Persist Security Info=False;' + 'Jet OLEDB:Database Password=' + DBPassword; try ADOConnection.Open; except showmessage('Не могу открыть базу ' + NewDbName); btnDbSelect.Enabled := true; exit; end; Memo.Lines.Add('Database ' + NewDbName + ' is opened with password ' + DBPassword); Memo.Lines.Add(''); // убираем пароль из базы ADOQuery.SQL.Clear; ADOQuery.SQL.Append('ALTER DATABASE PASSWORD [] [' + DBPassword + ']'); ADOQuery.ExecSQL; Memo.Lines.Add('Password is removed'); Memo.Lines.Add(''); |
eXeL@B —› Программирование —› Standard Jet DB |