الاخوه الكرام
السلام عليكم ورحمة وبركاته
كيف اجعل برنامج المرفق يعمل وقاعدة البيانات مجودة ضمن ملف system الوندز ؟؟
ملاحظه هام جداً
يعمل وقاعدة البيانات مجودة ضمن ملف system الوند مهما كان إصدارات الوندز
ارجو من الله المساعده والله يحفظكم ويرعاكم
اهلا اخي الكريم ، تستطيع جلب مسار الوندوز مهما كان اصداره بواسطة هذه الدالة التي ترجع لك مسار مجلد الوندوز ، ثم بعد ذلك أضف إسم مجلد السيستم٣٢ أو إسم مجلد السيستم على المسار المرجع لك ، توضيح :
كود :
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, 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 كتب : [ -> ]كما ذكرت لك في ردي السابق , ولكن ربما نظام التشغيل لديك فيستا أو سفن أو ثمانية , لذلك لن يتصل بقاعدة البيانات إذا لم تشغل البرنامج كمسئول لكي يأخذ صلاحيات المدير لأن قاعدة البيانات في قرص السي .
----------------------------------------------------------------------------
اخي العزيز
السلام عليكم ورحمة وبركاته
لك مني الف شكر وتقدير على ما تقدمه من دعم والله يحفظكم ويرعاكم ويجعل الجنه داركم الاخير