Visual Basic

Copy Code

    Overrides Public Function Insert() As Boolean
      Dim scmCmdToExecute As SqlCommand  = New SqlCommand()
      scmCmdToExecute.CommandText = "dbo.[pr_Journaleintrag_Insert]"
      scmCmdToExecute.CommandType = CommandType.StoredProcedure
 
      ' // Use base class' connection object
      scmCmdToExecute.Connection = m_scoMainConnection
 
      Try
        scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournalnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iJournalnr))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@seintrag", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEintrag))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@dadatumzeit", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDatumzeit))
        scmCmdToExecute.Parameters.Add(new SqlParameter("@ijournaleintragnr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iJournaleintragnr))
        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_iJournaleintragnr = scmCmdToExecute.Parameters.Item("@ijournaleintragnr").Value
                m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
 
        If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
          ' // Throw error.
          Throw New Exception("Stored Procedure 'pr_Journaleintrag_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("clsJournaleintrag::Insert::Error occured.", ex)
      Finally
        If m_bMainConnectionIsCreatedLocal Then
          ' // Close connection.
          m_scoMainConnection.Close()
        End If
        scmCmdToExecute.Dispose()
      End Try
    End Function