بسم الله الرحمن الرحيم
 
اخوانى الكرام كل عام وانتم بخير .....اقدم لكم الطرق المختلفة لفتح قاعدة بيانات أكسس محمية بكلمة مرورحيث  يمكنك استخدام إحدى بُنى جمل الثلاثة التالية:
 
 
 

الكود:

  Dim MyConn As New ADODB.Connection

  MyConn.Provider = "Microsoft.Jet.OLEDB.4.0"
  MyConn.Properties("Data Source") = "C:\...\JetPassword.MDB"
  MyConn.Properties("Jet OLEDB:Database Password") = "MyPwd"
  MyConn.Open

 
 
- أو -
 
 

الكود:

Dim MyConn As New ADODB.Connection
  Dim strConn As String

  strConn = "Data Source=C:\...\JetPassword.MDB;" & _
            "Jet OLEDB:Database Password=MyPwd"
  MyConn.Provider = "Microsoft.Jet.OLEDB.4.0"
  MyConn.Open strConn

 
 
 
- أو -
 

الكود:


  Dim MyConn As New ADODB.Connection
  Dim strConn As String

  strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=C:\...\JetPassword.MDB;" & _
            "Jet OLEDB:Database Password=MyPwd"
  MyConn.Open strConn



 
 
إذا قمت بفتح قاعدة بيانات تستخدم الأمان Jet يمكنك استخدام إحدى بُنى جمل الثلاثة التالية:  
 

الكود:


 Dim MyConn As New ADODB.Connection

  MyConn.Provider = "Microsoft.Jet.OLEDB.4.0"
  MyConn.Properties("Data Source") = "C:\...\JetSecurity.MDB"
  MyConn.Properties("Jet OLEDB:System database") = "C:\...\System.MDW"
  MyConn.Open UserID:="Admin", Password:="MyPwd"



 
 
- أو -
 

الكود:


  Dim MyConn As New ADODB.Connection
  Dim strConn As String

  strConn = "Data Source=C:\...\JetSecurity.MDB;" & _
            "Jet OLEDB:System database=C:\...\System.MDW"
  MyConn.Provider = "Microsoft.Jet.OLEDB.4.0"
  MyConn.Open ConnectionString:=strConn, _
              UserID:="Admin", Password:="MyPwd"

 
 
- أو -

الكود:


  Dim MyConn As New ADODB.Connection
  Dim strConn As String

  strConn = "Provider=Microsoft.Jet.OLEDB.4.0;"
            "Data Source=C:\...\JetSecurity.MDB;" & _
            "Jet OLEDB:System database=C:\...\System.MDW"
  MyConn.Open ConnectionString:=strConn, _
              UserID:="Admin", Password:="MyPwd"

 
 
ملاحظة: يتم تصميم موفر OLEDB Jet 3.51 فتح قواعد بيانات Access 97 فقط. تم تصميم موفر OLEDB Jet 4.0 فتح قواعد بيانات Access 2000 أو Access 97.........إذا كان يجب عليك استخدام موفر Jet 3.51 في الأمثلة أعلاه تغيير اسم الموفر إلى "Microsoft.Jet.OLEDB.3.51."