معالجة ملف عن طريق الكود

لنفرض أنك قمت بإنشاء الاتصال عن طريق الكود التالي

Set cn = New ADODB.Connection

في هذه الحالة يمكنك إغلاق قاعدة البيانات عن طريق الكود التالي

cn.Close

أرجو أن أكون قد أفدتك

أيضا اذا لم يكن هذا هو ما تريد فيشرفني مساعدتك وشكرا

الإبن الحبيب مبرمج2001 حفظه الله

إلبيك كود حصلت عليه من زميل .. و لكنه لم ينجح .. لأنه يعطيني القاعدة لا زالت مفتوحة ..

Chaine1 = NumFichEcole

Separer_Rep_Fich Chaine1, Chaine2

SchoolNum = TabInit1("SchoolID")

Db.Close

Set Db = Nothing

Pos = InStr(1, Chaine1, ".mdb")

If Dir(Chaine2 & Mid(Chaine1, 1, Pos - 1) & ".ldb") = Mid(Chaine1, 1, Pos - 1) & ".ldb" Then

MsgBox "لا يمكن الضغط... الملف قيد الإستخدام !", vbExclamation + vbMsgBoxRtlReading + vbMsgBoxRight, "خطأ..."

Screen.MousePointer = ccDefault

endif

حفظك الله

محبك / أبو زيد

عزيزي أبو زيد ،،

السلام عليكم

ممكن لو سمحت توضح لي أكثر ماذا تريد فعله بالضبط لان الكود الذي ذكرت غير واضح وشكرا

اريد ضغط الملف لإرساله بالبريد الإلكتروني .. فأريد التأكد من أن الملف ليس مفتوحا .. لكي تتم عملية الضغط .. اسم الملف قد يختلف من مدرسة الى مدرسة أخرى أو مصلحة حكومية .. فلابد من وضع الملف في متغير ..

فمثلا الملف مفتوح .. يجب أن يغلق ..

الملف مضغوط من قبل يحذف .. و هكذا

الملف قد يكون مفتوح بالآكسس و البرنامج مفتوح أيضا ففي هذه الحالة .. مهما عملت close .. لن يفيد حتى تغلق الآكسس و علامة فتح الملف الإمتداد .. school.ldb

حفظك الله

محبك أبو زيد