الدرس الأول- VB2008 - تصميم قاعدة بيانات SQL وحفظ البيانات

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



على بركة الله اليوم حنبدأ الدرس الأول على

VB.NET 2008

وفي هذه الدروس حيكون الشرح حول أساسيات تصميم منظومة خطوة خطوة

وحنبدا بشرح كيف إنشاء فورم بسيط مع برمجة زر حفظ البيانات

وكيفية إنشاء قاعدة بيانات SQL EXPRESS 2005

-----------------

أول شي سنبدأ بفتح برنامج الفيجوال استوديوا

حتظهر شاشة البداية, وسنقوم بإنشاء مشروع جديد بالضغط على

Create Project …

كما هو في الصورة التالية







ستظهر لنا شاشة اختيار نوع المشروع الذي سنقوم بإنشائه

نقوم بإختيار Windows Forms Application

كما هو موضح في الصورة التالية







سيظهر لنا فورم فارغ ولا يوجد به شي

سنقوم بإضافة الأشياء المطلوبة مثل الأزرار والقوائم المنسدلة وصناديق الكتابة

Listbox, button, textbox … etc

على حسب حاجتنا

على يسار الشاشة ستجدون قائمة الإدوات – Toolbox

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

فمثلا سنبدأ بوضع زر – Button

سنجده في قائمة الإداوات, نقوم بالضغط عليه مرتين حتى نجد أنه تمت إضافته على الفورم

كما هوا واضح في الصورة التالية







مانحتاجه الآن في هذا المشروع البسيط هو الأدوات التالية

Button

Textbox

Listbox

ComboBox

DateTimePicker

وكل هذه الأدوات سنقوم بإضافتها إلى الفورم, وذلك بالضغط عليها مرتين

وسنقوم بإضافة اداة Label أمام كل أداة سابقة حتى نستطيع معرفة وظيفة كل أداة

كما هو موضح في الصورة







طبعا هنا في الفورم لا يهم ترتيب الأدوات, فقم بترتيبها كما يحلوا لك التصميم

الآن سنأتي لتعبئة أداة الـ ListBox بالبيانات التي نرغب في إضافتها

وهذه البيانات لا يتم إضافتها حاليا إلا في وضع التصميم

( ولكن ان شاء الله سنتطرق في دروس متقدمة كيف نقوم بإضافة أي معلومات جديدة حتى لو ان المنظومة في وضع التشغيل – Run -)

أما الآن فسنبدأ بالبسيط, وهو إضافة اسماء الدول إلى هذه القائمة, حتى تكون جاهزة للمستخدم. وحتى نقوم بهذه العملية, نقوم بالضغط مرة واحدة فقط على الإداة ListBox التي قمنا بإضافتها إلى الفورم, حتى يظهر لنا مربع صغير أعلى يمين الأداة, نقوم بالضغط عليه ونضغط على كلمة Edit Items, كما هوا في الصورة التالية.







سيظهر لنا مربع وبه مكان يمكننا كتابة مانرغب في إضافتة إلى الأداة ListBox

وعند كتابة كل عنصر, نقوم بالضغط على المفتاح Enter من لوحة المفاتيح, حيث أن العناصر التي نريد إضافتها يجب أن تكون تحت بعضها وليست بجانب بعضها, أي عموديا.

فمثلا نريد إضافة بعض البلدان في القائمة

نكتب

ليبيا

ثم نضغط على Enter

ثم نكتب اسم البلاد التالية

ثم Enter وهكذا

كما هو موضح في الصورة







ثم نضغط على زر الموافقة حتى تظهر العناصر التي قمنا بإضافتها إلى الأداة, بالشكل التالي.







والآن سنقوم بإضافة عناصر الأداة ComboBox والخاصة بالجنس

والتي سنقوم بإضافة العنصرين ( ذكر, أنثى)

نقوم بالضغط فقط مرة واحدة على الأداة, حتى يظهر لنا المربع الصغير الخاص في أعلى يمين الإداة, نضغط عليه لتظهر لنا مربع الخصائص الخاص بالإداة ونضغط على كلمة Edit Items

نفس الخطوات التي قمنا بها على الإداة ListBox

سيظهر لنا مربع يمكننا من كتابة العناصر التي نريدها, سنقوم بكتابة

الجنس, ذكر وأنثى, ويجب أن يكونوا طبعا في الوضع العمودي, أي يفصل بينها الضغط على الزر Enter, كما فعلنا عند إضافة البلدان.

ثم نضغط على زر الموافقة, حتى تتم إضافة العناصر إلى أداة الـ ComboBox

قم بحفظ ما قمت بعملها لنعود إليه لاحقا.
يتبع .....




