[Mr. DotNet]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته

اقدم لكم اليوم موضوع مفيد باذن الله
التعامل مع قواعد البيانات Sql Server 2005 خطوة بخطوة

المرحلة الأولى
_________
انشاء قاعدة بيانات SQL Server 2005

تشغيل VB.NET
من قائمة ( View ) نختار ( Server Explorer ) رح يبين معنا على يسار الشاشة قائمة
بنعمل Right click على ( Data Connections ) و بنضغط على (Create New SQL Server DataBase ) كما بالصورة

الان يجب علينا تحديد السيرفر الذي سنقوم بعمل قاعدة البيانات عليه

و بما انا نعمل على SQL Server 2005 Express فسيكون السيرفر ( .\SQLExpress ) و سنقوم بتسمية قاعدة البيانات باسم ( vb4arab ) كما بالصورة التالية


الان نقوم بعمل الجداول داخل قاعدة البيانات
اولا بنضغط كما بالصورة على ( Add New tble )

نقوم الان بعمل الحقول داخل الجدول وحفظة كما بالصورة

قمنا بعمل ثلاث حقول و تسمية الجدول باسم ( VB )

المرحلة الثانية

الاتصال مع قاعدة البيانات

بعد ان قمنا بعمل قاعدة البيانات بقي الان علينا الاتصال بها
ولانا سنقوم بالاتصال مع قاعة بيانات من نوع ( SQL Server ) سنقوم باستيراد مكتبة الـ SqlClient للتعامل مع قاعدة البيانات
بنضع الكود التالي في الـ ( General )

كود :

