طلب تفسير وشرح لكود

تم تغير عنوان الموضوع ليتناسب معى محتواه, ثم نقل إلى قسم VB .

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

إلى كل من يجد في نفسه القدرة عاى تفسير هذا الكود...

تكفون

يا شباب ارجو المساعدة ....فموضوعي جداً ضروري لي ....

فأرجو الرد.....بسرعة

Dim db As New ADODB.Connection
 Dim rs As New ADODB.Recordset

في هذه الحالة اخي الكريم ستقوم بانشاء اداة ADO من خلال الكود

الجملة الاولى تنشئ الاداة نفسها وتسميها db

الجملة الثانية تنشئ recordset ومن خلالها يمكنك التعامل مع محتويات الجداول مثلا ... الUpdate , move , ...etc

===============

 On Error GoTo 1

هذه الجملة معناها العام عند حدوث خطا فتوجه الى label معين او الانتقال الى السطر التالي من الكود

ولكن لم افهم القصد من ( 1 )

===============

     Combo1.SetFocus

اذا كان ال combo عبارة عن null اي لا توجد قيمة عندها يتم وضع ال mouse cursor على ال combo نفسها .... المقصود هو تفعيل هذه الاداة او جعلها محط النظر او اكتابة

===============

If db.State = adStateOpen Then db.Close
    db.Provider = "Microsoft.JET.OLEDB.4.0;"
    db.Open Application.CurrentProject.FullName

اذا كانت الداتا بيس مفتوحة يتم اغلاقها

والجمله الثانية تحدد ال provider

والجملة التالية تفتح appliction جديد

=============

If rs.State = adStateOpen Then rs.Close
    rs.Open "SELECT * FROM [tblallcourses] WHERE [Employee ID] =" & Trim(Combo1) & "", db, adOpenStatic, adLockPessimistic

يتم غلق اي جدول مفتوح

فتح جدول على حسب ال query : يختار الكل من الجدول tblallcourses حيث ال feild يساوي قيمة ال combo

==============

هذا ما وجدته اخي العزيز ... وقد شرحت ما بدا لي على السريع ...

واتمنى من الاخوة اتمام الناقص