微軟企業庫ExecuteDataset，傳參執行方法

Public Shared Function ExecuteDataset(ByVal commandType As CommandType, _
                                    ByVal commandText As String, _
                                    ByVal ParamArray commandParameters() As SqlParameter) As DataSet

    Dim db As Database = DatabaseFactory.CreateDatabase()
    Dim cmd As DbCommand
   
    If commandType = CommandType.StoredProcedure Then
        cmd = db.GetStoredProcCommand(commandText)
    Else
        cmd = db.GetSqlStringCommand(commandText)
    End If
   
    If Not commandParameters Is Nothing Then
        For Each param As SqlParameter In commandParameters
            db.AddInParameter(cmd, param.Name, param.Type, param.Value)
        Next
    End If
   
    Return db.ExecuteDataset(cmd)
                                   
End Function 'ExecuteDataset