تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
محتاج مساعدة بكود فتح الأكسس من الفجول بيسك
#1
السلام عليكم ورحمة الله وبركاته 
لدي تطبيق أكسس محمي بكلمة مرور محتاج مساعدة لفتحه من خلال الفجول بيسك مع تمرير كلمة المرور 
أولا استخدمت هذا الكود وكان يعمل بشكل جيد بدون كلمة المرور وهذا هو الكود
كود :
   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?...ase-method
الرد
تم الشكر بواسطة:
#2
اخي هذا القسم مخصص لاسئلة vb.net والاكواد التي ذكرتها vb6
نقطة اخرى لم تذكر سبب طلبك فتح برنامج الاكسس بدلا من استخدام oledb مباشرة لقراءة البيانات
الرد
تم الشكر بواسطة:
#3
جزاكم الله خيرا علي الاستجابة
أولا- اعذرنا ان كنت قد خلط بين الـ vb.net و vb6 فأنا مبتدأ أكاد أخطوي خطواتي الأولي
ثانيا- فأنا خبرتي بالأكسس أكثر وأنا أعمل عليه منذ فترة ولكن دعت الحاجة للتحول الي ال vb.net وكما ذكرت فأنا مبتدأ بهذا المجال لذي فأحتاج الي فتح الأكسس من حين لأخر للقيام ببعض المهام وليس ربط بيانات مع الأكسس وانما عرض نماذج وتقارير
وجزاكم الله خيرا وأحسن اليكم
الرد
تم الشكر بواسطة:
#4
Wink 
الحمد لله تم الوصول للحل 
الكود كان يعمل طوال الوقت ولكن يبدو أني مع تأخري بالعمل كنت قد هنجت  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
الرد
تم الشكر بواسطة:
#5
حسنا بعد بحث تحتاج لاضافة مرجع Reference للمكتبة Microsoft Access من COM

   
   

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

كود :
   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

عذرا لم الحظ انك قمت بالرد ، حسنا سأترك المثال ربما يستفاد به الاخوة


الملفات المرفقة
.zip   OpenAccessApplicationWithPassword.zip (الحجم : 90.82 ك ب / التحميلات : 8)
الرد
تم الشكر بواسطة: أبو عبدالله الحلواني
#6
جزاكم الله خيرا وبارك لكم وعليكم
أحسن الله اليك جواب شافي جعله الله في ميزان حسناتكم 
هكذا أثر الخبرة  Rolleyes
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن مساعدة فى كود البحث محمد فوزى محمد 1 197 08-04-21, 10:28 PM
آخر رد: messry
  [سؤال] كيف يتم حل مشكلة [ net framework ] في فجول بيسك 2019 .. ,والتخلي عن NET 5.0 Vimtos 4 383 31-03-21, 12:00 AM
آخر رد: Nena
  [VB.NET] اريد مساعدة في حل الكود asrar 6 743 27-03-21, 11:08 PM
آخر رد: asrar
Question [VB.NET] مساعدة ضرورية ارجوكم saqaf 1 92 27-03-21, 04:54 AM
آخر رد: علي بنيان
  [VB.NET] مساعدة: مع اداة print document الارقام تطبع انجليزى مع ويندز 8 أو 10 فقط هل من حل؟ ym_a11 3 172 24-03-21, 11:07 PM
آخر رد: أبو عبدالله الحلواني
  [سؤال] ازاي اقدر اربط الفجوال بيسك بالاجهزه الخارجية رضوان الجماعي 1 173 24-03-21, 09:09 PM
آخر رد: أبو عبدالله الحلواني
  فيجوال بيسك 2008 nourmandour 3 178 21-03-21, 09:15 PM
آخر رد: عبد الهادي بهاب
  ممكن مساعدة alhaj1982 1 142 19-03-21, 10:20 PM
آخر رد: 3booody
  [سؤال] لماذا عندما أفتح برنامج الفجول بيسك يظهر هذا الشريط أبو عبدالله الحلواني 0 151 19-03-21, 09:17 PM
آخر رد: أبو عبدالله الحلواني
  محتاج التعديل علي الكود اليوم السابع 2 253 19-03-21, 04:02 AM
آخر رد: اليوم السابع

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم