الكود:

Private Sub Command1_Click()

MsgBox Environ("SystemRoot")

End Sub


محمد يوسف كتب:يمكنك استحدام الوظيفية Environ للحصول على مسار مجلد النظام SystemRoot اين كان إصدار الويندوز و بالتالى يمكنك نسخ قاعدة بياناتك الى هذا المجلد 

و اليك مثال بسيط لكيفية استخدام تلك الوظيفة للحصول على مسار النظام لديك

الكود:

Private Sub Command1_Click()

MsgBox Environ("SystemRoot")

End Sub


الكود:

Global pathdata As String

الكود:

pathdata = Environ("SystemRoot")

الكود:

Set db = OpenDatabase(pathdata & "\db2.mdb", 2)

محمد يوسف كتب:_فى البداية سنقوم بوضع قاعدة البيانات فى مجلد النظام WINDOWS

_ بعد ذلك نقوم بالاعلان عن متغير نصى لتخزين مسار مجلد النظام فية كما يلى :

الكود:

Global pathdata As String

_ فى حدث التحميل للنافذة نقوم بالحصول على مسار النظام باستخدام الوظيفة Environ و تخزينها فى المتغير الذى قمنا بالاعلان عنه على النحو التالى :

الكود:

pathdata = Environ("SystemRoot")

_ أخير نقوم بكتابة نص الاتصال بقاعة البيانات مع تمرير المتغير الذى تم تخزين مسار النظام فيه على النحو التالى :

الكود:

Set db = OpenDatabase(pathdata & "\db2.mdb", 2)

و المشروع كما فى المثال التالى :

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

محمد يوسف كتب:صراحة لم اجرب الكود على  7 او8 ....لكن اوعدك اجربها اليوم عليهما و اخبرك بالتيجة والحل ...فارجوا المعذرة للتاخير  

محمد يوسف كتب:الاخ الافضل انا قمت بتجربة الكود على ويندوز 7 و كان يعمل معى بشكل جيد و اليك صورة مشروعك وهو متصل بقاعجة البيانات الموجود فى مجلد النظام لويندوز 7