كود صغييييييير للتعديل_بلييييييييييييز

مغلق

بدأه الحسناء في 18 ديسمبر 2003 · 3 رد · 739 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

#118 ديسمبر 2003 في 22:28 صاحب الموضوع

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

اتمني من الجميع المشاركه والمساعده لتعم الفائده

هذا الكود يعمل علي مسح كامل محتويات جدول قاعدة بينات اكسس مرتبطة عن طريق

داتا كنترول والعيب في هذا الكود انه لا يتعرف علي مكان الداتا من الابلكيشن باث (app.path) مسار البرنامج

وانما ياخذ المسار كاملا من مكان تواجد الداتا كما هوا واضح في الكود الشئ الذي سوف يتسبب فس مشكلة عند تنصيب البرنامج علي جهاز اخر

والمطلوب هوا ان يقوم الكودد بتفريغ الجدول من قاعدة البينات من موقع App.path

مسار البرنامج

Dim DB1 As Database
Set DB1 = OpenDatabase("D:\الفيجول بيسك\toolpar\MainActions.mdb")
DB1.Execute "delete * from TempTap1"
xGrid1.Refresh

شكرا لكم

اختكم الحسناء

#218 ديسمبر 2003 في 23:57

ارجو وضع المثال بشكل افضل فهذا لن يحل المشكلة ربما هذا برايي.

يعني المثال الذي يحدث فيه الخطأ وليس المثال الذي يعمل.

#320 ديسمبر 2003 في 22:08

يا اخواني هذا المثال يعمل

ولكن لا يعمل اذا غيرت مسار البرنامج او غيرت الجهاز المستخدم

وسبب ذلك انه يعتمد علي مكان قاعدة البنات بالتحديد ولكن اذا كان يعتمد علي مكان البرنامج

app.pat فسوف يتكمن من ايجاد قاعدة البنات ايا كان البرنامج في جهاز اخر او مسار اخر

ارجو منكم الافادة سريييعا رجاء خاص

#420 ديسمبر 2003 في 22:55

أختي الكريمه

لا أدري إن كان البرنامج صمم بالفيجوال بيسك أم بلغة تطبيقات الفيجوال VBA

ولكن لكتابته بالفيجوال يكون بالطريقة التالية

Dim DB1 As Database
Set DB1 = OpenDatabase(App.Path & "\MainActions.mdb")
DB1.Execute "delete * from TempTap1"
xGrid1.Refresh

أما إذا كان بالأكسيس أي VBA

Dim DB1 As Database
Set DB1 = OpenDatabase (CurrentDB)
DB1.Execute "delete * from TempTap1"
xGrid1.Refresh

تحياتي

OMANI FOR EVER

-------------------------------------------------

هذا الموضوع مغلق.

عدد الزوار حالياً