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

نسخة كاملة : كود فتح ملف اكسس من خلال الفيجول 6
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
لو سمحتم أريد كود فتح قاعدة بيانات أكسس محمية بكلمة سر عن طريق الفيجوال بيسيك باستخدام ShellExecute
وشكرا
هذا التعديل
كود :
App.Path & "\" & "DBF_01.mdb /pwd password"


وهذا التعديل لو كانت كلمة المرور بها مسافة
كود :
App.Path & "\" & "DBF_01.mdb /pwd " & chr(34) & "password" & chr(34)
شكرا أخى الكريم ولكن للاسف الكود لا يعمل وفيمت يلى الكود كامل يفتح ملف أكسس بشرط أنه لا توجد باسورد عليه
ShellExecute Me.hwnd, "open", App.Path & " \" & "DBF_01.mdb", "", "", 3
المطلوب هنا اضافة كلمة السر وشكرا
فيه عندك خطأ بوجود مسافة في الجزء "\ "

هذا التعديل
كود :
ShellExecute Me.hwnd, "open", App.Path & "\" & "DBF_01.mdb /pwd password", "", "", 3


وهذا التعديل لو كانت كلمة السر بها مسافة
كود :
ShellExecute Me.hwnd, "open", App.Path & "\" & "DBF_01.mdb /pwd " & chr(34) & "password" & chr(34), "", "", 3
عفوا اخى الكريم
تم اضافة الملف المطلوب فتحه وكلمة السر 12345 برجاء تجربة الكود اللازم لتشغيل هذا الملف وشكرا

[attachment=18953][attachment=18953]
تفضل جرب الآن
كود :
ShellExecute Me.hwnd, "open", App.Path & "\" & "DBF_01.mdb /pwd 12345", "", "", 3
للاسف الكود لايعمل - مع ملاحظة أنه البرنامج لايعطى رسالة خطأ - ولم يتم فتح الملف وشكرا