EDOKA_DMS/Backup/EDOKA/DB/MyDBObjects/clsMyPartner.vb

Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient

Namespace edokadb
    Public Class clsMyPartner
        Public Function search_partner(ByVal query As String, ByVal anzahl As String, ByVal fnkt As Integer) As DataTable
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim table As String = "dbo.partner"
            scmCmdToExecute.CommandText = "dbo.[sp_partner_search]"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            Dim dtToReturn As DataTable = New DataTable("partner")
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)

            ' // Use base class' connection object
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@query", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, query))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@table", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, table))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@anz", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, anzahl))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt))
                scmCmdToExecute.Connection.Open()
                sdaAdapter.Fill(dtToReturn)
                Return dtToReturn
            Catch ex As Exception
                ' // some error occured. Bubble it to caller and encapsulate Exception object
                Throw New Exception("clsMyPartner::sp_partner_search::Error occured." + ex.Message, ex)
            Finally
                scmCmdToExecute.Connection.Close()
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try
        End Function

        Public Function search_doppelte_partner(ByVal query As String, ByVal table As String, ByVal fnkt As Integer) As DataTable
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            scmCmdToExecute.CommandText = "dbo.[sp_partner_search]"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            Dim dtToReturn As DataTable = New DataTable("partner")
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)

            ' // Use base class' connection object
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@query", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, query))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@table", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, table))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@anz", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 4))
                scmCmdToExecute.Connection.Open()
                sdaAdapter.Fill(dtToReturn)
                Return dtToReturn
            Catch ex As Exception
                ' // some error occured. Bubble it to caller and encapsulate Exception object
                Throw New Exception("clsMyPartner::sp_partner_search::Error occured." + ex.Message, ex)
            Finally
                scmCmdToExecute.Connection.Close()
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try
        End Function


        Public Function Partner_Detail(ByVal nrpar00 As String) As DataTable
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim table As String = "dbo.partner"
            scmCmdToExecute.CommandText = "dbo.[sp_partner_detail]"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            Dim dtToReturn As DataTable = New DataTable("partner")
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)

            ' // Use base class' connection object
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
                scmCmdToExecute.Connection.Open()
                sdaAdapter.Fill(dtToReturn)
                Return dtToReturn
            Catch ex As Exception
                ' // some error occured. Bubble it to caller and encapsulate Exception object
                Throw New Exception("clsMyPartner::sp_partner_detail::Error occured." + ex.Message, ex)
            Finally
                scmCmdToExecute.Connection.Close()
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try
        End Function

        Public Function Partner_VV(ByVal nrpar00 As String) As DataTable
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim table As String = "dbo.partner"
            scmCmdToExecute.CommandText = "dbo.[sp_partner_vv]"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            Dim dtToReturn As DataTable = New DataTable("partner")
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)

            ' // Use base class' connection object
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
                scmCmdToExecute.Connection.Open()
                sdaAdapter.Fill(dtToReturn)
                Return dtToReturn
            Catch ex As Exception
                ' // some error occured. Bubble it to caller and encapsulate Exception object
                Throw New Exception("clsMyPartner::sp_partner_vv::Error occured." + ex.Message, ex)
            Finally
                scmCmdToExecute.Connection.Close()
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try
        End Function

        Public Function Partner_Gebdat(ByVal nrpar00 As String) As String
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim table As String = "dbo.partner"
            scmCmdToExecute.CommandText = "dbo.[sp_partner_gebdat]"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            Dim dtToReturn As DataTable = New DataTable("partner")
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)

            ' // Use base class' connection object
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@gebdat", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
                scmCmdToExecute.Connection.Open()
                sdaAdapter.Fill(dtToReturn)

                Return scmCmdToExecute.Parameters("@gebdat").Value
            Catch ex As Exception
                '   MsgBox(ex.Message)
                ' // some error occured. Bubble it to caller and encapsulate Exception object
                '  Throw New Exception("clsMyPartner::sp_partner_vv::Error occured." + ex.Message, ex)
                Return ""
            Finally
                scmCmdToExecute.Connection.Close()
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try
        End Function

        Public Function Partner_Betreuer(ByVal nrpar00 As String) As String
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim table As String = "dbo.partner"
            scmCmdToExecute.CommandText = "dbo.[sp_partner_betreuer]"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            Dim dtToReturn As DataTable = New DataTable("partner")
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)

            ' // Use base class' connection object
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@betreuer", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
                scmCmdToExecute.Connection.Open()
                sdaAdapter.Fill(dtToReturn)
                Return scmCmdToExecute.Parameters("@betreuer").Value
            Catch ex As Exception
                ' // some error occured. Bubble it to caller and encapsulate Exception object
                Throw New Exception("clsMyPartner::sp_partner_vv::Error occured." + ex.Message, ex)
                Return ""
            Finally
                scmCmdToExecute.Connection.Close()
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
                dtToReturn.Dispose()
            End Try

        End Function


    End Class
End Namespace