[ѕαLσσσмx]

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

PHP كود :

Dim DMCDS AS New DataSet 


هنا نعلن كائن DataSet
هذا كائن يأخذ البيانات التى استعلمنا عنها واتينها بها لنتعامل معها ويكون جداول بداخله تطابق تلك الجداول التى اتينا بها

PHP كود :

Dim Row AS DataRow 


هذا الكائن طبع من اسمه واضح عبارة عن كائن صف
سنجعل هذا الكائن يحتوى الصف الذى سنتعامل معه
هنا قمنا بالفعل بملىء DataSet بالجدول المطلوب التعديل عليه

PHP كود :

Row=DMCDS.Tables("Mt").NewRow 


وهنا عينا قيمة الكائن Row الذى أعلنا عنه على إنه صف جديد فى الكائن DataSet التى تحتوى الجدول الذى نتعامل معه

PHP كود :

Row.Item("MtNum")="RR" 


هنا نعين قيمة حقل معين للصف عن طريق متغير

PHP كود :

Row.Item("Dscrp")=TextBox.Text 


هنا نعين قيمة حقل معين للصف عن طريق مربع نص

PHP كود :

DMCDS.Tables("Mt").Rows.Add(Row) 


هنا نضيف قيمة الصف الجديد للـ DataSet
كل مافعلناه هنا نطبق على كائن DataSet الذى يملك نسخة من البيانات التى نتعامل معها
اى لم نقم بتطبيق التغيرات على الـ DataBase

PHP كود :

DMCAdapter.Update(DMCDS,"Mt") 


فى هذه الخطوة الاخيرة نقوم بتطبيق التغيرات على الـ DataBase فعليا
منقول