تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود اضافة اجراء مخزن
#1
السلام عليكم 
لو سمحتم هل يوجد كود لاضافة storedprocedure 
الى سكول
في فيجوال بيسك دوت نت
الرد }}}}
تم الشكر بواسطة:
#2
.....

هذا أبسط مثال... مع رجاء تعديل اسم الموضوع ليستفيد الآخرون في البحث إلى: كود اضافة اجراء مخزن StoredProcedure

منقول مع تعديل بسيط ليناسب طلبك

كود :
' Add References: أضف المراجع التالية
'    Microsoft.SqlServer.ConnectionInfo.dll
'    Microsoft.SqlServer.Management.Sdk.Sfc.dll
'    Microsoft.SqlServer.Smo.dll

Imports Microsoft.SqlServer.Management.Smo
Imports System.Data.SqlClient

Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Try

           ' إسم السيرفر
           Dim srvr As New Server("localhost")

           ' تحديد قاعدة البيانات
           Dim dbase As Database = srvr.Databases("tempdb")

            ' StoredProcedure تحديد اسم
            Dim sprocName As String = "GetName"

            ' التأكد من وجود نفس الاسم مسبقاً
            If dbase.StoredProcedures.Contains(sprocName ) Then
                MsgBox("يوجد StoredProcedure بالاسم " & sprocName & " مسبقاً", _
                       MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading)
                Exit Sub
            End If
           ' StoredProcedure تعريف
           Dim sproc As New StoredProcedure(dbase, sprocName )
           sproc.TextMode = False

           ' إضافة البارامترات
           sproc.Parameters.Add(New StoredProcedureParameter(sproc, "@id", DataType.Int))

           ' جملة إسكيوإل
           sproc.TextBody = " SELECT * FROM table1 WHERE id=@id "

           ' StoredProcedure إنشاء
           sproc.Create()

            MsgBox("تم الإنشاء بنجاح")

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub



   Dim conn As New SqlConnection("Data Source=localhost; Initial Catalog=tempdb; Integrated Security=True")

    'StoredProcedure طريقة التعامل مع
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try

            Using da As New SqlDataAdapter("GetName", conn)
                da.SelectCommand.Parameters.AddWithValue("@id", 2)

                ' StoredProcedure تحديد نوع الأمر وهو هنا
                da.SelectCommand.CommandType = CommandType.StoredProcedure

                Dim dt As New DataTable
                da.Fill(dt)
                Me.DataGridView1.DataSource = dt

            End Using

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

End Class


لحذف StoredProcedure
كود :
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Try

        ' إسم السيرفر
        Dim srvr As New Server("localhost")

        ' تحديد قاعدة البيانات
        Dim dbase As Database = srvr.Databases("tempdb")

        ' StoredProcedure تحديد اسم
        Dim sprocName As String = "GetName"

        ' التأكد من وجوده مسبقاً
        If dbase.StoredProcedures.Contains(sprocName) Then
            If MsgBox("هل بالفعل تريد حذف StoredProcedure بالاسم " & sprocName, _
                   MsgBoxStyle.YesNo + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading) = MsgBoxResult.Yes Then
                dbase.StoredProcedures.Item(sprocName).Drop()

                MsgBox("تم الحذف بنجاح")
            End If
        End If

    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub
.....
الرد }}}}
تم الشكر بواسطة:
#3
جزاك الله خيرا وشكرا للرد وهل يمكن اضافة TRIIGER عن طريق كود وشكرا للرد واعتذر عن كثرة ااسئلة
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية اضافة عناصر عمود فى جدول من قاعدة بيانات فى جدول اخر hidn 1 178 04-11-16, 09:25 AM
آخر رد: thevirus
  التنبيه عند اضافة عميل makky 2 189 18-06-16, 07:22 PM
آخر رد: boudyonline
  [سؤال] في حالة حذف او اضافة صف جديد بالداتا جريد فيو عند التعديل لا تتأثر قاعدة البيانات ِAbou Sama 0 505 26-12-15, 03:52 AM
آخر رد: ِAbou Sama
  [سؤال] هل ممكن اضافة ملف اكسل الى الفيجوال دوت نت 2010 محمد مسافر 2 1,639 25-10-15, 10:46 AM
آخر رد: WAEL ABED
  [VB.NET] ماهي الطريقة الامثل اضافة عدد من البيانات مع صورها قناص المدينة 9 915 31-08-15, 10:48 PM
آخر رد: قناص المدينة
  كيف اعمل اضافة في جدول وتكون الإضافة في الجدول الآخر تلقائي مجروحه 4 715 22-08-15, 02:03 PM
آخر رد: مجروحه
  اضافة صورة عمار عيثاوي 1 607 14-12-14, 06:59 AM
آخر رد: سعود
  [VB.NET] اضافة سجل في datagridview1 البراء 18 2,783 28-11-14, 11:25 PM
آخر رد: atefkhalf2004
  اضافة بيانات حقل من حقل آخر aftfm 1 422 14-10-14, 09:49 AM
آخر رد: سعود
  اضافة السجلات المختلفة من جدول الي اخر atefkhalf2004 9 1,632 07-06-14, 08:13 PM
آخر رد: atefkhalf2004

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


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