الطرقالمختلفة لفتح قاعدة بيانات Access مؤمنة في ADO خلال OLE DB

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

الطرقالمختلفة لفتح قاعدة بيانات Access مؤمنة في ADO خلال OLE DB

مُساهمة من طرف end.sub في الأحد أكتوبر 13, 2013 8:25 pm

بسم الله الرحمن الرحيم
 
اخوانى الكرام كل عام وانتم بخير .....اقدم لكم الطرق المختلفة لفتح قاعدة بيانات أكسس محمية بكلمة مرورحيث  يمكنك استخدام إحدى بُنى جمل الثلاثة التالية:
 
 
 
الرمز:
  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."

end.sub
.....
.....

تاريخ التسجيل : 15/08/2013
المساهمات : 70
النقاط : 131
التقيم : 9
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى