Visual Basic

Copy Code

    Overrides Public Function Insert() As Boolean
      Dim scmCmdToExecute As SqlCommand  = New SqlCommand()
      scmCmdToExecute.CommandText = "dbo.[pr_statushistory_Insert]"
      scmCmdToExecute.CommandType = CommandType.StoredProcedure
 
      ' // Use base class' connection object
      scmCmdToExecute.Connection = m_scoMainConnection
 
      Try
        scmCmdToExecute.Parameters.Add(New SqlParameter("@istatushistorynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatushistorynr))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatus))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@iverantwortlich", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortlich))
        scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
 
        If m_bMainConnectionIsCreatedLocal Then
          ' // Open connection.
          m_scoMainConnection.Open()
        Else
          If m_cpMainConnectionProvider.bIsTransactionPending Then
            scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
          End If
        End If
 
        ' // Execute query.
        scmCmdToExecute.ExecuteNonQuery()
                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
 
        If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
          ' // Throw error.
          Throw New Exception("Stored Procedure 'pr_statushistory_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
        End If
 
        Return True
      Catch ex As Exception
        ' // some error occured. Bubble it to caller and encapsulate Exception object
        Throw New Exception("clsStatushistory::Insert::Error occured.", ex)
      Finally
        If m_bMainConnectionIsCreatedLocal Then
          ' // Close connection.
          m_scoMainConnection.Close()
        End If
        scmCmdToExecute.Dispose()
      End Try
    End Function