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