تعلم ربط الفيجول بيسك دوت نت 2005 مع قواعد البيانات - الصفحة 2

**محمد جعدان** · 04-03-2008, 05:29 AM

مشكور أخ محترف وبكل صراحه
شرحك أكثر من رائع وبنسبه عاليه جدا وفعلا انك محترف وانشاء الله سوف أتابع موضوعك أول بأول
ولك خالص التحايا والتقدير

المحترف 1 · 04-03-2008, 06:34 PM

بسم الله الرحمن الرحيم

وبه أبدا وأستعين ، وأختم بالصلاة والسلام على خاتم الأنبياء والمرسلين نبينا محمد وعلى آله وصحبه أجمعين ، أما بعد ..
=============
3 - الكائن DataAdapter :
في الدروس السابقة وضحنا العمل الذي يقوم به هذا الكائن ، حيث قلنا حينها أنه " بمثابة وسيط بين مجموعة البيانات "DataSet " ومصادر البيانات "Data Sources" ، حيث يقوم DataAdapter بعملية فتح الاتصال بقاعدة البيانات و استيراد وتصدير البيانات من و إلى مصدرها الأساسي ، وبعد تخزين البيانات في DataSet ، فإنها تصبح منفصلة عن مصدر البيانات ، لان الكائن DataAdapter يقوم بشكل تلقائي أيضاً بقطع الاتصال بقاعدة البيانات " ، ولكن هذا ليس كل شيء ، ما زلنا نحتفظ بالجزء الأفضل لدرس اليوم ...
يستخدم هذا الكائن كائنان صديقان تعرفنا عليهما فيما سبق ، وهما : الكائن OleDbConnection لإدارة اتصاله بقاعدة البيانات ( من فتح الاتصال و غلق الاتصال ) ، و الكائن OleDbCommand لإدارة استعلامات SQL البنيوية التي يجب تنفيذها ( من تحديد أو إضافة أو تعديل أو حذف ) . ولتجهيز هذا الكائن للعمل هناك أكثر من طريقة وجميعها جيده ، فقط على المبرمج أن يختار ما يناسبه منها ، والكود التالي يبين كيف يتم إنشاء ملائم بيانات ، واستخدام الكائن OleDbConnection لإدارة اتصاله بقاعدة البيانات ، وكذلك استخدام الكائن OleDbCommand لإدارة استعلام SQL والذي يقوم بتحديد مجموعة من الحقول المتوفرة في إحدى جداول قاعدة البيانات التي تم الاتصال بها ، وكذلك سوف نستخدم إحدى خصائص الكائن DataAdapter وهي SelectCommand ولكنا لن نزعج أنفسنا بها هنا ، وسوف نشرحها بالتفصيل في وقت لاحق ، فقط نحتاج إلى القليل من التركيز لتأمل الكود التالي ..

كود PHP:


			
' 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

ويمكن اختصار الكود السابق ليصبح كما يلي ..

كود PHP:


			
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

ويمكن اختصار الكود السبق أكثر من ذلك ليصبح كما يلي ..

كود PHP:


			
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)

ويمكن اختصار الكود السبق أكثر من ذلك ليصبح كما يلي ..

كود PHP:


			
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 للتو ..

كود PHP:


			
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 DataSet

instance_adapter.Fill(MyDs)

MsgBox(MyDs.Tables(0).Rows.Count, MsgBoxStyle.Information)

في الحقيقة الخاصية Fill تأخذ الكثير من المتغيرات ( البارامترات ) ، سنتحدث عن أهمها ، وهو srcTable ومن خلاله نستطيع أن نضع اسم للجدول الذي نريد تخزينه في الـ DataSet وذلك من أجل الحصول على اسم ذو معنى أوضح ، وبدون هذا المتغير سوف يأخذ هذا الجدول الاسم "Table" ، وفي مثالنا السابق نستطيع استبدال السطر التاسع بالكود التالي لإعطاء الجدول اسم "Demo" ..

كود PHP:


			
instance_adapter.Fill(ds, "Demo")

ولكي نتأكد من اسم الجدول الذي قمنا بتخزينه في الـ DataSet ، نكتب الكود التالي لعرض مربع رسالة تخبرنا باسم الجدول ..

كود PHP:


			
كودMsgBox(ds.Tables(0).TableName)

ملاحظة :- الصورة الكاملة للمتغيرات ( البارامترات ) التي تأخذها الخاصية Fill ..

كود PHP:


			
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" ، وفي الأخير نعرض مربع رسالة تخبرنا بعدد السجلات في الجدول الذي تم تخزينه للتو ، وقيمة السجل الأول في العمود الأول من الجدول ..

كود PHP:


			
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 وفي النهاية نعرض مربع رسالة توضح اسم الجدول مع عدد سجلاته ..