إنشاء قاعدة البيانات SQL Server

والآن سننتقل إلى مرحلة إنشاء قاعدة البيانات بواسطة SQL Express والتي غالبا ما تكون مثبتة مع برنامج Visual Studio .
في أعلى القائمة نقوم بالدخول على التبويب
View
ثم نقوم بالضغط على
Server Explorer
كما هو في الصورة



ستظهر لنا نافذة متصلة بالبرنامج عند اليسار
كما هو موضح في الصورة التالية



نقوم بالضغط على الـ Data Connections بزر الفأرة الأيمن – Right Click
لتظهر لنا قائمة ثم نقوم بالضغط على
Create New SQL Server Database
كما هو موضح بالصورة



سيظهر لنا نافذة خاصة بإختيار اسم السيرفر
وفي حالتنا هذه سيكون السيرفر هو نفس جهاز الكمبيوتر الذي نعمل عليه
في الحقل الموجود أسفل كلمة Server Name
قم بالضغط على القائمة المنسدلة وانتظر قليلا ليقوم بالبحث عن الإجهزة المتصلة في حال وجودها
بعد ثواني قليلة سيظهر اسم جهازك على أنه السيرفر
كما هو موضح في الصورة التالية



قم باختيار اسم جهازك
ثم في الحقل الموجود بالأسفل – New database name
قم بكتابة اسم قاعدة البيانات كما تريد أن تسميها
كم في الصورة التالية قمت بتمسيتها – alhandasa.net



سيظهر لنا في النافذة اليسرى الخاصة بالسيرفرات – Server Explorer
سنجد انه تم إنشاء قاعدة البيانات كما قمنا بتمسيتها



والأن لتوفير الوقت واجتناب الاخطاء عند كتابة مسار قاعدة البيانات في كود البرنامج
شخصيا أفضل نسخه بهذه الطريقة, ولعمل ذلك
قم بضغط زر الفأرة الأيمن على قاعدة البيانات ثم إضغط على Properties
ستظهر لك نافذة غالبا ماتكون أسفل يمين الشاشة
ستجد فيها خصائص قاعدة البيانات وستجد في احد الخصائص مكتوب عليه
Connection String
وأمامه حقل باللون الرصاصي لايمكنك التعديل عليه
قم بعمل دبل كلك على الحقل حتى يتم تظليله كله ثم قم بنسخه
كما هو مبين في الصورة



والآن لإضافة الجداول إلى قاعدة البيانات
بالضغط على علامة + الموجودة بجانب قاعد البيانات
ستظهر لنا العديد من المجلدات أحدهما سيكون اسمه Tables
قم بعمل كلك يمين بالفأرة على مجلد الجداول ثم اضغط على
Add New Table



والآن ستظهر لنا في منتصف الشاشة النافذة الخاصة بإضافة الحقول للجدول
ستجد فيها 3 أعمدة
العمود الأول – Column Name
وهو اسم العمود في الجدول
العمود الثاني – Data Type
نوع البيانات التي سيتم حفظها – كمثلا رقمي أو نصي ... الخ
العمود الثالث – Allow Nulls
سأقوم بشرح هذه الخاصية في دروس متقمدة
والآن كما سترون في الصورة التالية لقد قمت بتعبئة أسماء الأعمدة وقمت بإختيار نوع البيانات
كما هو موضح في الصورة



قم بالضغط على زر الحفظ عندها سيظهر لك مربع يطلب منك تسمية قاعدة البيانات
قم بتمسيتها كما تريد, هنا أنا قمت بتمسيته Table1
ثم اضغط على موافق ليتم حفظ الجدول في قاعدة البيانات وسيظهر بالشكل التالي



يتبع ....
__________________
عينك تدمع ولا أحد يمسح دمعك ... تبكي ولا احد يسمع صوتك ... تغيب ولا احد يلاحظ ذلك
انت هنا ولا احد يشعر بوجودك ... حتى من قالو لك انهم يحبونك!
تبـــاً لــــهـــــم
فأنا ماضي في حياتي

28-12-2010, 10:20 PM #4
ArmyMan
لواء




تاريخ التسجيل: 21-01-2004
الأقدمية:
رقم العضوية: 3066
المشاركات: 5,567
المدينة: في مدينة النخيل كل شيء جميل ... الشروق والغروب والهواء العليل
العمر: 25
معدل تقييم المستوى: 270






كتابة الكود

