PHP كود :
Dim DMCConnection AS New SQLConnection _
("Server=AHMED\SQLEXPRESS;Database=DMC;Trusted_Connection=Yes;")
هذا الكود قد أعلنا عن كائن connection
PHP كود :
Dim DMCAdapter AS New SQLDataAdapter("SELECT *FROM Mt",DMCConnection)
هنا أعلنا عن كائن DataAdapter
نحمل كائن DataAdapter بقيمة كائن Connection وجملة الاستعلام التى ناتى عن طريقها بالبيانات التى نتاعمل معها
PHP كود :
Dim DMCCB AS New SQLCommandBuilder(DMCAdapter)
هنا نعلن عن كائن CommandBuilder هذا الكائن مسئول عن الاإضافة والتعديل والحذف فى الـ DataBase
نحمل فيه الكائن DataAdapter
هنا نعلن كائن DataSet
هذا كائن يأخذ البيانات التى استعلمنا عنها واتينها بها لنتعامل معها ويكون جداول بداخله تطابق تلك الجداول التى اتينا بها
هذا الكائن طبع من اسمه واضح عبارة عن كائن صف
سنجعل هذا الكائن يحتوى الصف الذى سنتعامل معه
هنا قمنا بالفعل بملىء DataSet بالجدول المطلوب التعديل عليه
PHP كود :
Row=DMCDS.Tables("Mt").NewRow
وهنا عينا قيمة الكائن Row الذى أعلنا عنه على إنه صف جديد فى الكائن DataSet التى تحتوى الجدول الذى نتعامل معه
هنا نعين قيمة حقل معين للصف عن طريق متغير
PHP كود :
Row.Item("Dscrp")=TextBox.Text
هنا نعين قيمة حقل معين للصف عن طريق مربع نص
PHP كود :
DMCDS.Tables("Mt").Rows.Add(Row)
هنا نضيف قيمة الصف الجديد للـ DataSet
كل مافعلناه هنا نطبق على كائن DataSet الذى يملك نسخة من البيانات التى نتعامل معها
اى لم نقم بتطبيق التغيرات على الـ DataBase
PHP كود :
DMCAdapter.Update(DMCDS,"Mt")
فى هذه الخطوة الاخيرة نقوم بتطبيق التغيرات على الـ DataBase فعليا
منقول