[Mr. DotNet]

المرحلة الخامسة
الحذف
_____

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

جملة الحذف سهلة جداً و هي اسهل من غيرها

القاعدة الرئيسية لها هي

كود :

Delete From TableName Where(TableName.Field="Value")

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

نقوم الان كالعادة بتعريف متغيران اساسيان هما SqlStr و Cmd
كما شرحنا سابقا الـ SqlStr هو متغير نصي لحمل جملة الـ SQL التي نريد تنفيذها . ان كانت اضافة او حذف او بحث او تعديل
اما بالنسبة لـ Cmd فهي لتنفيذ أمر الـ SQL الذي نريد تنفيذه في قاعدة البيانات

نقوم الان بتعريف المتغيرات
أولاً : SqlStr من نوع String

كود :

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

ثانياً : Cmd من نوع SqlCommand

كود :

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

نريد الان مثلا حذف الـ UserID الذي يوجد مثلاً داخل الـ TextBox1
طبعاً ما زلنا على قاعدة البيانات vb4arab و اسم الجدول هو VB

وسيكون امر الحذف على الشكل التالي

كود :

[SIZE=2]SqlStr = [/SIZE][SIZE=2][color=#a31515][SIZE=2][COLOR=#a31515]"Delete From VB Where(VB.UserID='"[/color][/SIZE][/COLOR][/SIZE][SIZE=2] & TextBox1.Text & [/SIZE][SIZE=2][color=#a31515][SIZE=2][COLOR=#a31515]"')"[/color][/SIZE][/COLOR][/SIZE]

والان سنقوم بتحميل الامر الى الـ Cmd



نقوم بطلب Command جديد و نحمل امر الـ SQL بداخله و تنفيذه بالاتصال Con

كود :

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

قمنا بتحميل امر الـ SQL الخاص بعملية الحذف و المخزن داخل SqlStr داخل الـ Cmd و تنفيذها داخل الاتصال Con



الان اصبح كل شيء جاهز للتنفيذ



لكن يجب علينا فتح الاتصال مع قاعدة البيانات

كود :

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

بقي علينا الان تنفيذ العملية عن طريق الامر التالي

كود :

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

لقد قمنا الان بحذف القيمة


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

كود :

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

ينكننا ان نظهر رسالة بعد الحذف كالتالي

كود :

[SIZE=2]MsgBox([/SIZE][SIZE=2][color=#a31515][SIZE=2][COLOR=#a31515]"User Deleted"[/color][/SIZE][/COLOR][/SIZE][SIZE=2])[/SIZE]

و هذا الكود كامل

كود :

[SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]Dim[/color][/SIZE][/COLOR][/SIZE][SIZE=2] SqlStr [/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]As[/color][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff] String
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]Dim[/color][/SIZE][/COLOR][/SIZE][SIZE=2] Cmd [/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]As[/color][/SIZE][/COLOR][/SIZE][SIZE=2] SqlCommand
[/SIZE] [SIZE=2]SqlStr = [/SIZE][SIZE=2][color=#a31515][SIZE=2][COLOR=#a31515]"Delete From VB Where(VB.UserID='"[/color][/SIZE][/COLOR][/SIZE][SIZE=2] & TextBox1.Text & [/SIZE][SIZE=2][color=#a31515][SIZE=2][COLOR=#a31515]"')"[/color][/SIZE][/COLOR][/SIZE]
[align=center][SIZE=2]Cmd = [/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]New[/color][/SIZE][/COLOR][/SIZE][SIZE=2] SqlCommand(SqlStr, Con)[/SIZE]

[SIZE=2]Con.Open()[/SIZE]
[SIZE=2]Cmd.ExecuteNonQuery()
[/SIZE] [SIZE=2]Con.Close()
[/SIZE] [SIZE=2]MsgBox([/SIZE][SIZE=2][color=#a31515][SIZE=2][COLOR=#a31515]"User Deleted"[/color][/SIZE][/COLOR][/SIZE][SIZE=2])[/SIZE]
[/align]

أرجو أن يكون كل شيء واضح