والآن سنبدأ في كتابة الكود
سنعود إلى الشاشة التي قمنا بتمصميها سابقاً
وسنبدأ في هذا الدرس بكتابة كود الإضافة – أي حفظ البيانات إلى قاعدة البيانات
قم بعمل دبل كلك على الزر الذي قمنا بإضافته في الشاشة – زر حفظ البيانات
عندها سيقوم البرنامج بتوجيهك إلى نافذة الكود
أول شي سنقوم بدمج مكتبة الاتصال الخاصة بقواعد البيانات SQL
حيث من خلال هذه المكتبة يستطيع برنامج الفيجوال بيسك التعرف على اكواد الاتصال بقاعدة البيانات التي سنقوم بكتابتها, فمن غير هذه المكتبة لن ولن يستطيع الفيجوال بيسط ترجمة وقرائة اكواد الاتصال بقاعدة البيانات
وطبعا تختلف هذه المكتبات حسب قاعدة البيانات التي سنعمل عليها
وهنا طبعا سنعمل على قاعدة بيانات SQL
لذلك سنقوم بتحميل مكتبة الاتصال الخاصة بالـSQL
وذلك بكتابة هذا الكود في البداية وقبل أي كود
حيث ستكون كافة الأكواد أسفل كود المكتبة
والكود هو

كود:
Imports System.Data.SqlClient
هنا فراغ بين كلمة Imports وباقي الكود
وهناك نقطة بين الـ System والdata والsqlclient
طبعا بمجرد كتابة بداية كلمة imports
سيقوم الفيجوال 2008 بإظهار اقتراحات لما تريد كتابته وكذلك الحال في باقي الكود
سيكون الكود بهذا الشكل



والأن سنقوم بكتابة كود الاتصال بقاعدة البيانات
أول شيء سنقوم بتعريف كائن اتصال بواسة الأمر Dim
وسيكون هكذا

كود:
Dim con As New SqlConnection
حيث الـ con يمكنك تغييرها إلى اي اسم تريده بشرط أن لا يكون اسم محجوز في البرنامج
فمثلا لا يمكن تغييرها إلى dim لأن هذا الاسم محجوز كأمر برمجي
وبالنسبة SqlConnection هو أننا قمنا بتعريف الـ con على انه كائن اتصال بقاعدة بيانات من نوع sql
والآن سنقوم بإعطاء الكائن con مسار قاعدة البيانات ليعرف أين هيا قاعدة البيانات
وتذكر أننا قمنا بعمل نسخ الـ Connection String ليوفر لنا الوقت بدل كتابته والوقوع
في خطأ مطبعي عند الكتابة
سيكون الكود كما يلي
قمت أول بكتابة
كود:
Con.connectionstring =
لا تنسى النقطة بين الكائن con و الـ connectionstring
حيث الـ connectionstring هي خاصية للكائن con
وهذه الخاصية هيا التي ستقوم بتعريف مسار قاعدة البيانات وتوجيه الأكواد البرمجية إلى هذه المسار
بعد كتابة الكود
كود:
Con.connectionstring =
وبعد علامة الـ = قم بإضافة علامة التنصيص " ثم قم بلصق مسار قاعدة البيانات الذي قمنا بنسخه سابقا ثم في نهاية الكود قم بإغلاقة بعلامة تنصيص أخرى
ليصبح الكود بهذا الشكل

كود:
con.ConnectionString = "Data Source=SOMA-PC\SQLEXPRESS;Initial Catalog=alhandasa.net;Integrated Security=True;Pooling=False"
والأن سنكتب كود فتح الإتصال والإضافة
وسنبدأ بكتابة الأمر البرمجي Try
وهذه الأمر يفيد ففي حالة وجود خطأ في الاتصال قاعدة البيانات ستظهر لك رسالة توضح لك أنه يوجد خطأ في الاتصال, فربما يكون الخطأ برمجي بسببك أو خطأ مطبعي
ولولا هذه الخاصية – Try – لن تعرف ما إذا كان ما قمت ببرمجته يعمل بشكل صحيح أو لا
بعد كتابة الأمر Try
ننتقل إلى سطر جديد
سيقوم الفيجوال بإضافة بقية الأمر أي انه سيكون بالشكل التالي

كود:
Try
Catch ex As Exception
End Try
ونحن سنقوم بكتابة بقية الكود تحت الـ Try وفوق الـ Catch ex As Exception
أي بينهما

أول شيء نقوم بكتابة الكود التالي

كود:
Con.open()
حيث قمنا بتوجيه الفيجوال ليقوم بفتح الكائن con, اي انه سيقوم بفتح الاتصال بقاعدة البيانات
في حال وجود خطأ في فتح الإتصال عند التنفيذ, ستظهر لنا رسالة تفيد بذلك بواسطة الأمر try
بعد ذلك سننتقل إلى سطر جديد ونقوم بكتابة الكود الخاصة بالإضافة غلى قاعدة البيانات
سيكون الكود بهذا الشكل

