3 - الكائن DataAdapter :
في الدروس السابقة وضحنا العمل الذي يقوم به هذا الكائن ، حيث قلنا حينها أنه " بمثابة وسيط بين مجموعة البيانات "DataSet " ومصادر البيانات "Data Sources" ، حيث يقوم DataAdapter بعملية فتح الاتصال بقاعدة البيانات و استيراد وتصدير البيانات من و إلى مصدرها الأساسي ، وبعد تخزين البيانات في DataSet ، فإنها تصبح منفصلة عن مصدر البيانات ، لان الكائن DataAdapter يقوم بشكل تلقائي أيضاً بقطع الاتصال بقاعدة البيانات " ، ولكن هذا ليس كل شيء ، ما زلنا نحتفظ بالجزء الأفضل لدرس اليوم ...
يستخدم هذا الكائن كائنان صديقان تعرفنا عليهما فيما سبق ، وهما : الكائن OleDbConnection لإدارة اتصاله بقاعدة البيانات ( من فتح الاتصال و غلق الاتصال ) ، و الكائن OleDbCommand لإدارة استعلامات SQL البنيوية التي يجب تنفيذها ( من تحديد أو إضافة أو تعديل أو حذف ) . ولتجهيز هذا الكائن للعمل هناك أكثر من طريقة وجميعها جيده ، فقط على المبرمج أن يختار ما يناسبه منها ، والكود التالي يبين كيف يتم إنشاء ملائم بيانات ، واستخدام الكائن OleDbConnection لإدارة اتصاله بقاعدة البيانات ، وكذلك استخدام الكائن OleDbCommand لإدارة استعلام SQL والذي يقوم بتحديد مجموعة من الحقول المتوفرة في إحدى جداول قاعدة البيانات التي تم الاتصال بها ، وكذلك سوف نستخدم إحدى خصائص الكائن DataAdapter وهي selectCommand ولكنا لن نزعج أنفسنا بها هنا ، وسوف نشرحها بالتفصيل في وقت لاحق ، فقط نحتاج إلى القليل من التركيز لتأمل الكود التالي ..
' create the ConnectionString.
Dim selectConnection As OleDbConnection = New OleDbConnection _
("Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=|DataDirectory|\Note.mdb;" _
& "User Id=admin;" _
& "Jet OLEDB:Database Password=ado.net;")
' create the selectCommand.
Dim selectCommand As OleDbCommand = New OleDbCommand("select * FROM Information")
Dim instance_adapter As New OleDbDataAdapter()
instance_adapter.selectCommand = selectCommand
instance_adapter.selectCommand.Connection = selectConnection
ويمكن اختصار الكود السابق ليصبح كما يلي ..
' create the ConnectionString.
Dim selectConnection As OleDbConnection = New OleDbConnection _
("Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=|DataDirectory|\Note.mdb;" _
& "User Id=admin;" _
& "Jet OLEDB:Database Password=ado.net;")
' create the selectCommand.
Dim selectCommand As OleDbCommand = New OleDbCommand("select * FROM Information", _ selectConnection)
Dim instance_adapter As New OleDbDataAdapter()instance_adapter.selectCommand = selectCommand
ويمكن اختصار الكود السبق أكثر من ذلك ليصبح كما يلي ..
Dim selectConnection As OleDbConnection = New OleDbConnection
_ ("Provider=Microsoft.Jet.OLEDB.4.0;"
_ & "Data Source=|DataDirectory|\Note.mdb;"
_ & "User Id=admin;Jet OLEDB:Database Password=ado.net;")
Dim selectCommandText As String = "select * FROM Information"
Dim instance_adapter As New OleDbDataAdapter(selectCommandText, selectConnection)
ويمكن اختصار الكود السبق أكثر من ذلك ليصبح كما يلي ..
Dim instance_adapter As New OleDbDataAdapter("select * FROM Information" _, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Note.mdb;" _& "User Id=admin;Jet OLEDB:Database Password=ado.net;")
ويتمتع هذا الكائن DataAdapter بالعديد من الخصائص ، ومن أهمها :-
* الخاصية Fill :
حيث تنقل البيانات من قاعدة البيانات (مصدرها الأساسي ) إلى DataSetأو DataTable ، وبعبارة أخرى القيام بعملية الاستيراد . والكود التالي يبين كيف يتم إنشاء الكائن DataAdapter وتجهيزه ، واستخدام الخاصية Fill لتعبئة الـ DataSet بالجدول المحدد في جملة الاستعلام ، ومن بعد ذلك نعرض مربع رسالة تخبرنا بعدد السجلات المتوفرة في الجدول الذي تم تخزينه في DataSet للتو ..
Dim selectCommandText As String = "select * FROM Information"
Dim selectConnection As OleDbConnection = New OleDbConnection _
("Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=|DataDirectory|\Note.mdb;" _
& "User Id=admin;" _
& "Jet OLEDB:Database Password=ado.net;")
Dim instance_adapter As New OleDbDataAdapter(selectCommandText, selectConnection)
Dim MyDs As New DataSetinstance_adapter.Fill(MyDs)
MsgBox(MyDs.Tables(0).Rows.Count, MsgBoxStyle.Information)
في الحقيقة الخاصية Fill تأخذ الكثير من المتغيرات ( البارامترات ) ، سنتحدث عن أهمها ، وهو srcTable ومن خلاله نستطيع أن نضع اسم للجدول الذي نريد تخزينه في الـ DataSet وذلك من أجل الحصول على اسم ذو معنى أوضح ، وبدون هذا المتغير سوف يأخذ هذا الجدول الاسم "Table" ، وفي مثالنا السابق نستطيع استبدال السطر التاسع بالكود التالي لإعطاء الجدول اسم "Demo" ..
instance_adapter.Fill(ds, "Demo")
ولكي نتأكد من اسم الجدول الذي قمنا بتخزينه في الـ DataSet ، نكتب الكود التالي لعرض مربع رسالة تخبرنا باسم الجدول ..
MsgBox(ds.Tables(0).TableName)
ملاحظة :- الصورة الكاملة للمتغيرات ( البارامترات ) التي تأخذها الخاصية Fill ..
instance_adapter.Fill(MyDataSet As DataSet, startRecord As Integer, maxRecords As Integer, srcTable As String)
حيث أن :
1- البارامتر MyDataSet يشير إلى الـ Dataset التي نريد تخزين الجدول بها .
2- البارامتر startRecord يشير إلى رقم السجل الذي نريد أن نبدأ به في تحميل البيانات ( يجب أن نعلم أن هذا الرقم يبدأ بالرقم صفر ويدل على السجل الأول ) من الجدول الذي نريد نسخ بياناته وتكوينه في الـ Dataset .
3- البارامتر maxRecords يشير إلى رقم السجل الذي نريد أن ننتهي عنده في تحميل البيانات من الجدول الذي نريد نسخ بياناته وتكوينه في الـ Dataset .
4- البارامتر srcTable يشير إلى الاسم المقترح للجدول الذي نريد تكوينه في الـ Dataset .
مثال :-
في المثال التالي لدينا جدول يحتوي على مجموعة من السجلات عددها 15 سجل ، ونريد أن نخزن تكوين وبيانات هذا الجدول في الـ DataSet ، ونريد أيضاً اختيار مجموعة محدده من السجلات ، على أن نبدأ من السجل الخامس ( بالطبع ترتيبه داخل السجلات يحمل الرقم 4 ) وننتهي إلى السجل العاشر ( بالطبع ترتيبه داخل السجلات يحمل الرقم 9 ) ، وبعد ذلك نريد أن نعطي هذا الجدول الاسم "Demo" ، وفي الأخير نعرض مربع رسالة تخبرنا بعدد السجلات في الجدول الذي تم تخزينه للتو ، وقيمة السجل الأول في العمود الأول من الجدول ..
Dim selectCommandText As String = "select * FROM Information order by name"
Dim selectConnection As OleDbConnection = New OleDbConnection _
("Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=|DataDirectory|\Note.mdb;" _
& "User Id=admin;" _
& "Jet OLEDB:Database Password=ado.net;")
Dim instance_adapter As New OleDbDataAdapter(selectCommandText, selectConnection)
Dim ds As New DataSet
instance_adapter.Fill(ds, 4, 9, "Demo")
Dim strMsg As String = String.Format("Count of Records In The {0} Table = {1}.{2}The " _
& "First Value In The second Column Is : {3} .", _
ds.Tables(0).TableName, ds.Tables(0).Rows.Count, vbNewLine, _
ds.Tables(0).Rows(0).Item(0)
MsgBox(strMsg, MsgBoxStyle.Information)
(( يمكن تغيير الأرقام ومشاهدة النتائج المختلفة ))
* الخاصية TableMappings :عندما يختار DataAdapter بياناته من قاعدة البيانات بواسطة جملة الاستعلام للمرة الأولى ، فإنه يخزنها في الـ DataSet ضمن جدول يحمل اسم افتراضي Table بشكل تلقائي ، وأي تحميل آخر للبيانات في الـ DataSet فإنها سوف تخزن ضمن جداول تحمل اسم table1 ، Table2 ، ... وهكذا ، و هذا الاسم كما يبدو لا يدل على اسم ذو معنى واضح ، ونستطيع من خلال TableMappings تحويله إلى اسم ذو معنى أوضح ، ولعل التمثيل الذي في الصورة التالية يوضح الفكرة ...

ولكي نقوم بذلك نحتاج إلى تمرير متغيرين من نوع String للخاصية Add التابعة للخاصية TableMappings ، الأول SourceTable وهو اسم الجدول الافتراضي ، والثاني DataSetTable وهو الاسم الذي نريده للجدول الذي يجب أن يستقبل البيانات في الـ DataSet .
ومثال على ذلك :
الكود التالي يبين كيف يتم إنشاء الكائن DataAdapter وتجهيزه ، واستخدام الخاصية TableMappings لتغيير اسم الجدول الذي يجب أن يستقبل البيانات داخل الـ DataSet وفي النهاية نعرض مربع رسالة توضح اسم الجدول مع عدد سجلاته ..
Dim selectCommandText As String = "select * FROM [Information]"
Dim selectConnection As OleDbConnection = New OleDbConnection _
("Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=|DataDirectory|\Note.mdb;" _
& "User Id=admin;" _
& "Jet OLEDB:Database Password=ado.net;")
Dim instance_adapter As New OleDbDataAdapter(selectCommandText, selectConnection)
Dim ds As New DataSet
instance_adapter.TableMappings.Add("Table", "Info")
instance_adapter.Fill(ds)
Dim strMsg As String = String.Format("Count of Records In The {0} Table = {1} .", _ ds.Tables(0).TableName, ds.Tables(0).Rows.Count)
MsgBox(strMsg, MsgBoxStyle.Information)
ملاحظة هامة : (( لو كان الأمر مجرد تغير اسم الجدول ، فإنه يغنينا عن كل هذا العناء ، مجرد كتابة الاسم المقترح للجدول خلال استدعاء الخاصية Fill كما ذكرنا سابقاُ ، وهذه هي الإعادة للكود اللازم لعمل مثل ذلك ..
instance_adapter.Fill(ds, "Demo")
هذا رائي الشخصي )) .
ليس ذلك فقط بل نستطيع كذلك تغيير أسماء الحقول ( الأعمدة ) الموجودة دخل الجدول إلى أسماء ذو معنى أوضح ، وذلك من خلال الخاصية ColumnMappings التابعة للخاصية TableMappings ، وهي أيضاً تحتاج إلى تمرير متغيرين من نوع String للخاصية Add التابعة لها ، الأول SourceColumn وهو اسم العمود الأساسي في قاعدة البيانات ، والثاني DataSetColumn وهو الاسم الجديد الذي نريده للعمود في الجدول المخزن في الـ DataSet .
ولعل التمثيل الذي في الصورة التالية يوضح الفكرة ...

ومثال على ذلك :
الكود التالي يبين كيف يتم إنشاء الكائن DataAdapter وتجهيزه ، واستخدام الخاصية TableMappings لتغيير اسم الجدول الذي يجب أن يستقبل البيانات داخل الـ DataSet ، ويلي ذلك نقوم باستخدام الخاصية ColumnMappings لتغيير أسماء بعض الحقول ( علماً أننا سوف نشير للجدول الافتراضي Table بالرمز (0) وذلك كي نخبر هذه الخاصية أننا نريد أن يتم إجراء التعديلات عليه )، وفي النهاية نعرض مربع رسالة توضح اسم الجدول مع عدد سجلاته ، واسم العمود الثاني في الجدول ..
Dim selectCommandText As String = "select * FROM [Information]"
Dim selectConnection As OleDbConnection = New OleDbConnection _
("Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=|DataDirectory|\Note.mdb;" _
& "User Id=admin;" _
& "Jet OLEDB:Database Password=ado.net;")
Dim instance_adapter As New OleDbDataAdapter(selectCommandText, selectConnection)
Dim ds As New DataSet
instance_adapter.TableMappings.Add("Table", "Info")instance_adapter.TableMappings(0).ColumnMappings.Add("Name", "First Name")instance_adapter.TableMappings(0).ColumnMappings.Add("ID", "InfoID")instance_adapter.Fill(ds)
Dim strMsg As String = String.Format("Count of Records In The {0} Table = {1} .{2}The name Of the second Column Is It : {3} ."), _
ds.Tables(0).TableName, ds.Tables(0).Rows.Count, vbNewLine, ds.Tables(0).Columns(0).ColumnName )
MsgBox(strMsg, MsgBoxStyle.Information)
ملاحظة هامة : (( لو كان الأمر مجرد تغير أسماء الأعمدة ، فإنه يغنينا عن كل هذا العناء ، مجرد كتابة عبارة AS في جملة الاستعلام ، وهذا هو الكود اللازم لعمل مثل ذلك ..
Dim selectCommandText As String = "select ID AS [Info ID], Name AS [First Name] FROM [Information]"
هذا رائي الشخصي )) .
وهناك استخدامات أخرى ، مثالاً على ذلك لو أننا أردنا تحميل البيانات من جدولين مختلفين من خلال DataAdapter واحد ، وللقيام بذلك علينا أن نتأمل المثال التالي حيث يقوم بتوضيح الفكرة :
في البداية يتم إنشاء الكائن DataAdapter وتجهيزه ، واستخدام الخاصية TableMappings لتغيير اسم الجدول الأول ( وليكن أسمة Info ) الذي يجب أن يستقبل البيانات داخل الـ DataSet ، ويلي ذلك نقوم باستخدام الخاصية ColumnMappings لتغيير أسماء بعض الحقول ( علماً أننا سوف نشير للجدول الافتراضي Table بالرمز (0) وذلك كي نخبر هذه الخاصية أننا نريد أن يتم إجراء التعديلات عليه )، وبعد ذلك نستدعي الخاصية Fill لتحميل البيانات ، ثم نغيِّر القيمة DataSetTable الخاصة TableMappings إلى اسم الجدول الثاني ، والذي سوف نعطيه الاسم Note ( كل ذلك يتم داخل الـ DataSet ) ، ونقوم بتغيير اسم أحد حقوله ، وبعد ذلك نكتب جملة الاستعلام التي نريدها أن تحظر لنا بيانات الجدول الثاني من مصدر قاعدة البيانات ، وعندما نستدعي مرة أخرى الخاصية Fill فإن البيانات الجديدة ستذهب مباشرة إلى الجدول المسمى Note ، وبذلك نكون قد حصلنا على جدولين من خلال DataAdapter واحد ، وفي نهاية المطاف كي نتأكد من صحة التغييرات والمدخلات ، نعرض مربع رسالة تخبرنا ببعض التفاصيل المتعلقة بالجدولين ..
Dim selectCommandText As String = "select * FROM [Information]"
Dim selectConnection As OleDbConnection = New OleDbConnection _
("Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=|DataDirectory|\Note.mdb;" _
& "User Id=admin;" _
& "Jet OLEDB:Database Password=ado.net;")
Dim instance_adapter As New OleDbDataAdapter(selectCommandText, selectConnection)
Dim ds As New DataSet
instance_adapter.TableMappings.Add("Table", "Info")instance_adapter.TableMappings(0).ColumnMappings.Add("Name", "FirstName")instance_adapter.TableMappings(0).ColumnMappings.Add("ID", "InfoID")instance_adapter.Fill(ds)
instance_adapter.TableMappings(0).DataSetTable = "Note"
instance_adapter.TableMappings(0).ColumnMappings.Add("Note", "MyNote")instance_adapter.selectCommand.CommandText = "select * FROM [Note]"
instance_adapter.Fill(ds)
Dim strMsg As String = String.Format("Count of Records In The {0} Table = {1} ." _ & "{2} The name Of the second Column Is It : {3} ." _
& "{4}Count of Records In The {5} Table = {6} ." _
& "{7} The name Of the second Column Is It : {8} .", _
ds.Tables(0).TableName, ds.Tables(0).Rows.Count, vbNewLine, _ ds.Tables(0).Columns(0).ColumnName, _
vbNewLine, ds.Tables(1).TableName, ds.Tables(1).Rows.Count, vbNewLine, _ ds.Tables(1).Columns(1).ColumnName)
MsgBox(strMsg, MsgBoxStyle.Information)
* الخاصية FillSchema :تجعل هذه الخاصية الخاصة بالكائن DataAdapter يحمل بنية البيانات الموجودة في الجدول المختار إلى الكائن DataSet بدون تحميل أية بيانات ، وبعبارة أخرى هذه الخاصية مشابهة للخاصية Fill ولكنها لا تنسخ البيانات معها . ولها ثلاثة متغيرات ( بارامترات ) :
- المتغير الأول هو الـ DataSet.
- المتغير الثاني هو SchemaType ومن خلاله نخبر هذه الخاصية فيما إذا كان يتوجب عليها استخدام TableMappings الخاص بالكائن DataAdapter أم لا ، و لهذا المتغير قيمتين تتحكم في ذلك الأولى Mapped ( ينصح في استخدامه في الغالب ) وهي تجعل DataAdapter يستعمل البنية التي حددت له من قبل TableMappings . والقيمة الثانية هي Source وهي تجعل DataAdapter يتجاهل البنية التي حددت له من قبل TableMappings وينشئ بنية تطابق بنية قاعدة البيانات .
- المتغير الثالث إختياري وهو srcTable يشير إلى الاسم المقترح للجدول الذي نريد نسخ تكوينه في الـ Dataset بغض النظر عن قيمة SchemaType .
ومثال على ذلك :
الكود التالي يبين كيف يتم إنشاء الكائن DataAdapter وتجهيزه ، واستخدام الخاصية FillSchema لتعبئة الـ DataSet بالجدول المحدد في جملة الاستعلام ) بدون تحميل أي بيانات ) ، وسوف نستخدم المتغير SchemaType.Mapped لكي نجعل DataAdapter يستعمل البنية التي حددت له من قبل TableMappings ، ومن بعد ذلك نعرض مربع رسالة تخبرنا بعدد السجلات المتوفرة في الجدول الذي تم تخزينه في DataSet للتو وذلك للتأكد من أنها تساوي صفراً ..
Dim selectCommandText As String = "select * FROM Information"
Dim selectConnection As OleDbConnection = New OleDbConnection _
("Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=|DataDirectory|\Note.mdb;" _
& "User Id=admin;" _
& "Jet OLEDB:Database Password=ado.net;")
Dim instance_adapter As New OleDbDataAdapter(selectCommandText, selectConnection)
Dim ds As New DataSet
instance_adapter.TableMappings.Add("Table", "Demo")instance_adapter.TableMappings(0).ColumnMappings.Add("Name", "FirstName")instance_adapter.FillSchema(ds, SchemaType.Mapped)
Dim strMsg As String = String.Format("Count of Records In The {0} Table = {1} .", _ds.Tables(0).TableName, ds.Tables(0).Rows.Count)
MsgBox(strMsg, MsgBoxStyle.Information)
ولو أردنا من الخاصية FillSchema أن تجعل DataAdapter يستعمل البنية التي حددت له من قبل TableMappings ، مع إعطاء الجدول اسم مختلف ، نستبدل السطر رقم 11 بالكود التالي ..
instance_adapter.FillSchema(ds, SchemaType.Mapped , "Info")
ولو أردنا من الخاصية FillSchema أن تتجاهل البنية التي حددت له من قبل TableMappings وتنشئ بنية تطابق بنية قاعدة البيانات ، نستبدل السطر رقم 11 بالكود التالي ..
instance_adapter.FillSchema(ds, SchemaType.Source)
في هذه الحالة سوف يصبح اسم الجدول داخل الـ DataSet الاسم الافتراضي Table .
ولو أردنا من الخاصية FillSchema أن تتجاهل البنية التي حددت له من قبل TableMappings وتنشئ بنية تطابق بنية قاعدة البيانات ، مع إعطاء الجدول اسم ذو معنى أوضح ، نستبدل السطر رقم 11 بالكود التالي ..
instance_adapter.FillSchema(ds, SchemaType.Source , "Demo")
** هنا ينتهي حديثنا اليوم ، فما أصبنا من صواب فمن الله وتوفيقه ، وما أصبنا من خطأ فمن أنفسنا والشيطان ، لذلك من وجد أي أخطاء فليصححها لنا ، أو يخبرنا به كي نصححه ، مشكوراً ..
ولنأخذ قسطاً من الراحة ، لكي نستوعب هذه الجرعة من المعلومات ونصحح أخطائها إن وجدت ، ونعلق على الغير مفهوم منها ، و نكمل فيما بعد شرح ما تبقى من الدرس ، ونظراً لأن الحديث عن الكائن DataAdapter طويل و ممتع فلقد قمنا للتو بشرج جزء ، وفي موضوع درسنا القادم إن شاء الله سوف نكمل الجزء الآخر وهو الحديث عن الخاصية update وما يلحق بها ..
الخاصية update :تجعل هذه الخاصية الكائن DataAdapter ينسخ التغييرات بشكل عكسي من الكائن DataSet إلى مصدر قاعدة البيانات ، وذلك من خلال تنفيذ الأوامر insertCommand ، updateCommand ، deleteCommand وذلك لكل أسطر DataSet ألتي قد أدخلت أو عدلت أو حذفت . و سوف نقوم بشرح كل واحد من هذه الأوامر على حده ونبين كيف يعمل ، علماً أنه يمكننا استخدام باني الأوامر CommandBuilder ليقوم هو ببناء الأوامر اللازمة والتي سبق ذكرها نيابة عنا ، وهو أيضاً سوف نقوم بشرحه بالتفصيل .
كما نعلم ربما يحتوي الـ Dataset إلى أكثر من جدول ، لذلك للقيام بعملية التحديث نحتاج إلى تحديد الجدول الذي نرغب في تحديثه كما في المثال ..
instance_adapter.update(ds, "Information")
أو الكود التالي ..
instance_adapter.update(ds.Tables("Information"))
أو الكود التالي في حالة معرفتنا بالرقم ألفهرسي للجدول المخزن في الـ DataSet ..
instance_adapter.update(ds.Tables(0))
ملاحظة هامة :
إذا استخدمت الخاصية TableMappings لتغيير الاسم لجدول أو لأعمدة جدول ما عند تحميل البيانات ، فكن متأكداً من استخدام نفس التحويلات عند القيام بعملية التحديث .
- الأمر insertCommand :يعد أمر الإضافة insertCommand أحد خصائص الكائن DataAdapte و عمله الأساسي هو إضافة سجل جديد إلى سجلات الجدول ، والطريقة التي يعمل بها مشابهة تماماً لكائن الأمر الذي قد تحدثنا عنه في الوضع المتصل ، والمثال التالي موضح بالشرح ، حيث أنه في البداية سوف نقوم بتجهيز الكائنات للعمل ، ثم نملأ الـ DataSet بالبيانات ، و نقوم بتحديث بياناته ، ثم نقوم بنسخ التغييرات التي طرأت على الـ DataSet بشكل عكسي من الكائن DataSet إلى مصدر قاعدة البيانات ، من خلا الكائن DataAdapter وكائن الأمر insertCommand التابع له ، وفي الأخير نستخدم الخاصية update لتولي مسؤلية عملية النسخ ، فلنلقي نظرة متفحصة على الكود ..
Dim selectCommandText As String = "select * FROM Information;"
Dim selectConnection As OleDbConnection = New OleDbConnection _
("Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=|DataDirectory|\Note.mdb;" _
& "User Id=admin;" _
& "Jet OLEDB:Database Password=ado.net;")
Dim instance_adapter As New OleDbDataAdapter(selectCommandText, selectConnection)
Dim ds As New DataSet
instance_adapter.Fill(ds, "Information")
Dim MyDR As DataRow = ds.Tables("Information").NewRow
MyDR.Item("Name") = "Yaser Mohamed"
MyDR.Item("Age") = "32"
MyDR.Item("Phone") = "0123456789"
MyDR.Item("Email") = "Yaser1395@hotmail.com"
ds.Tables("Information").Rows.Add(MyDR)
Dim insertCommand As New OleDbCommand
insertCommand.Connection = selectConnection
insertCommand.CommandText = "insert INTO Information ([Name],[age],[phone],[email]) VALUES (?,?,?,?)"
insertCommand.CommandType = CommandType.Text
insertCommand = insertCommand
insertCommand.Parameters.AddWithValue("?", "Yaser Mohamed")
insertCommand.Parameters.AddWithValue("?", "32")
insertCommand.Parameters.AddWithValue("?", "0123456789")
insertCommand.Parameters.AddWithValue("?", "Yaser1395@hotmail.com")
instance_adapter.insertCommand = insertCommand
Me.BindingContext(ds, "Information").EndCurrentEdit()
instance_adapter.update(ds, "Information")
MsgBox("update Successfully...", MsgBoxStyle.Information)
شرح الكود السابق متزامن مع أرقام الأسطر :
1- التصريح عن متغير للإستعلام عن الجدول المخزن في مصدر البيانات ( Data Sources ) .
2- التصريح عن متغير لكائن الإتصال بقدعدة البيانات .
7- التصريح عن متغير للكائن DataAdapter ( وهو الوسيط بين الكائن DataSet و مصدر البيانات ) و تجهيزه .
8- التصريح عن متغير الكائن DataSet .
9- استيراد البيانات من مصدر البيانات ، وتعبئتها في جدول محدد ضمن الكائن DataSet .
10- الكود اللازم لإضافة سجل جديد إلى سجلات الجدول المخزن في الكائن DataSet ، حيث يبدأ بالتصريح عن متغير كائن صف ، وتجهيزه من خلال ربطه بالجدول الموجود في الكائن DataSet ، ثم استدعاء الخاصية صف جديد .
11- بعد ذلك نقوم بإسناد البيانات المحدثه إلى الحقول الخاصة بالجدول ويتكرر ذلك في كل من الاسطر رقم ( 11 إلى 14 ) .
15- نقوم بإضافة كائن الصف إلى صفوف الجدول الموجود في الكائن DataSet، وبذلك نكون قد حدثنا الجدول المخزن في الكائن DataSet .
16- ولكي نقوم بتصدير البيانات الجديده من الكائن DataSet إلى مصدر البيانات ، نحتاج إلى اعداد وتجهيز كائن الأمر الخاص بإضافة صف جديد ، وذلك من خلال إنشاء كائن أمر وإعداده كما كنا نعمل في الوضع المتصل ، وذلك نجده في كل من الاسطر رقم ( 16 إلى 24 ) .
25- بعد ذلك نقوم بإسناد كائن الأمر إلى الخاصية الخاصة بأمر الإضافة في الكائن DataAdapter .
26- وللقيام بعملية التحديث النهائية لمصدر البيانات نحتاج إلى إيقاف عملية التحديث على الجدول المطلوب ضمن الكائن DataSet ، وذلك حفاظاً على تزامن البيانات .
27- هنا نقوم بعملية التحديث بعد تحديد اسم الجدول الذي نرغب في تحديثه .
28- مربع رسالة تخبرنا بنجاح العملية .
ويكمن كتابة الكود السابق بشكل أخر وسوف يؤدي نفس النتيجة ، فلنتأمل الكود التالي ..
Dim selectCommandText As String = "select * FROM Information;"
Dim selectConnection As OleDbConnection = New OleDbConnection _
("Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=|DataDirectory|\Note.mdb;" _
& "User Id=admin;" _
& "Jet OLEDB:Database Password=ado.net;")
Dim instance_adapter As New OleDbDataAdapter(selectCommandText, selectConnection)
Dim ds As New DataSet
instance_adapter.Fill(ds, "Information")
Dim MyDR As DataRow = ds.Tables("Information").NewRow
MyDR.Item("Name") = "Yaser Mohamed"
MyDR.Item("Age") = "32"
MyDR.Item("Phone") = "0123456789"
MyDR.Item("Email") = "Yaser1395@hotmail.com"
ds.Tables("Information").Rows.Add(MyDR)
instance_adapter.insertCommand = New OleDbCommand("insert INTO Information ([Name],[age],[phone],[email]) VALUES (?,?,?,?)" , selectConnection)
instance_adapter.insertCommand.Parameters.Clear()
instance_adapter.insertCommand.Parameters.AddWithValue("?", "Yaser Mohamed")
instance_adapter.insertCommand.Parameters.AddWithValue("?", "32")
instance_adapter.insertCommand.Parameters.AddWithValue("?", "0123456789")
instance_adapter.insertCommand.Parameters.AddWithValue("?", "Yaser1395@hotmail.com")
Me.BindingContext(ds, "Information").EndCurrentEdit()
instance_adapter.update(ds, "Information")
MsgBox("update Successfully...", MsgBoxStyle.Information)
شرح الكود السابق مطابق للشرح الذي يسبقه ما عدا بعض الاختلافات التي سوف نوضحها هنا ، وهي متزامنة مع أرقام الأسطر :
16- ولكي نقوم بتصدير البيانات الجديده من الكائن DataSet إلى مصدر البيانات نحتاج إلى اعداد وتجهيز كائن الأمر insertCommand التابع للكائن DataAdapter والخاص بإضافة صف جديد وذلك من خلال إسناد كائن أمر جديد وإعداده بجملة SQL اللازمة لعملية الإضافة ، و كائن الاتصال اللازم أيضاً .
17- بعد ذلك نحتاج إلى إضافة البارامترات التي تم تعشيشها في جملة SQL السابقة الذكر ، مع قيمها المحدثة ، وذلك نجده في كل من الأسطر رقم ( 17 إلى 21 ) .
- الأمر deleteCommand :يعد أمر الحذف deleteCommand أحد خصائص الكائن DataAdapte و عمله الأساسي هو حذف سجل من سجلات الجدول ، والطريقة التي يعمل بها مشابهة تماماً لكائن الأمر الذي قد تحدثنا عنه في الوضع المتصل ، حيث سنحتاج إلى وجود فقرة Where في جملة SQL والتي تشير إلى بارامتر ( معامل ) يساعدنا في تحديد السجل المطلوب حذفه ، والمثال التالي موضح بالشرح ، حيث أنه في البداية سوف نقوم بتجهيز الكائنات للعمل ، ثم نملأ الـ DataSet بالبيانات ، و نقوم بحذف السجل الحالي من الجدول المخزن في الكائن DataSet ( تعتبر عمليه الحذف هذه تحديث للسجلات الموجودة في الجدول المخزن في الكائن DataSet ) ، ثم نقوم بنسخ التغييرات التي طرأت على الـ DataSet بشكل عكسي من الكائن DataSet إلى مصدر قاعدة البيانات ، وذلك من خلا الكائن DataAdapter وكائن الأمر deleteCommand التابع له ، وفي الأخير نستخدم الخاصية update لتولي مسؤلية عملية النسخ ، فلنلقي نظرة متفحصة على الكود ..
Dim selectCommandText As String = "select * FROM Information order by name"
Dim selectConnection As OleDbConnection = New OleDbConnection _
("Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=|DataDirectory|\Note.mdb;" _
& "User Id=admin;" _
& "Jet OLEDB:Database Password=ado.net;")
Dim instance_adapter As New OleDbDataAdapter(selectCommandText, selectConnection)
Dim ds As New DataSet
instance_adapter.Fill(ds, "Information")
Dim MYPosition As String = Me.BindingContext(ds, "Information").Position
Dim IdValue As String = ds.Tables("Information").Rows(MYPosition).Item("ID")Me.BindingContext(ds, "Information").RemoveAt(MyPosition)
instance_adapter.deleteCommand = New OleDbCommand("delete FROM Information WHERE Information.ID=?;", selectConnection)
instance_adapter.deleteCommand.Parameters.Clear()
instance_adapter.deleteCommand.Parameters.AddWithValue("?",IdValue)
Me.BindingContext(ds, "Information").EndCurrentEdit()
instance_adapter.update(ds, "Information")
MsgBox("deleteD Successfully...", MsgBoxStyle.Information)
شرح الكود السابق ينطبق عليه بعض الشروحات التي سبق ذكرها ، لذا سنكتفي بشرج ما جد من الكود ، وهو متزامن مع أرقام الأسطر :
10- نقوم بتخزين الرقم الذي يعبّر عن موضع السجل الحالي في الجدول المخزن داخل الكائن DataSet ، وذلك من أجل عملية الحذف من داخل الـ DataSet .
11- نقوم بتخزين قيمة رقم الحقل المسمى "ID" الخاص بالسجل الحالي للجدول المخزن داخل الكائن DataSet ، وذلك من أجل عملية الحذف من مصدر قاعدة البيانات .
12- نقوم هنا باستخدام الأمر RemoveAt لحذف السجل الحالي ( والذي قمنا بتخزين قيمته في المتغير MYPosition ) من الجدول المخزن في الكائن DataSet والذي قمنا بتحديد اسمه ، عندئذ يتم حذف السجل من داخل الـ DataSet فقط .
13- ولكي نقوم بتصدير البيانات المحدثة من الكائن DataSet إلى مصدر البيانات نحتاج إلى إعداد وتجهيز كائن الأمر deleteCommand التابع للكائن DataAdapter والخاص بحذف سجل ، وذلك من خلال إسناد كائن أمر جديد وإعداده بجملة SQL اللازمة لعملية الحذف ، و كائن الاتصال اللازم أيضاً .
14- بعد ذلك نحتاج إلى إضافة البارامتر الذي تم تعشيشه في جملة SQL السابقة الذكر ، مع قيمته والتي قمنا بتخزينها سابقاً في المتغير MyFieldValue ، وذلك نجده في كل من السطرين رقم ( 14 ، 15 ) .
- الأمر updateCommand:يعد أمر التحديث updateCommand أحد خصائص الكائن DataAdapte و عمله الأساسي هو تحديث سجل محدد من سجلات الجدول ، والطريقة التي يعمل بها مشابهة تماماً لكائن الأمر الذي قد تحدثنا عنه في الوضع المتصل ، حيث سنحتاج إلى وجود فقرة Where في جملة SQL والتي تشير إلى بارامتر ( معامل ) يساعدنا في تحديد السجل المطلوب تحديثه ، والمثال التالي موضح بالشرح ، حيث أنه في البداية سوف نقوم بتجهيز الكائنات للعمل ، ثم نملأ الـ DataSet بالبيانات ، و نقوم بعد ذلك بتحديث بيانات السجل الحالي للجدول المخزن في الكائن DataSet ، ثم نقوم بنسخ التغييرات التي طرأت على الـ DataSet بشكل عكسي من الكائن DataSet إلى مصدر قاعدة البيانات ، وذلك من خلا الكائن DataAdapter وكائن الأمر updateCommand التابع له ، وفي الأخير نستخدم الخاصية update لتولي مسؤلية عملية النسخ ، فلنلقي نظرة متفحصة على الكود ..
Dim selectCommandText As String = "select * FROM Information"
Dim selectConnection As OleDbConnection = New OleDbConnection _
("Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=|DataDirectory|\Note.mdb;" _
& "User Id=admin;" _
& "Jet OLEDB:Database Password=ado.net;")
Dim instance_adapter As New OleDbDataAdapter(selectCommandText, selectConnection)
Dim ds As New DataSet
instance_adapter.Fill(ds, "Information")
Dim MyPosition As Integer = Me.BindingContext(ds, "Information").Position
Dim IdValue As String = ds.Tables(0).Rows(MyPosition).Item("ID")
ds.Tables(0).Rows(MyPosition).Item("Name") = "Yaser AL-Shikh"
ds.Tables(0).Rows(MyPosition).Item("Age") = "32"
ds.Tables(0).Rows(MyPosition).Item("Phone") = "123456789"
ds.Tables(0).Rows(MyPosition).Item("Email") = "Yaser1395@hotmail.com"
instance_adapter.updateCommand = New OleDbCommand("update Information set Name=?, Age=?, Phone=?, Email=? WHERE Id =?", selectConnection)
instance_adapter.updateCommand.Parameters.Clear()
instance_adapter.updateCommand.Parameters.AddWithValue("?", "Yaser AL-Shikh")
instance_adapter.updateCommand.Parameters.AddWithValue("?", "25")
instance_adapter.updateCommand.Parameters.AddWithValue("?", "123456789")instance_adapter.updateCommand.Parameters.AddWithValue("?", "Yaser1395@hotmail.com")
instance_adapter.updateCommand.Parameters.AddWithValue("?", IdValue)
Me.BindingContext(ds, "Information").EndCurrentEdit()
instance_adapter.update(ds.Tables("Information"))
MsgBox("update Successfully...", MsgBoxStyle.Information)
شرح الكود السابق ينطبق عليه بعض الشروحات التي سبق ذكرها ، لذا سنكتفي بشرج ما جد من الكود ، وهو متزامن مع أرقام الأسطر :
12- نقوم هنا بتحديث حقول السجل الحالي ( Name , Age ,Phone , Email ) في الجدول المخزن داخل الكائن DataSet ، وذلك نجده في كل من السطور رقم ( 12 ، 15 )
16- ولكي نقوم بتصدير البيانات المحدثة من الكائن DataSet إلى مصدر البيانات نحتاج إلى إعداد وتجهيز كائن الأمر updateCommandالتابع للكائن DataAdapter والخاص بتحديث سجل ، وذلك من خلال إسناد كائن أمر جديد وإعداده بجملة SQL اللازمة لعملية التحديث ، و كائن الاتصال اللازم أيضاً .
17- بعد ذلك نحتاج إلى إضافة البارامترات التي تم تعشيشها في جملة SQL السابقة الذكر ، مع قيمها الخاصة بها ، وكذلك البارامتر الخاص بتحديد السجل المراد تحديثه والذي قمنا بتخزين قيمته سابقاً في المتغير IdValue ، وكل ذلك نجده في السطور رقم ( 17 إلى 22 ) .
وقبل أن نختم الحديث عن عملية التحديث باستخدام الخاصية update أريد أن أبين أنه عند قيام هذا الأمر بالعمل فإنه يقوم باختبار حالة الصف ، ويقوم بتنفيذ الأمر المطلوب سواء كان إضافة أو تحديث أو حذف ، وذلك بشكل متكرر لكل صف من الصفوف ، حيث أن تحديث الصفوف لا يتم دفعة واحده ، إنما يتم تحديث كل صف بشكل منفرد .
وبمجرد استدعاء هذه الخاصية تقوم بتنفيذ سبعة أمور تتم خلف الكواليس بشكل متلاحق ، كنت قد أشرت إليها في إحدى ردودي على الأخ abetry ، وهي كما يلي على التوالي ..
1. القيم التي أدخلت في DataRow للكائن DataSet تَنتقلُ إلى قِيَم البارامترات التي تم وضعها في جُمل SQL الخاصة بالتحديث ( الإضافة أو التعديل أو الحذف ) سواء تم بناء هذه الجمل من قبل CommandBuilder أو التي وضعت من قبل المبرمج بشكل يدوي .
2. يبدأ الحدث OnRowUpdating في الإقلاع .
3. يتم تنفيذ أمر التحديث الذي تم كتابته في جملة SQL ( سواء كان هذا التحديث للإضافة أو التعديل أو الحذف ) .
4. إذا الأمر أعد لإرْجاع السجلِ الأول ، فإن النتيجة الأولى التي تعود يكون موقعها في الـ DataRow . *
5. إذا كان هناك بارامترات ناتجه، فإنهم يوضُوعون في الـ DataRow. *
6. يبدأ الحدث OnRowupdated في الإقلاع .
7. يتم استدعاء الخاصية AcceptChanges من الكائن DataSet .
* رقمي ( 4 ، 5 ) لست على دراية تامة بها ولكني نقلتها بعد أن قمت بترجمتها من MSDN لعله يوجد من يستفيد منها أو يوضحها لنا ، ونصها الأساسي هو :
LEFT TO RIGHT
4- If the command is set to FirstReturnedRecord, the first returned result is placed in the DataRow.
5- If there are output parameters, they are placed in the DataRow.
ملاحظة هامة : يمكن التوسع في هذا الأمر ، ولكنا سنكتفي بهذا الحد من المعلومات ، ومن الجدير بالذكر أننا لم نستخدم بعد عناصر التحكم المترابطة ، وكذلك باني الأوامر الكائن CommandBuilder والكائنات الأخرى ، والتي تختصر لنا الكود بنسبة مرضية جداً ، بالإضافة إلى المرونة وقوة التحكم ، من أجل ذلك نجد هنا أن الكود طويل ( أرجو أن نصبر قليلاً فهو في حقيقة الأمر اقل بكثير مما هو عليه) ، علماً أن الكود المذكور من أجل الشرح والفهم لما يدور خلف الكواليس فقط ، وسوف نعيد كتابة الاكواد السابقة بشكل مختصر ، وذلك عندما نتقدم في الدرس قليلاً ..
** هنا ينتهي حديثنا اليوم ، ونأخذ قسطاً من الراحة ، لكي نستوعب هذه الجرعة من المعلومات ونصحح أخطائها إن وجدت ، ونعلق على الغير مفهوم منها ، و نكمل فيما بعد شرح ما تبقى من الدرس وذلك في المشاركات القادمة ..
ملاحظة : موضوعنا القادم سوف يكون الكائن CommandBuilder ، وسوف نتعلم كيف يختصر لنا هذا الكائن الكثير من الأكواد السابقه ، كما سنشاهد كيف يقوم هذا الكائن ببناء الأوامر الخاصة بالتحديث ..
حررت من قبل:
vb2005 في
الجمعة,08/جمادى الثانية/1431 هـ,03:39 صباحاً