+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : استفسار عن اصدار امر من فيجوال بيسك الى سيكوال سيرفر (/showthread.php?tid=40729)
استفسار عن اصدار امر من فيجوال بيسك الى سيكوال سيرفر - salim0ham - 10-02-22
تحيبة طيبة
ارجو التكرم بشرح مبسط ويفضل ان يكون مبسط جدا عن طريقة التعامل مع سيكوال سيرفر عن طريق فيجوال بيسك والمثال على الشكل التالي
لدي قاعدة بيانات اسمها test1
فيها جدول اسمه table1
اريد شرح عمل كود في بوتون يقوم بحذف كافة محتويات table1
RE: استفسار عن اصدار امر من فيجوال بيسك الى سيكوال سيرفر - ابو انس - 10-02-22
- قم بانشاء مشروع جديد وضع به 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()لاحظ ان جملة الاتصال تتألف هنا من ثلاث اجزاء في الجزء الاول نجد 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()RE: استفسار عن اصدار امر من فيجوال بيسك الى سيكوال سيرفر - salim0ham - 11-02-22
تماام شكرا لك على الشرح الجميل