منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
Stored procedures - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم مقالات SQL SERVER (http://vb4arb.com/vb/forumdisplay.php?fid=84)
+--- الموضوع : Stored procedures (/showthread.php?tid=5228)



Stored procedures - honeesh - 06-10-12

السلام عليكم ورحمة الله وبركاتة
هذة اول مرة اشارك ارجو المعذرة
سؤالي لوتكرمتم كيف استدعي اجراء في SQL SERVER من داخل الفيجول بيسك 2010
ماجورين

USE [Hon1]
GO
/****** Object: StoredProcedure [dbo].[hone] Script Date: 19/11/1433 10:58:41 PM ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROC [dbo].[hone]

@UIDZ int,@UFRM INT

AS
begin
SELECT * FROM CHOCES WHERE id = 1
INSERT INTO UserPermissionsValues(UserID,PermissionID,PermissionValue)
VALUES

(@UIDZ,@UFRM,1)

end


Stored procedures - honeesh - 06-10-12

هنا في الفيجول بيسك

Sub ncmd()
Try
Dim Conn As New SqlConnection(Constants.ConSTR)
If Conn.State = ConnectionState.Closed Then
Conn.Open()
Dim CMD As New SqlCommand("HONE", Conn)اسم الاجراء



CMD.CommandType = CommandType.StoredProcedure

CMD.Parameters.Add(New SqlParameter("@UIDZ", Form1.LbID.Text))
CMD.Parameters.Add(New SqlParameter("@UFRM", Lbfrm.Text))
CMD.ExecuteNonQuery()

End If

Conn.Close()

Catch ex As Exception
MsgBox(ex.Message)


End Try
End Sub

هنا الاجراء في السيرفر
USE [Hon1]
GO
/****** Object: StoredProcedure [dbo].[hone] Script Date: 20/11/1433 02:11:24 AM ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROC [dbo].[hone]

@UIDZ int,@UFRM INT

AS
begin
SELECT * FROM CHOCES WHERE id = 1
INSERT INTO UserPermissionsValues(UserID,PermissionID,PermissionValue)
VALUES

(@UIDZ,@UFRM,1)

end


Stored procedures - كلكامش الألكتروني - 06-10-12

اخي الكريم يتوجب عليك وضعك سؤالك في قسم الاسئلة وليس في قسم المقالات تقبل مني خالص الود


Stored procedures - honeesh - 06-10-12

انا اسف جدا استاذنا