منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
محتاج مساعدة بكود فتح الأكسس من الفجول بيسك - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : محتاج مساعدة بكود فتح الأكسس من الفجول بيسك (/showthread.php?tid=37117)

محتاج مساعدة بكود فتح الأكسس من الفجول بيسك - أبو عبدالله الحلواني - 06-12-20

السلام عليكم ورحمة الله وبركاته 
لدي تطبيق أكسس محمي بكلمة مرور محتاج مساعدة لفتحه من خلال الفجول بيسك مع تمرير كلمة المرور 
أولا استخدمت هذا الكود وكان يعمل بشكل جيد بدون كلمة المرور وهذا هو الكود
كود :
   Public Sub CretAndOpen(ByVal Strpath As String)
       Dim AccessApp As Object
       AccessApp = CreateObject("Access.Application")
   
       With AccessApp
           .AutomationSecurity = 1
           .RunCommand acCmdAppMaximize
           .DoCmd.RunCommand acCmdAppMaximize
                   .OpenCurrentDatabase(Strpath)
           .docmd.runcommand(10)
       End With
       Application.Exit()
   End Sub
ولكن عند محاولة فتح قاعدة بيانات محمية بكلمة مرور يتم المطالبة بها وهذا ملا أريده وانما اريد تمرير كلمة المرور من خلال الكود أيضا وقد وجد هذا بمساعدة ميكروسوفت وحاولت التطبيق ولكن لا يحدث شئ بل لا زال الأمر علي ما هو عليه .
أرجو المساعدة من أهل الخبرة 
وجزاكم الله خيرا
قد وجدت هذا الموضوع ولكن لم أستطع فهم الكود بشكل صحيح وهذا هو رابط الموضوع
https://www.vbforums.com/showthread.php?16991-Please-I-need-help-with-OpenCurrentDatabase-method

RE: محتاج مساعدة بكود فتح الأكسس من الفجول بيسك - Anas Mahmoud - 06-12-20

اخي هذا القسم مخصص لاسئلة vb.net والاكواد التي ذكرتها vb6
نقطة اخرى لم تذكر سبب طلبك فتح برنامج الاكسس بدلا من استخدام oledb مباشرة لقراءة البيانات

RE: محتاج مساعدة بكود فتح الأكسس من الفجول بيسك - أبو عبدالله الحلواني - 06-12-20

جزاكم الله خيرا علي الاستجابة
أولا- اعذرنا ان كنت قد خلط بين الـ vb.net و vb6 فأنا مبتدأ أكاد أخطوي خطواتي الأولي
ثانيا- فأنا خبرتي بالأكسس أكثر وأنا أعمل عليه منذ فترة ولكن دعت الحاجة للتحول الي ال vb.net وكما ذكرت فأنا مبتدأ بهذا المجال لذي فأحتاج الي فتح الأكسس من حين لأخر للقيام ببعض المهام وليس ربط بيانات مع الأكسس وانما عرض نماذج وتقارير
وجزاكم الله خيرا وأحسن اليكم

RE: محتاج مساعدة بكود فتح الأكسس من الفجول بيسك - أبو عبدالله الحلواني - 06-12-20

الحمد لله تم الوصول للحل 
الكود كان يعمل طوال الوقت ولكن يبدو أني مع تأخري بالعمل كنت قد هنجت  Smile فلم ألحظ أني أدخل كلمة المرور بشكل خاطئ
الحمد لله هذا هو الكود الصحيح:

كود :
   Public Sub CretAndOpen(ByVal Strpath As String)
       On Error GoTo ErrLine
       Dim AccessApp As Object
       AccessApp = CreateObject("Access.Application")

       With AccessApp
           .AutomationSecurity = 1
           .Visible = False
           .RunCommand(10)
           .OpenCurrentDatabase(filepath:=Strpath, bstrPassword:="Put Here YouerPassword")
           .runcommand(10)
       End With
       Application.Exit()
ErrLine:
       If Err.Number <> 0 Then
           MsgBox("Sorry! i can't open: mybe the program path chinged or it not found!", MsgBoxStyle.Critical, "Can't open!")
           Application.Exit()
       End If
   End Sub


RE: محتاج مساعدة بكود فتح الأكسس من الفجول بيسك - Anas Mahmoud - 06-12-20

حسنا بعد بحث تحتاج لاضافة مرجع Reference للمكتبة Microsoft Access من COM

[attachment=26090]
[attachment=26092]

ثم يكون كود فتح البرنامج كما يلي :

كود :
   Sub OpenAccess(FileName As String, Optional Password As String = "")
       Dim oAccess As Access.Application

       'فتح البرنامج
       'Start Access and open the database.
       oAccess = CreateObject("Access.Application")
       oAccess.Visible = True
       oAccess.OpenCurrentDatabase(FileName, False, Password)

       'لتشغيل ماكرو
       'Run the macros.
       'oAccess.Run("Macro1")
       'oAccess.Run("DoKbTestWithParameter", "Hello from VB .NET Client")

       'لاغلاق البرنامج وتنظيف الذاكرة منه
       'Clean-up: Quit Access without saving changes to the database.
       'oAccess.DoCmd().Quit(Access.AcQuitOption.acQuitSaveNone)
       'System.Runtime.InteropServices.Marshal.ReleaseComObject(oAccess)
       'oAccess = Nothing
   End Sub
عذرا لم الحظ انك قمت بالرد ، حسنا سأترك المثال ربما يستفاد به الاخوة

RE: محتاج مساعدة بكود فتح الأكسس من الفجول بيسك - أبو عبدالله الحلواني - 07-12-20

جزاكم الله خيرا وبارك لكم وعليكم
أحسن الله اليك جواب شافي جعله الله في ميزان حسناتكم 
هكذا أثر الخبرة  Rolleyes