Программно передать пароль (открыть запароленную БД)

@barbudas · Регистрация: 14.04.2010

Author24 — интернет-сервис помощи студентам

хочу сделать так, чтобы бд открывалась (в смысле активизировалось бы приложение access, в котором открывалась бы бд) только из внешней программки (vb).
для этого хочу поставить ей пароль если... найду способ передать его программно.
как открыть программно запароленную бд, передав пароль?
заранее спасибо.

01.08.2010, 18:35

Visual Basic

'The following listings demonstrate how to open a Microsoft Jet 
'database that has been secured at the share level.
 
'DAO
Sub DAOOpenDBPasswordDatabase()
 
   Dim db As DAO.Database
 
   Set db = DBEngine.OpenDatabase(".NorthWind.mdb", _
      False, False, ";pwd=password")
   db.Close
 
End Sub
 
'ADO
Sub ADOOpenDBPasswordDatabase()
 
   Dim cnn As New ADODB.Connection
 
   cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=.NorthWind.mdb;" & _
      "Jet OLEDB:Database Password=password;"
   cnn.Close
 
End Sub

@barbudas · 01.08.2010, 18:42 **[ТС]**

Спасибо, а то help по dao нифига не работает...

@barbudas 0 / 0 / 0 Регистрация: 14.04.2010 Сообщений: 44
		1
	Программно передать пароль (открыть запароленную БД) 01.08.2010, 14:04. Показов 1152. Ответов 2 Метки нет (Все метки) хочу сделать так, чтобы бд открывалась (в смысле активизировалось бы приложение access, в котором открывалась бы бд) только из внешней программки (vb). для этого хочу поставить ей пароль если... найду способ передать его программно. как открыть программно запароленную бд, передав пароль? заранее спасибо. 0

@barbudas 0 / 0 / 0 Регистрация: 14.04.2010 Сообщений: 44
	01.08.2010, 18:42 [ТС]	3
	Спасибо, а то help по dao нифига не работает... 0