تقييم الموضوع :
  • 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 عن طريق كود وشكرا للرد واعتذر عن كثرة ااسئلة
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  *[- تم الحل -]* ما هو كود اضافة ميزة المفتاح الاساسي لعمود ترقيم تلقائي موجود سعود 2 498 27-05-23, 01:44 AM
آخر رد: سعود
  [سؤال] كود اضافة وحفظ وتعديل والحذف فى DATAGRIDVIEW atef_020 9 28,326 31-08-21, 04:59 AM
آخر رد: a7med saba
  [سؤال] مشكلة اضافة التاريخ مع قاعدة بيانات alims 6 2,336 25-01-21, 02:45 AM
آخر رد: alims
  اضافة ارقام تسلسلية فيsql Hassan.syria 1 1,368 21-11-19, 09:07 PM
آخر رد: Hassan.syria
  منع التكرار في اضافة بيانات لقاعدة بيانات أكسس vb.net ahmedshafea 3 10,222 01-07-19, 12:28 PM
آخر رد: essamprog
  (سؤال؟)كود اضافة التاريخ في قاعدة البيانات اسمهان 1 2,032 20-02-19, 11:08 AM
آخر رد: alfaiz678
  كود sql اضافة او تغير كلمة المرور لقاعدة البيانات اللورد محمود 1 1,850 28-01-19, 06:56 PM
آخر رد: عبد العزيز البسكري
  [سؤال] بخصوص اضافة / حذف / تعديل بيانات لقاعدة ACCESS Temiz 0 3,150 24-01-18, 12:49 AM
آخر رد: Temiz
  [VB.NET] مثال +سؤال اضافة حذف عرض السجلات ahmedalans 6 3,320 10-05-17, 06:06 PM
آخر رد: ahmedalans
  [سؤال] كيفية اضافة عناصر عمود فى جدول من قاعدة بيانات فى جدول اخر hidn 1 2,939 04-11-16, 09:25 AM
آخر رد: thevirus

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


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