26-09-12, 07:59 PM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
السلام عليكم ورحمة الله وبركاته
اقدم لكم اليوم موضوع مفيد باذن الله
التعامل مع قواعد البيانات Sql Server 2005 خطوة بخطوة
التعامل مع قواعد البيانات Sql Server 2005 خطوة بخطوة
المرحلة الأولى
_________
انشاء قاعدة بيانات SQL Server 2005
_________
انشاء قاعدة بيانات SQL Server 2005
تشغيل VB.NET
من قائمة ( View ) نختار ( Server Explorer ) رح يبين معنا على يسار الشاشة قائمة
بنعمل Right click على ( Data Connections ) و بنضغط على (Create New SQL Server DataBase ) كما بالصورة
من قائمة ( View ) نختار ( Server Explorer ) رح يبين معنا على يسار الشاشة قائمة
بنعمل Right click على ( Data Connections ) و بنضغط على (Create New SQL Server DataBase ) كما بالصورة
الان يجب علينا تحديد السيرفر الذي سنقوم بعمل قاعدة البيانات عليه
و بما انا نعمل على SQL Server 2005 Express فسيكون السيرفر ( .\SQLExpress ) و سنقوم بتسمية قاعدة البيانات باسم ( vb4arab ) كما بالصورة التالية
الان نقوم بعمل الجداول داخل قاعدة البيانات
اولا بنضغط كما بالصورة على ( Add New tble )
قمنا بعمل ثلاث حقول و تسمية الجدول باسم ( VB )
المرحلة الثانية
الاتصال مع قاعدة البياناتالان نقوم بعمل الجداول داخل قاعدة البيانات
اولا بنضغط كما بالصورة على ( Add New tble )
نقوم الان بعمل الحقول داخل الجدول وحفظة كما بالصورة
قمنا بعمل ثلاث حقول و تسمية الجدول باسم ( VB )
المرحلة الثانية
بعد ان قمنا بعمل قاعدة البيانات بقي الان علينا الاتصال بها
ولانا سنقوم بالاتصال مع قاعة بيانات من نوع ( SQL Server ) سنقوم باستيراد مكتبة الـ SqlClient للتعامل مع قاعدة البيانات
بنضع الكود التالي في الـ ( General )
ولانا سنقوم بالاتصال مع قاعة بيانات من نوع ( 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]
نقوم بتعريف متغير للاتصال ( 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=2][SIZE=2][SIZE=2]
[/SIZE][/SIZE]
كود فتح الاتصال
[SIZE=2][COLOR=#800000][COLOR=#000000]
كود انهاء الاتصال
الان قمنا بالاتصال مع قاعدة البيانات
بقي علينا القيام بالعمليات عليها
المرحلة الثالثة
الاضافة على قاعدة البيانات
بعد ان قمنا بعمل قاعدة البيانات و الاتصال بها بقي الان علينا القيام بالعمليات عليها
و من هذه العمليات الاضافة
من اهم الاغراض التي تستخدم بها قاعدة البيانات هي تخزين البيانات بها لاسترجاعها وقت الحاجة
بداية سنقوم بتعريف متغير لاسناد اوامر ال SQL اليه
و بما انا سنستخدمه كثيرا في البرنامج سنقوم بتعريفه داخل الكلاس
نفرض ان المتغير هو ( ٍSqlStr )
نقوم الان بتعريفه كالتالي
وسنحتاج ايضا الى متغير اخر لحمل الاومر وتنفيذها داخل قاعدة البيانات وسيكون من نوع SqlCommand
و ايضا سنستخدمه كثير لذا نقوم بتعريفة داخل الكلاس
وبالنفرض ان اسمه هو ( Cmd )
الان سنقوم بالاضافة
امر الاضافة بالـ ( SQL ) كالتالي
( INSERT INTO TableName VALUES FieldValue )
وعلى هذا الاساس سنكمل
الان عندنا ثلاث قيم للادخال في برناجنا وهي
1- UserID
2- Username
3-Password
لذا سنقسم الامر كالتالي
شرح الكود
في السطر الاول اخبرنا انه سيتم ادخال ثلاث قيم داخل الجول ( VB )
في السطر الثاني ربطناه بكلمة ( VALUES )
السطر الثالث هي القيم التي سيتم ادخالها داخل القاعدة و هي موجودة داخل الـ TextBoxes
الان اصبح الامر جاهزا بقي تنفيذه
بما انا عرفنا متغير لحمل الامر و تنفيذه داخل قاعدة البيانات نكتب الامر التالي
شرح الكود
اخبرنا المتغير انا نريد امر جديد و سينفذ امر ال SQL الذي خزناه داخل متغير ( SqlStr ) في الاتصال الذي عرفناه بالكلاس في الدرس السابق و هو ( Con )
الان الماغير يحمل القيم و يعرف مكان قاعدة البيانات
بقي الان علينا ان نفتح الاتصال و تنفيذ الامر
كما ذكرنا سابقاً ان كود فتح الاتصال هو
الان فتحنا الاتصال
الان جاء وقت تنفيذ الامر
بالكود التالي
الكود السابق نفذ ( Cmd ) التي تحمل الامر و مكان الاتصال
بعد ان نفذ الامر الان سنقوم بارجاع الاتصال الى حالة الخمول
بمعنى اخر سنقوم بقطع الاتصال
يمكننا الان اخراج رسالة للمستخدم تفيد بانه تم حفظ البيانات (اختياري)
الان قمنا بالاضافة بنجاح الى قاعدة البيانات
و هذه الكود كامل لحفظ البيانات
يتبع ....
كود :
[/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][/SIZE]
[COLOR=#000000]بعد ان قمنا بتحديد الاتصال و مكانه اصبحنا الان قادرين على الاتصال بها من خلال الكود التالي الذي سنستخدمه بعد قليل عن القيام بعمليات على قاعدة البيانات
كود فتح الاتصال
كود :
[/COLOR][/COLOR][/SIZE]
[align=center][SIZE=2]Con.Open()[/SIZE]
[/align]
كود انهاء الاتصال
كود :
[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]
يتبع ....