تحيبة طيبة
ارجو التكرم بشرح مبسط ويفضل ان يكون مبسط جدا عن طريقة التعامل مع سيكوال سيرفر عن طريق فيجوال بيسك والمثال على الشكل التالي
لدي قاعدة بيانات اسمها test1
فيها جدول اسمه table1
اريد شرح عمل كود في بوتون يقوم بحذف كافة محتويات table1
- قم بانشاء مشروع جديد وضع به button فقط لا غير
- في الكود في الاعلى وقبل كل شيء اكتب العبارة التالية
كود :
Imports System.Data.SqlClient
الغاية منها استدعاء نظاق الاسماء الخاص بالتعامل مع سيكوال سيرفر
- انقر نقرتين على البوتون ثم ادخل الكود التالية
كود :
Dim conn As New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=test1;Integrated Security=True")
Dim cmd As New SqlCommand("delete from table1", conn)
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
لاحظ في السطـر الاول عرفنا متغير اسمه ما شئت ولكن عادة يسميه المبرمجون con او conn او sqlcon او sqlconn سمه ما شئت ولو اني افضل التقيد بالروتين العام لـ (مجتمع المبرمجين)
لاحظ ان جملة الاتصال تتألف هنا من ثلاث اجزاء في الجزء الاول نجد
Data Source=.\SQLEXPRESS وهذا الجزء مسؤل عن اسم السيرفر وفي حال كنت تستخدم الاصدار express من سيكوال سيرفر فإنك تستطيع ان تضع اسم السيرفر بالشكل الذي تراه بالكود وسيتم التعامل مع الامر بشكل الي - الجزء الثاني Initial Catalog=test1 وهو مسؤل عن اسم قاعدة البيانات وفي مثالنا قاعدة البيانات اسمها test1 اما الجزء الثالث Integrated Security=True فهو مسؤل عن اسلوب التواصل مع السيكوال سيرفر ولاحظ ان بين كل جزء واخر يتم الفصل بالرمز التالي ;
-نأتي للسطر الثاني قمنا بتعريف متغير اسميته cmd وهو من النوع SqlCommand وابسط طريقة هي ان تقوم بفتح قوسين بعده كما تلاحظ في الكود وتكتب بين اشارتي تنصيص الاستعلام المناسب Query وبعده فاصلة ثم تضع وسيلة الاتصال وهي بمثالنا هذا المتغير conn وفي مثالنا الاستعلام المراد تنفيذه هو "delete from table1" اي احذف كل السجلات في الجدول الذي اسمه table1
- السطر الثالث نقوم بفتح الاتصال
- السطر الرابع نقوم بتنفيذ الامر المبرمج في المتغير cmd
- السطر الخامس نقوم باغلاق الاتصل
- في جال حاولت فتح الاتصال وكان مفتوح من قبل هذا خطأ فلذلك يفضل المبرمجون ان يكون الكود على الشكل التالي
كود :
Dim conn As New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=test1;Integrated Security=True")
Dim cmd As New SqlCommand("delete from table1", conn)
If conn.State = ConnectionState.Open Then
conn.Close()
End If
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
- عند التعامل مع سيكوال سيرفر يفتح الاتصال معه فقط وقع الضرورة اي وقت تنفذ امر مثل جلب بيانات او حذف بيانات وادخال بيانات او التعديل عليها ثم بعد تنفيذ الامر مباشرة نغلق الاتصال
تماام شكرا لك على الشرح الجميل