问3层应用问题

EN

ALTER PROCEDURE dbo.addMovie
(
@film_naam nvarchar(50),
@film_hoofdrol nvarchar(50)

)
AS
/* SET NOCOUNT ON */
INSERT INTO tbl_film 
     (film_naam, film_status, film_hoofdrol)
     VALUES(@film_naam,0,@film_hoofdrol)
RETURN

  <WebMethod()> _
Public Function addMovie(ByVal film_naam As String, ByVal film_hoofdrol As String) As Boolean
    Dim Movie_rent As New Movie_rentDB()
    Return Movie_rent.addMovie(film_naam, film_hoofdrol)
End Function

Public Class Movie_rentDB
Private strApplicationName As String = "Movie rent"

Private strConnection As String
Private conMovie As SqlConnection
Private adapMovie As New SqlDataAdapter
Private CommandMovie As SqlCommand
Private DataSetMovie As New DataSet

Private sqlTransaction As SqlTransaction
Private objLoggingService As Logging.Logging = New Logging.Logging("d:\\WebService.log")

Public ReadOnly Property ConnectionString() As String
    Get
        Try
            Return ConfigurationManager.ConnectionStrings("Movie_rent").ConnectionString

        Catch ex As Exception
            objLoggingService.WriteLine(strApplicationName, ex.Message)
            Throw (ex)
        End Try
        Return ""
    End Get
End Property

Public Sub CreateConnection()
    Try
        conMovie = New SqlConnection(ConnectionString)
    Catch ex As Exception
        objLoggingService.WriteLine(strApplicationName, ex.Message)
        Throw (ex)
    End Try
End Sub
Private Sub Prepare_StoredProcedureCall(ByVal strStoredProcedure As String)
    Try
        CommandMovie = New SqlCommand(strStoredProcedure, conMovie)
        CommandMovie.CommandType = CommandType.StoredProcedure

        adapMovie = New SqlDataAdapter(CommandMovie)
        DataSetMovie = New DataSet()

        conMovie.Open()

        sqlTransaction = conMovie.BeginTransaction
        CommandMovie.Transaction = sqlTransaction

    Catch ex As Exception
        objLoggingService.WriteLine(strApplicationName, ex.Message)
        Throw (ex)
    End Try
End Sub
Private Sub Finish_StoredProcedureCall()
    Try
        If (conMovie.State = ConnectionState.Open) Then
            conMovie.Close()
        End If
    Catch ex As Exception
        objLoggingService.WriteLine(strApplicationName, ex.Message)
        Throw (ex)
    End Try
End Sub
Public Function getAllMovies() As DataSet
    Try
        Prepare_StoredProcedureCall("getAllMovies")
        adapMovie.Fill(DataSetMovie, "tbl_film")
        sqlTransaction.Commit()
    Catch ex As Exception
        If Not (sqlTransaction Is Nothing) Then
            sqlTransaction.Rollback()
        End If
        DataSetMovie = Nothing
        objLoggingService.WriteLine(strApplicationName, ex.Message)
        Throw (ex)
    End Try
    Try
        Finish_StoredProcedureCall()
    Catch ex As Exception
        DataSetMovie = Nothing
        Throw (ex)
    End Try
    Return DataSetMovie
End Function
Public Function addMovie(ByVal film_naam As String, ByVal film_hoofdrol As String) As Boolean
    Dim bStatus As Boolean = False
    Try
        Prepare_StoredProcedureCall("addMovie")

        With CommandMovie.Parameters
            .AddWithValue("film_naam", film_naam)
            .AddWithValue("film_status", 0)
            .AddWithValue("film_hoofdrol", film_hoofdrol)

        End With
        CommandMovie.ExecuteNonQuery()
        sqlTransaction.Commit()
        bStatus = True
    Catch ex As Exception
        sqlTransaction.Rollback()
        objLoggingService.WriteLine(strApplicationName, ex.Message)
        Throw (ex)
    End Try
    Finish_StoredProcedureCall()
    Return bStatus
End Function