Visual Basic

Copy Code

 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