كود PHP:


			
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 كما ذكرنا سابقاُ ، وهذه هي الإعادة للكود اللازم لعمل مثل ذلك ..

كود PHP:


			
instance_adapter.Fill(ds, "Demo")

هذا رائي الشخصي )) .

ليس ذلك فقط بل نستطيع كذلك تغيير أسماء الحقول ( الأعمدة ) الموجودة دخل الجدول إلى أسماء ذو معنى أوضح ، وذلك من خلال الخاصية ColumnMappings التابعة للخاصية TableMappings ، وهي أيضاً تحتاج إلى تمرير متغيرين من نوع String للخاصية Add التابعة لها ، الأول SourceColumn وهو اسم العمود الأساسي في قاعدة البيانات ، والثاني DataSetColumn وهو الاسم الجديد الذي نريده للعمود في الجدول المخزن في الـ DataSet .
ولعل التمثيل الذي في الصورة التالية يوضح الفكرة ...

ومثال على ذلك :
الكود التالي يبين كيف يتم إنشاء الكائن DataAdapter وتجهيزه ، واستخدام الخاصية TableMappings لتغيير اسم الجدول الذي يجب أن يستقبل البيانات داخل الـ DataSet ، ويلي ذلك نقوم باستخدام الخاصية ColumnMappings لتغيير أسماء بعض الحقول ( علماً أننا سوف نشير للجدول الافتراضي Table بالرمز (0) وذلك كي نخبر هذه الخاصية أننا نريد أن يتم إجراء التعديلات عليه )، وفي النهاية نعرض مربع رسالة توضح اسم الجدول مع عدد سجلاته ، واسم العمود الثاني في الجدول ..

كود PHP:


			
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 في جملة الاستعلام ، وهذا هو الكود اللازم لعمل مثل ذلك ..

كود PHP:


			
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 واحد ، وفي نهاية المطاف كي نتأكد من صحة التغييرات والمدخلات ، نعرض مربع رسالة تخبرنا ببعض التفاصيل المتعلقة بالجدولين ..

كود PHP:


			
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 للتو وذلك للتأكد من أنها تساوي صفراً ..

كود PHP:


			
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 بالكود التالي ..

كود PHP:


			
instance_adapter.FillSchema(ds, SchemaType.Mapped , "Info")

ولو أردنا من الخاصية FillSchema أن تتجاهل البنية التي حددت له من قبل TableMappings وتنشئ بنية تطابق بنية قاعدة البيانات ، نستبدل السطر رقم 11 بالكود التالي ..

كود PHP:


			
instance_adapter.FillSchema(ds, SchemaType.Source)

في هذه الحالة سوف يصبح اسم الجدول داخل الـ DataSet الاسم الافتراضي Table .

ولو أردنا من الخاصية FillSchema أن تتجاهل البنية التي حددت له من قبل TableMappings وتنشئ بنية تطابق بنية قاعدة البيانات ، مع إعطاء الجدول اسم ذو معنى أوضح ، نستبدل السطر رقم 11 بالكود التالي ..

كود PHP:


			
instance_adapter.FillSchema(ds, SchemaType.Source , "Demo")

** هنا ينتهي حديثنا اليوم ، فما أصبنا من صواب فمن الله وتوفيقه ، وما أصبنا من خطأ فمن أنفسنا والشيطان ، لذلك من وجد أي أخطاء فليصححها لنا ، أو يخبرنا به كي نصححه ، مشكوراً ..
ولنأخذ قسطاً من الراحة ، لكي نستوعب هذه الجرعة من المعلومات ونصحح أخطائها إن وجدت ، ونعلق على الغير مفهوم منها ، و نكمل فيما بعد شرح ما تبقى من الدرس ، ونظراً لأن الحديث عن الكائن DataAdapter طويل و ممتع فلقد قمنا للتو بشرج جزء ، وفي موضوع درسنا القادم إن شاء الله سوف نكمل الجزء الآخر وهو الحديث عن الخاصية UpDate وما يلحق بها ..

واشكر في النهاية اخي ياسر الشيخ من منتدى المبرمج العربي
((سبحانك اللهم وبحمدك، أشهد أن لا إله إلا أنت، أستغفرك وأتوب إليك ))

علاء عبدالخالق · 08-26-2008, 12:07 PM

شرح ممتاز ولي استفسار هل الوضع المتصل افضل ام الوضع المنفصل في حالة عمل برنامج حسابات لشركة تعمل على شركة داخلية

أدوات الموضوع
مشاهدة صفحة طباعة الموضوع أرسل هذا الموضوع إلى صديق
طرق مشاهدة الموضوع
العرض العادي الانتقال إلى العرض المتطور الانتقال إلى العرض الشجري