[align=center][SIZE=2][color=#0000ff]Imports[/color][/SIZE][SIZE=2] System.Data.SqlClient[/SIZE]
[/align]

بعد ان قمنا باستيراد الـ ( SqlClient ) سنقوم الان بتعريف الاتصال
بما انا سنستخدم الاتصال في اكثر من مكان بالبرنامج سنقو بتعريفة بالكلاس لنتمكن من استخدامه بدل كتابته في كل زر

اولا ..
نقوم بتعريف متغير للاتصال ( Con ) مثلا واسناد قيم الاتصال له والقيم هي
1- server=.\sqlexpress
2- [SIZE=2]database=vb4arab[/SIZE]
[SIZE=2]3- [SIZE=2]integrated security=true[/SIZE][/SIZE]

[SIZE=2][SIZE=2]الكود كالتالي

كود :

[/SIZE][/COLOR][/SIZE][/SIZE]
[align=center][SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] Con [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2] SqlConnection([/SIZE][SIZE=2][color=#800000]"server=.\sqlexpress;database=vb4arab;integrated security=true"[/color][/SIZE][SIZE=2])[/SIZE]
[/align]

[SIZE=2][SIZE=2][SIZE=2]

[/SIZE][/SIZE]

[COLOR=#000000]بعد ان قمنا بتحديد الاتصال و مكانه اصبحنا الان قادرين على الاتصال بها من خلال الكود التالي الذي سنستخدمه بعد قليل عن القيام بعمليات على قاعدة البيانات

كود فتح الاتصال

كود :

[/COLOR][/COLOR][/SIZE]
[align=center][SIZE=2]Con.Open()[/SIZE]
[/align]

[SIZE=2][COLOR=#800000][COLOR=#000000]



كود انهاء الاتصال

كود :

[align=center][SIZE=2]Con.Close()[/SIZE]
[/align]

الان قمنا بالاتصال مع قاعدة البيانات
بقي علينا القيام بالعمليات عليها

المرحلة الثالثة

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

بداية سنقوم بتعريف متغير لاسناد اوامر ال SQL اليه
و بما انا سنستخدمه كثيرا في البرنامج سنقوم بتعريفه داخل الكلاس

نفرض ان المتغير هو ( ٍSqlStr )

نقوم الان بتعريفه كالتالي

كود :

[SIZE=2][color=#0000ff]Dim [/color][/SIZE][SIZE=2]SqlStr [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]String[/color][/SIZE]

وسنحتاج ايضا الى متغير اخر لحمل الاومر وتنفيذها داخل قاعدة البيانات وسيكون من نوع SqlCommand
و ايضا سنستخدمه كثير لذا نقوم بتعريفة داخل الكلاس
وبالنفرض ان اسمه هو ( Cmd )

كود :

[SIZE=2][color=#0000ff]Dim [/color][/SIZE][SIZE=2]Cmd [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2] SqlCommand[/SIZE]

الان سنقوم بالاضافة
امر الاضافة بالـ ( SQL ) كالتالي
( INSERT INTO TableName VALUES FieldValue )
وعلى هذا الاساس سنكمل
الان عندنا ثلاث قيم للادخال في برناجنا وهي
1- UserID
2- Username
3-Password

لذا سنقسم الامر كالتالي

كود :

[SIZE=2]SqlStr = [/SIZE][SIZE=2][color=#a31515]"INSERT INTO VB(UserID, Username, Password)"[/color][/SIZE]   [SIZE=2]SqlStr = SqlStr & [/SIZE][SIZE=2][color=#a31515]"VALUES"[/color][/SIZE]   [SIZE=2]SqlStr = SqlStr & [/SIZE][SIZE=2][color=#a31515]"('"[/color][/SIZE][SIZE=2] & TextBox1.Text.Trim & [/SIZE][SIZE=2][color=#a31515]"', '"[/color][/SIZE][SIZE=2] & TextBox2.Text.Trim & [/SIZE][SIZE=2][color=#a31515]"', '"[/color][/SIZE][SIZE=2] & TextBox3.Text.Trim & [/SIZE][SIZE=2][color=#a31515]"')"[/color][/SIZE]

شرح الكود
في السطر الاول اخبرنا انه سيتم ادخال ثلاث قيم داخل الجول ( VB )
في السطر الثاني ربطناه بكلمة ( VALUES )
السطر الثالث هي القيم التي سيتم ادخالها داخل القاعدة و هي موجودة داخل الـ TextBoxes

الان اصبح الامر جاهزا بقي تنفيذه

بما انا عرفنا متغير لحمل الامر و تنفيذه داخل قاعدة البيانات نكتب الامر التالي

كود :

[SIZE=2]Cmd = [/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2] SqlCommand(SqlStr, Con)[/SIZE]

شرح الكود

اخبرنا المتغير انا نريد امر جديد و سينفذ امر ال SQL الذي خزناه داخل متغير ( SqlStr ) في الاتصال الذي عرفناه بالكلاس في الدرس السابق و هو ( Con )

الان الماغير يحمل القيم و يعرف مكان قاعدة البيانات

بقي الان علينا ان نفتح الاتصال و تنفيذ الامر

كما ذكرنا سابقاً ان كود فتح الاتصال هو

كود :

[SIZE=2]Con.Open()[/SIZE]

الان فتحنا الاتصال
الان جاء وقت تنفيذ الامر
بالكود التالي

كود :

[SIZE=2]Cmd.ExecuteReader()[/SIZE]

الكود السابق نفذ ( Cmd ) التي تحمل الامر و مكان الاتصال

بعد ان نفذ الامر الان سنقوم بارجاع الاتصال الى حالة الخمول
بمعنى اخر سنقوم بقطع الاتصال

كود :

[SIZE=2]Con.Close()[/SIZE]

يمكننا الان اخراج رسالة للمستخدم تفيد بانه تم حفظ البيانات (اختياري)

كود :

[SIZE=2]MsgBox([/SIZE][SIZE=2][color=#a31515]"Data Saved Successfully"[/color][/SIZE][SIZE=2])[/SIZE]

الان قمنا بالاضافة بنجاح الى قاعدة البيانات

و هذه الكود كامل لحفظ البيانات

كود :

[SIZE=2]SqlStr = [/SIZE][SIZE=2][color=#a31515]"INSERT INTO VB(UserID, Username, Password)"[/color][/SIZE]   [SIZE=2]SqlStr = SqlStr & [/SIZE][SIZE=2][color=#a31515]"VALUES"[/color][/SIZE]   [SIZE=2]SqlStr = SqlStr & [/SIZE][SIZE=2][color=#a31515]"('"[/color][/SIZE][SIZE=2] & TextBox1.Text.Trim & [/SIZE][SIZE=2][color=#a31515]"', '"[/color][/SIZE][SIZE=2] & TextBox2.Text.Trim & [/SIZE][SIZE=2][color=#a31515]"', '"[/color][/SIZE][SIZE=2] & TextBox3.Text.Trim & [/SIZE][SIZE=2][color=#a31515]"')"[/color][/SIZE]   [SIZE=2]Cmd = [/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2] SqlCommand(SqlStr, Con)[/SIZE]   [SIZE=2]Con.Open()[/SIZE] [SIZE=2]Cmd.ExecuteReader()[/SIZE] [SIZE=2]Con.Close()[/SIZE] [SIZE=2]MsgBox([/SIZE][SIZE=2][color=#a31515]"Data Saved Successfully"[/color][/SIZE][SIZE=2])[/SIZE]

يتبع ....