Листинг 9

Пример создания объекта Data Source View

        Dim datasourceviewName As String
        Dim tableName As String
        Dim ds As DataSource
        ds = db.DataSources(datasourceName)
        datasourceviewName = «Adventure Works AMO»
        Dim rdsv As DataSourceView = db.DataSourceViews.Add(datasourceviewName, _
Utils.GetSyntacticallyValidID(datasourceviewName, _
                              GetType(DataSourceView)))
        rdsv.DataSourceID = ds.ID
        tableName = «FactSalesQuota»
        Dim cn As OleDbConnection = New OleDbConnection(ds.ConnectionString)
        Dim cmd As OleDbCommand = New OleDbCommand(tableName, cn)
        cmd.CommandType = CommandType.TableDirect
        Dim dss As New DataSet
        Dim ad As OleDbDataAdapter = New OleDbDataAdapter(cmd)
        ad.FillSchema(dss, SchemaType.Source)
        dss.Tables(0).TableName = tableName
        rdsv.Schema = New DataSet rdsv.Schema.Tables.Add(dss.Tables(tableName).Clone())
        rdsv.Update()