كود:
Dim comsave As String = "insert into table1 values ('" + TextBox1.Text + "','" + ComboBox1.SelectedItem + "','" + ListBox1.Text + "','" + DateTimePicker1.Value.Date + "')"
حيث أنه قمنا بتعريف الكائن comsave على انه سلسلة لتتعرف عليه قاعدة البيانات عند توجيه هذا الكود إليها
وحيث أن comsave يمكنك تسميته كما تريده
وبالنسبة للكود
insert into table1 values
هنا تستطيع ترجمته حرفيا لتعرف ماذا سيقوم هذا الجزء من الكود
حيث ستكون الترجمة
أضف إلى الجدول Table1 القيم
والجدول الــ table1 هو الجدول الذي قمنا بتصميمه سابقا وحفظه
فإذا اختلفت تسميتك للجدول قم بتغيير اسم الجدول هنا
والآن هنا جزء مهم من الكود

كود:
('" + TextBox1.Text + "','" + ComboBox1.SelectedItem + "','" + ListBox1.Text + "','" + DateTimePicker1.Value.Date + "')"
وهذه القيم التي سيتم إضافته إلى الجدول
ولكن يجب أن تعرف أن الترتيب مهما جدا في هذا الجزء
حيث أن أول قيمة مكتوبة في الكود السابقة سيتم حفظها في أول عمود في الجدول
فمثلا هنا القيمة الموجودة في الــ TextBox1.text سيتم إضافتها إلى العمود الأول في الجدول
ووهكذا الثاني الموجود في الكود سيتم حفظه في العمود الثاني بالجدول
حتى النهاية
وهذه الصورة ستوضح أكثر معني كلامي



والآن بعد كتابة الكود السابق ننتقل إلى سطر جديد
فتلك الأكواد لن تنفذ إلى إذا قمنا بتعريف كائن تنفيذي يقوم بتنفيذ تلك الأكواد

كود:
Dim cmd As New SqlCommand(comsave, con)
cmd.ExecuteNonQuery()
حيث هنا قمنا بتعريف الـ cmd على أنه كائن تنفيذي وسيقوم بتنفيذ وتشغيل الكائنين comsave و con
أعتبر أن الـ cmd هو مفتاح تشغيل السيارة ( comsave,con)

حيث قمنا بتعريف أن الـ cmd هو مفتاح تشغيل السيارة
وفي السطر الثاني
أعطينا الأمر ليقوم بتشغيل هذه السيارة
ان شاء الله الفكرة واضحة ومفهومة
وطبعا لو في أي سؤال لا تخجل وتفضل في أي وقت
والأن سنجد أسفل ما قمنا بكتابته من أكواد
الكود التالي

كود:
Catch ex As Exception
End Try
مابينهما سنقوم بكتابة الكود التالي

كود:
MsgBox(ex.message)
حيث أن الــ ex هو الخطأ الذي سيجده الفيجوال في حال وجود خطأ وهنا قمنا بتحويله ليظهر لنا الخطأ على هيئة مربعة حوار (MessageBox)
ثم نكتب

كود:
Finally
Con.close()
وهذا الكود لإغلاق كائن الاتصال
فلو بقي الاتصال مفتوح فلن يمكنك تنفيذ أوامر أخرى في المستقبل كالتعديل أو الحذف
والآن بعد الإنتهاء من كتابة الكود سيكون بالشكل التالي

كود:
Imports System.Data.SqlClient

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim con As New SqlConnection
con.ConnectionString = "Data Source=SOMA-PC\SQLEXPRESS;Initial Catalog=alhandasa.net;Integrated Security=True;Pooling=False"

Try
con.Open()
Dim comsave As String = "insert into table1 values ('" + TextBox1.Text + "','" + ComboBox1.SelectedItem + "','" + ListBox1.Text + "','" + DateTimePicker1.Value.Date + "')"
Dim cmd As New SqlCommand(comsave, con)
cmd.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message)
Finally
con.Close()

End Try

End Sub
End Class
والأن قم بالظغط على المفتاح F5 لتقوم بتجربة البرنامج
وقم بإضافة البيانات
وللتأكد أن البيانات تمت إضافتها في الوقت الحالي
إذهب إلى قاعدة البيانات عن طريق الـ Server Explorer
ثم إذهب إلى الـ Tables
ثم كلك يمين على الجدول الذي قمت بتصميمه
ثم اضغط على Show Table Data
سيظهر لك الجدول كما في الصورة التالية وبه البيانات التي قمت بإضافتها



فإن لم تظهر لك فهذا يعني أن هناك خطأ في كتابة الكود


والآن أتمنى أن يكون الشرح وافي ومفهوم