[honeesh]

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

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