تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استفسار عن اصدار امر من فيجوال بيسك الى سيكوال سيرفر
#1
تحيبة طيبة
ارجو التكرم بشرح مبسط ويفضل ان يكون مبسط جدا عن طريقة التعامل مع سيكوال سيرفر عن طريق فيجوال بيسك والمثال على الشكل التالي
لدي قاعدة بيانات اسمها test1
فيها جدول اسمه table1
اريد شرح عمل كود في بوتون يقوم بحذف كافة محتويات table1
الرد }}
تم الشكر بواسطة:
#2
- قم بانشاء مشروع جديد وضع به 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()
- عند التعامل مع سيكوال سيرفر يفتح الاتصال معه فقط وقع الضرورة اي وقت تنفذ امر مثل جلب بيانات او حذف بيانات وادخال بيانات او التعديل عليها ثم بعد تنفيذ الامر مباشرة نغلق الاتصال
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 

واتساب 00963951283515
الرد }}
#3
تماام شكرا لك على الشرح الجميل
الرد }}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استفسار عن فكرة عمل برنامج نظام صندوق مالي مصغر بشكل مبسط nowiglah 9 299 12-08-22, 05:57 AM
آخر رد: Taha Okla
  هل فيجوال بيسك يدعم تقسيم الملف؟ سعود 8 368 07-08-22, 05:38 AM
آخر رد: سعود
  مشكلة تنصيب سيكول سيرفر حماده ممدوح البحيرى 1 126 04-08-22, 02:05 AM
آخر رد: Jounior_P
  [سؤال] مشكله في تنصيب فيجوال استوديو 2019 حسن الجلب 3 168 02-08-22, 03:44 PM
آخر رد: حسن الجلب
  [سؤال] تفعيل برنامج فيجوال استوديو حسن الجلب 5 281 30-07-22, 12:40 PM
آخر رد: حسن الجلب
  [سؤال] لينك تحميل برنامج فيجوال استوديو 2019 حسن الجلب 1 140 29-07-22, 08:59 PM
آخر رد: أبو خالد الشكري
  [VB.NET] استفسار بخصوص vb.net yassoo1985 7 1,341 28-07-22, 04:11 AM
آخر رد: yassoo1985
  [سؤال] كود التحقق من لغه الادخال فيجوال بيسك حسن الجلب 3 234 22-07-22, 09:13 PM
آخر رد: حسن الجلب
  [VB.NET] رجاء اريد كود فيجوال بحث عن ملف في كمبيوتر داخل فورم jam3h 5 897 06-07-22, 12:02 AM
آخر رد: jam3h
  [VB.NET] أبحث عن شرح أو برنامج صغير للتعامل مع بصمة الأصبع بالفجوال بيسك abomo3ath 1 322 26-06-22, 03:24 AM
آخر رد: DR.YASER

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم