ماهو الخطأ في هذا الكود

هناك خطأين في الكود المرفق، و هما:

1- قبل استخدام المتغير db يجب أن تنفذ التالي:

   Set db = New Connection

2- هناك خطأ إملائي في النص المسند للخاصية Provider (حرف الـ O في كلمة microsoft) انظر التالي:

   'db.Provider = "microsft.jet.oledb.4.0;"
   db.Provider = "Microsoft.Jet.OLEDB.4.0"

شكرا ياخي للرد

اولا بالنسبة للكود الاول حاولت ان استخدمه لكنه فشل

بالنسبة للخطأ الاملائي قمت بتعديله والمشكلة كما هي

ارجو التصحيح في المرفق وارفاقه مرة اخري بعد التصحيح

New_Folder.zip

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

:) اخي العزيز لقد تم تصليح الخطأ والكود يعمل بنجاح بس يا ريت لما ترفق مشروع او مثال المرة القادمة لا ترفق قاعدة البيانات وهيا فارغة يا ريت تكتب فيها شوية بيانات عشان نقدر نكمل لك المثال علي اكمل وجه . :huh:

:blink: الخطأ هو :

- كان في جملة البروفيدر لمايكروسوت اكسيس بس انا كتت لك كود يشمل او يخصتر السطرين الا انتا كنت كتهم وعفوا لم يكن الخطا في كلمة مايكروسوفت

- جملة اختصار الكودين : -

cn.Open "provider=microsoft.jet.oledb.4.0;data source=maktba.mdb"

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

Max_bayne.rar

ولا يهمك هذا المرفق بعد التعديل.

updated_NewFolder.zip

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

ولكن الاخ max bayne ذكرت الكود الاتي:

كود:

if cn.state=1 then 
cn.close
end if

مامعني cn.state=1 هل تعني ان 1 قيمة مخزنة في النظام

وشكرااااااااااااااااااااااااااااااااااااااااااااااااااا