Devart Forums

Code: Select all

      Dim myConn As UniConnection = New UniConnection("Provider=SQL Server;User Id=sa;Password=hhzstsll;Data Source=IBM008;Database=pubs")
        myConn.Open()

        Dim includeReturnValueParameter As Boolean = False

        Dim spName As String = "byroyalty"
        Dim cmd As UniCommand = New UniCommand(spName, myConn)
        Dim discoveredParameters() As UniParameter


        cmd.CommandType = CommandType.StoredProcedure
        UniCommandBuilder.DeriveParameters(cmd)
        If Not includeReturnValueParameter Then
            cmd.Parameters.RemoveAt(0)
        End If

        discoveredParameters = New UniParameter(cmd.Parameters.Count - 1) {}
        cmd.Parameters.CopyTo(discoveredParameters, 0)