اهلا اخي الكريم ، تستطيع جلب مسار الوندوز مهما كان اصداره بواسطة هذه الدالة التي ترجع لك مسار مجلد الوندوز ، ثم بعد ذلك أضف إسم مجلد السيستم٣٢ أو إسم مجلد السيستم على المسار المرجع لك ، توضيح :
كود :
Dim zWindowsDirPath As String
Dim zDataBasePath As String
zWindowsDirPath = Environ$("windir")
zWindowsDirPath = Trim$(zWindowsDirPath)
IF Right$(zWindowsDirPath , 1) <> "\" Then
zWindowsDirPath = zWindowsDirPath & "\"
End IF
(12-11-14, 08:41 PM)Ahmed_Mansoor كتب : اهلا اخي الكريم ، تستطيع جلب مسار الوندوز مهما كان اصداره بواسطة هذه الدالة التي ترجع لك مسار مجلد الوندوز ، ثم بعد ذلك أضف إسم مجلد السيستم٣٢ أو إسم مجلد السيستم على المسار المرجع لك ، توضيح :
كود :
Dim zWindowsDirPath As String
Dim zDataBasePath As String
zWindowsDirPath = Environ$("windir")
zWindowsDirPath = Trim$(zWindowsDirPath)
IF Right$(zWindowsDirPath , 1) <> "\" Then
zWindowsDirPath = zWindowsDirPath & "\"
End IF
zDataBasePath = zWindowsDirPath & "system\DB.dll"
اخي العزيز
السلام عليكم ورحمة وبركاته
انا جربت الفكره على برنامجي المرفق ولم تنجح نامل المساعده إذا امكن ذلك ؟؟
والله يحفظكم ويرعاكم ويجعل الجنه داركم الاخير
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
كما ذكرت لك في ردي السابق , ولكن ربما نظام التشغيل لديك فيستا أو سفن أو ثمانية , لذلك لن يتصل بقاعدة البيانات إذا لم تشغل البرنامج كمسئول لكي يأخذ صلاحيات المدير لأن قاعدة البيانات في قرص السي .
(12-11-14, 10:37 PM)Ahmed_Mansoor كتب : كما ذكرت لك في ردي السابق , ولكن ربما نظام التشغيل لديك فيستا أو سفن أو ثمانية , لذلك لن يتصل بقاعدة البيانات إذا لم تشغل البرنامج كمسئول لكي يأخذ صلاحيات المدير لأن قاعدة البيانات في قرص السي .
----------------------------------------------------------------------------
اخي العزيز
السلام عليكم ورحمة وبركاته
لك مني الف شكر وتقدير على ما تقدمه من دعم والله يحفظكم ويرعاكم ويجعل الجنه داركم الاخير
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