|
Visual Basic
|
 Copy Code
]]>
|
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
|
|