منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

احتاج إلى طريقة لفتح ملف اكسس بالفجول استوديو 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

الكود فيه خطأ

والصحيح تكتب :

(11-11-22, 09:58 AM)Taha Okla كتب : [ -> ]الكود فيه خطأ

كود :

AccessDB = OpenCurrentDatabase

والصحيح تكتب :

كود :

AccessDB.OpenCurrentDatabase

جربته نفس المشكلة 

---

(11-11-22, 03:25 PM)يوسف العزير كتب : [ -> ]

(11-11-22, 09:58 AM)Taha Okla كتب : [ -> ]الكود فيه خطأ

كود :

AccessDB = OpenCurrentDatabase

والصحيح تكتب :

كود :

AccessDB.OpenCurrentDatabase

جربته نفس المشكلة 

عندما احذف تجاهل الخطأ يظهر بالطريقة التالية الخطأ 

(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

جربت الكود بيطلع لي خطأ آخر مع ان الرن تايم محمل معي 2010 محمل معي 

ملاحظة : الأوفس الذي معي 2019

(11-11-22, 05:24 PM)يوسف العزير كتب : [ -> ]جربت الكود بيطلع لي خطأ آخر مع ان الرن تايم محمل معي 2010 محمل معي 

ملاحظة : الأوفس الذي معي 2019

http://vb4arb.com/vb/thread-33014.html

(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

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

(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

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

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

(11-11-22, 06:16 PM)odai كتب : [ -> ]الكود تبعك انا اقتبسته وصححته باللون الاحمر
ارجع لكودك الاول وحاول فيه بعد وضع العلامه \  قبل اسم الملف

هذا ليس الكود الخاص بي الكود الخاص بي هذا 

            Dim AccessDB As Object
            AccessDB = CreateObject("Access.Application")
            AccessDB = OpenCurrentDatabase(Application.StartupPath + "\Interface system.accdb", False, "123456")
            Close()

---

            Dim AccessDB As Object
            AccessDB = CreateObject("Access.Application") 'الخطأ يظهر بهذا السطر لا يمكن إنشاء مكون Active X
            AccessDB = OpenCurrentDatabase(Application.StartupPath + "\Interface system.accdb", False, "123456")
            Close()

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

(11-11-22, 06:16 PM)odai كتب : [ -> ]الكود تبعك انا اقتبسته وصححته باللون الاحمر
ارجع لكودك الاول وحاول فيه بعد وضع العلامه \  قبل اسم الملف

هذا ليس الكود الخاص بي الكود الخاص بي هذا 

            Dim AccessDB As Object
            AccessDB = CreateObject("Access.Application")
            AccessDB = OpenCurrentDatabase(Application.StartupPath + "\Interface system.accdb", False, "123456")
            Close()

---

            Dim AccessDB As Object
            AccessDB = CreateObject("Access.Application") 'الخطأ يظهر بهذا السطر لا يمكن إنشاء مكون Active X
            AccessDB = OpenCurrentDatabase(Application.StartupPath + "\Interface system.accdb", False, "123456")
            Close()

نجح معي الكود

Dim AccessDB As Object
AccessDB = CreateObject("Access.Application")
AccessDB.Visible = True
AccessDB.OpenCurrentDatabase(Application.StartupPath & "\Interface system.accdb", False, "123456")