Листинг 8

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

        Dim databaseName As String
        Dim datasourceName As String
        Dim db As Database
        databaseName = «AdventureWorksAMO»
        ? Получить ссылку на базу данных
        db = myServer.Databases.Item(databaseName)
        ? Создать Data Source
        datasourceName = «Adventure Works AMO»
        If db.DataSources.ContainsName(datasourceName) Then
            Throw New ArgumentOutOfRangeException(datasourceName, _
              «Data Source already exists in the database.»)
        End If
        Dim ds As RelationalDataSource = New RelationalDataSource(datasourceName, _
        				Utils.GetSyntacticallyValidID(datasourceName, _
                              GetType(RelationalDataSource)))
        ? Добавить Data Source к списку источников данных
        db.DataSources.Add(ds)
        ds.ConnectionString = «Provider=SQLOLEDB.1;Data Source=(local);» & _
            «Integrated Security=SSPI;Initial Catalog=AdventureWorksDW»
        ds.Update()