[odai]

(11-11-22, 06:06 PM)يوسف العزير كتب :

(11-11-22, 05:17 PM)odai كتب :

(10-11-22, 11:20 PM)يوسف العزير كتب : احتاج إلى طريقة لفتح ملف اكسس بالفجول استوديو 2015 والملف يحتوي على كلمة سر 
استخدمت الكود التالي ولكن لم ينفع 

        Try
            Dim AccessDB As Object
            AccessDB = CreateObject("Access.Application")
            AccessDB = OpenCurrentDatabase(Application.StartupPath + "\Interface system.accdb", False, "123456")
            Close()
        Catch ex As Exception
            MsgBox(ex.Message)
            'Close()
        End Try

المطلوب افتح ملف اكسس عن طريق الفيجول استوديو 2015

Dim c As New OleDb.OleDbConnention("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Application.StartupPath & "\Interface system.accdb; Jet OLEDB:database Password=123456")
Try
   c.Open()

Catch ex As Exception
   MsgBox(ex.Message)

Finally
   c.Close()
End Try

اخي العزيز هذا الكود لا يفتح قاعدة البيانات بشكل منفصل ولكن يقوم بالاتصال بها فقط انا اريد ان يفتح قاعدة البيانات بشكل منفصل بالاكسس نفسه يعني كأني قمت بالنقر على ملف الاكسس

الكود تبعك انا اقتبسته وصححته باللون الاحمر
ارجع لكودك الاول وحاول فيه بعد وضع العلامه \ قبل اسم الملف