كيف نعمل سيت أب للبرنامج بدون مشاكل !

اقتباس

س / كيف أجعل قاعدة البيانات ترتبط تلقائي بعد عمل سيت أب ؟

هذه المشكلة ليست من الــ Setup أخي الكريم ولكن من طريفة الربط

التي تستخدمها فما هي طريقة

الربط المستخدمة ؟

أنا استخدم طريقة الربط العادية أضفت الأداة data وبعد ذلك أكتب مسار قاعدة البيانات وقمت بربط الجدول والحقول

وهذه الطريقة في كل فورم وتم الربط بشكل سليم والبرنامج يعمل في بيئة الفجوال

قاعدة البيانات ( أكسس) على القرص d وربطتها وتعمل ولكن بعد السيت أب على جهاز آخر يطلب قاعدة البيانات لأنها ليست موجودة على الجهاز الآخر أما على جهازي فهي تعمل .

** فالمفترض أن القاعدة تتحمل مع البرنامج وتكون على مساره كيف أعمل ذلك ؟ ؟

أتمنى اتضحت المشكلة !!!

السلام عليكم ورحمة الله وبركاته

عند كتابتك للبرنامج حددت مسار معين لقاعدة البيانات وبالتالى عند تحميل البرنامج على اى جهاز اخر يجب ان تكون القاعدة فى نفس المسار المحدد والا ستظهر الاخطاء ولذلك فأفضل طريقة هى تحديد مسار القاعدة ليكون نفس مسار البرنامج بهذه الصورة

Dim P$, D$
P = App.Path
If Right (p, 1) <> "\" Then P = P & "\"
D = P &"DataBaseName.mdb"

ويجب ارفاق القاعدة مع البرنامج عند اجراء عملية التحزيم ولن تواجهك اى مشاكل ان شاء الله :rolleyes:

كود الربط إذا كنت تستخدم أداة الربط Data

Data1.DatabaseName = App.Path & "/اسم قاعدة البيانات.mdb"
Data1.RecordSource = "اسم الجدول"

وكما تفضل أخي GHOST2010 يجب إرفاق قاعدة البيانات مع البرنامج عند إجراء عملية التحزيم ...

لاحقا يرجي استخدام خاصية البحث قبل طرح المواضيع لتفادي التكرار

:)

اقتباس

لاحقا يرجي استخدام خاصية البحث قبل طرح المواضيع لتفادي التكرار

قمت بالبحث لكن لم تظهر لي وصلة مناسبة .. معذرة

اقتباس

Data1.DatabaseName = App.Path & "/اسم قاعدة البيانات.mdb"

Data1.RecordSource = "اسم الجدول"

اقتباس

Dim P$, D$

P = App.Path

If Right (p, 1) <> "\" Then P = P & "\"

D = P &"DataBaseName.mdb"

برنامجي عبارة عن مسابقات ويتكون من 27 فورم تقريبا كلها مكررة

هل أعمل الكود فيها جميعها ؟؟ وهل أضعه في load

عندي مسار قاعدة البيانات (D:\V.B\MOSABAKAH\mosabakah.mdb)

لو تكرمت و تضع الكود جاهز على نفس اسم القاعدة إذا كنت متأكد بأنه سيحل المشكلة سأكون شاكر لك

وشكرا للجميع على الرد

اقتباس

هل أعمل الكود فيها جميعها ؟؟ وهل أضعه في load

لايجب وضع الكود فى كل فورم لكن يمكن كتابته مرة واحدة وذلك داخل وحدة نمطية وعمل اجراء رئيسى (Sub Main) وتعريف المتغير P , D على انها متغيرات عامة (Public) وجعل البرنامج يبدأ من هذا الاجراء

Public P$,D$
Public Sub Main()
P = App.Path
If Right (P, 1)<> "\" Then P = P & "\"
D = P &"V.B\MOSABAKAH\mosabakah.mdb"
OpenDataBase
End Sub

كما قلت سابقاً عند عمل تحزيم للبرنامج ستكون القاعدة فى نفس مسار البرنامج ولذلك يجب تغيير المسار المحدد داخل البرنامج الى مسار البرنامج كما هو موضح فى الكود , ان لم تستطع التطبيق بامكانك ارفاق البرنامج وسيتم التعديل عليه :rolleyes:

شكراااا جزيلاً لك أخي GHOST2010

كما أقدم شكر خاص للأخ ail_fahad777

قمت برفع البرنامج للجميع

فكرة البرنامج عبارة عن مسابقة ثقافية عند إجابة المتسابق على خمسة أسئلة يعتبر هو الفائز

ومرفق مع البرنامج قاعدة البيانات بإمكانك فتحها وتعديل الأسئلة ورقم الإجابة الصحيحة في الحقل (d)

لذلك افترضت أن الإجابة الصحيحة للأسئلة الفارغة رقم 1 والأسئلة عبارة عن 250 سؤال

:D طبعا لم أكتبها كلها فمعظمها فارغ فقط يشير إلى رقم السؤال ..

البرنامج متواضع جدا وبصراحة يحتاج التطوير

أتمنى أسمع آراؤكم حول البرنامج !

لتحميل البرنامج إضغط هنا