[samerselo]

هذا مثال عن الأكواد التي اتحدث عنها

كما تلاحظ عبارة Try شئ ثابت لدي في أي إجراء أقوم بتنفيذه

كود :

Public Shared Function AddUserActivityRecord(ByVal UsrNam As String, ByVal FormName As String, ByVal OperationExecuted As String,
                                               ByVal OPER_DESCR As String) As Integer

       Try
           Using con As New SqlConnection(ConfigurationManager.ConnectionStrings("JoyBoxStaff").ConnectionString)
               Dim cmd As New SqlCommand()
               cmd.Connection = con
               cmd.CommandText = "INSERT INTO USER_ACTIVITY (USER_NAME, FORM_NAME, OPERATION_EXECUTED, DATE_AND_TIME, OPERATION_DESCRIPTION) "
               cmd.CommandText &= "VALUES (@USR, @FRN, @OPX, @DTM, @OPERATION_DESCRIPTION)"

               cmd.Parameters.Add("@USR", Data.SqlDbType.NVarChar).Value = UsrNam
               cmd.Parameters.Add("@FRN", Data.SqlDbType.NVarChar).Value = FormName
               cmd.Parameters.Add("@OPX", Data.SqlDbType.NVarChar).Value = OperationExecuted
               cmd.Parameters.Add("@DTM", SqlDbType.DateTime2, 7).Value = DateTime.Now

               cmd.Parameters.Add("@OPERATION_DESCRIPTION", Data.SqlDbType.NVarChar).Value = OPER_DESCR

               cmd.Connection.Open()
               Return cmd.ExecuteNonQuery()
               cmd.Connection.Close()
           End Using
       Catch ex As Exception
           Return -10
       End Try
   End Function