+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : كود فتح ملف اكسس من خلال الفيجول 6 (/showthread.php?tid=25898)
كود فتح ملف اكسس من خلال الفيجول 6 - abosara - 28-07-18
لو سمحتم أريد كود فتح قاعدة بيانات أكسس محمية بكلمة سر عن طريق الفيجوال بيسيك باستخدام ShellExecute
وشكرا
RE: كود فتح ملف اكسس من خلال الفيجول 6 - GameOver - 28-07-18
هذا التعديل
كود :
App.Path & "\" & "DBF_01.mdb /pwd password"وهذا التعديل لو كانت كلمة المرور بها مسافة
كود :
App.Path & "\" & "DBF_01.mdb /pwd " & chr(34) & "password" & chr(34)RE: كود فتح ملف اكسس من خلال الفيجول 6 - abosara - 28-07-18
شكرا أخى الكريم ولكن للاسف الكود لا يعمل وفيمت يلى الكود كامل يفتح ملف أكسس بشرط أنه لا توجد باسورد عليه
ShellExecute Me.hwnd, "open", App.Path & " \" & "DBF_01.mdb", "", "", 3
المطلوب هنا اضافة كلمة السر وشكرا
RE: كود فتح ملف اكسس من خلال الفيجول 6 - GameOver - 28-07-18
فيه عندك خطأ بوجود مسافة في الجزء "\ "
هذا التعديل
كود :
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), "", "", 3RE: كود فتح ملف اكسس من خلال الفيجول 6 - abosara - 28-07-18
عفوا اخى الكريم
تم اضافة الملف المطلوب فتحه وكلمة السر 12345 برجاء تجربة الكود اللازم لتشغيل هذا الملف وشكرا
[attachment=18953][attachment=18953]
RE: كود فتح ملف اكسس من خلال الفيجول 6 - GameOver - 28-07-18
تفضل جرب الآن
كود :
ShellExecute Me.hwnd, "open", App.Path & "\" & "DBF_01.mdb /pwd 12345", "", "", 3RE: كود فتح ملف اكسس من خلال الفيجول 6 - abosara - 28-07-18
للاسف الكود لايعمل - مع ملاحظة أنه البرنامج لايعطى رسالة خطأ - ولم يتم فتح الملف وشكرا