+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : هل يمكن ان اضع قاعدة بيانات برنامجي في system الوندز والعمل عليها عن طريق برنامجي بدون مشكل ؟ (/showthread.php?tid=9253)
هل يمكن ان اضع قاعدة بيانات برنامجي في system الوندز والعمل عليها عن طريق برنامجي بدون مشكل ؟ - softmail8 - 13-06-13
الساده الكرام
السلام عليكم ورحمة وبركاته
هل يمكن ان اضع قاعدة بيانات برنامجي في system الوندز والعمل عليها عن طريق برنامجي بدون مشكل في الاتصال بقاعدة البيانات؟؟
ملاحظه هامه جداً:-
انا لا اريد تحديد مسار معين في كود ربط قاعدة ابيانات برنامجي الى system
الماذ؟
نفرض انا المستخدم الاول مثبت الوندز على محرك c
والمستخدم الثاني مثبت الوندز على محرك اسمه G
سوف يحصل مشكل في البرنامج عند تحديد محرك معين في الكود
من كان لديه فكره امل من الله ثم من الجميع المساعدة
والله يحفظكم ويرعاكم
هل يمكن ان اضع قاعدة بيانات برنامجي في system الوندز والعمل عليها عن طريق برنامجي بدون مشكل ؟ - عبدالله الصافي - 13-06-13
ممكن أن تضع قاعدة البينات في مجلد البرنامج وتحدد مسارها بدالة app فمهما كانت نسخة النظام لا يحدث مشكلة لأنه سوف يتم الربط بالقاعدة التي تحدد اسمها بمجلد البرنامج فقط
هل يمكن ان اضع قاعدة بيانات برنامجي في system الوندز والعمل عليها عن طريق برنامجي بدون مشكل ؟ - softmail8 - 13-06-13
عبدالله الصافي كتب :ممكن أن تضع قاعدة البينات في مجلد البرنامج وتحدد مسارها بدالة app فمهما كانت نسخة النظام لا يحدث مشكلة لأنه سوف يتم الربط بالقاعدة التي تحدد اسمها بمجلد البرنامج فقط
------------------------------------------------------------
استاذي العزيز السوال كان حول
هل يمكن ان اضع قاعدة بيانات برنامجي في system الوندز والعمل عليها عن طريق برنامجي بدون مشكل ؟
ليس عن مجلد البرنامج
والله يحفظكم ويرعاكم
هل يمكن ان اضع قاعدة بيانات برنامجي في system الوندز والعمل عليها عن طريق برنامجي بدون مشكل ؟ - عبدالله الصافي - 13-06-13
أخي الكريم عند عمل setup لبرنامجك سوف ينشيء له مجلد في برتشن الووندوز في مجلد programfiles .
أظن أن ما تقصده هذا أم تقصد أن تضع قاعدة البينات في مجلد system32 gg,kللوندوز.
وما الفائدة من ذلك ؟ علي العموم إذا كان ما تقصده هو مجلد system32 فأخبرني أعطيك كود استخراج مجلد system او كود معرفة برتشن النسخة
هل يمكن ان اضع قاعدة بيانات برنامجي في system الوندز والعمل عليها عن طريق برنامجي بدون مشكل ؟ - VB_Coder - 14-06-13
السلام عليكم
- إستخدم هذه الدالة والتي تجلب لك مسار مجلد الوندوز في أي مكان تم تثبيته :
كود :
MsgBox Environ("windir") & "\system32"- تحياتي .
هل يمكن ان اضع قاعدة بيانات برنامجي في system الوندز والعمل عليها عن طريق برنامجي بدون مشكل ؟ - softmail8 - 14-06-13
VB_Coder كتب :السلام عليكم
- إستخدم هذه الدالة والتي تجلب لك مسار مجلد الوندوز في أي مكان تم تثبيته :
كود :
MsgBox Environ("windir") & "\system32"
- تحياتي .
----------------------------------------------------------------------------------
استاذي العزيز : VB_Coder
السلام عليكم ورحمة وبركاته
نامل من الله ثم منكم التعديل على برنامجي المرفق حتى افهم منك اكثر ؟؟
والله يحفظكم ويرعاكم ويجعلالجنة داركم الاخير
هل يمكن ان اضع قاعدة بيانات برنامجي في system الوندز والعمل عليها عن طريق برنامجي بدون مشكل ؟ - VB_Coder - 14-06-13
السلام عليكم
- اخي العزيز ، مايحتاج مثال ، لنفترض ان اسم قاعدة البيانات هو db1.mdb فقط غير مسار قاعدة البيانات في جملة الاتصال بدل ماتكون مثلا :
كود :
App.Path & "\db1.mdb"ستصبح هكذا :
كود :
Environ("windir") & "\system32\db1.mdb"- كود حدث اللود للفورم الموجود في المثال عدله ليصبح هكذا , طبعا بعد ما تضع ملف قاعدة البيانات في مجلد الsystem32 :
كود :
Private Sub Form_Load()
Set db = DBEngine.OpenDatabase(Environ("windir") & "\system32\db1.mdb", True, False, ";Pwd =" & "sameer")
Set rs = db.OpenRecordset("soft", 2)
Text1.Text = rs.Fields!ID
Text2.Text = rs.Fields!Name
Text3.Text = rs.Fields!Phone
End Sub- تحياتي .
هل يمكن ان اضع قاعدة بيانات برنامجي في system الوندز والعمل عليها عن طريق برنامجي بدون مشكل ؟ - softmail8 - 15-06-13
VB_Coder كتب :السلام عليكم
- اخي العزيز ، مايحتاج مثال ، لنفترض ان اسم قاعدة البيانات هو db1.mdb فقط غير مسار قاعدة البيانات في جملة الاتصال بدل ماتكون مثلا :
كود :
App.Path & "\db1.mdb"
ستصبح هكذا :
كود :
Environ("windir") & "\system32\db1.mdb"
- كود حدث اللود للفورم الموجود في المثال عدله ليصبح هكذا , طبعا بعد ما تضع ملف قاعدة البيانات في مجلد الsystem32 :
كود :
Private Sub Form_Load()
Set db = DBEngine.OpenDatabase(Environ("windir") & "\system32\db1.mdb", True, False, ";Pwd =" & "sameer")
Set rs = db.OpenRecordset("soft", 2)
Text1.Text = rs.Fields!ID
Text2.Text = rs.Fields!Name
Text3.Text = rs.Fields!Phone
End Sub
- تحياتي .
-----------------------------------------
استاذي العزيز
السلام عليكم وحمة وبركاته
لكم مني جزيل الشكر والتقدير على تقدم الدعم الفني والله يحفظكم ويرعاكم
ولكم مني فائق الاحتارام والتقدير