Środowisk programistycznych
Ostrzeżenie
Ta funkcja zostanie usunięta z następnej wersji programu Microsoft SQL Server. Nie należy stosować tej funkcji w nowych projektach oraz jak najszybciej należy zmodyfikować aplikacje, w których obecnie jest używana ta funkcja.
Decision Support Objects (DSO) można użyć dowolnego języka obsługującego automatyzację COM, takie jak Microsoft ® Visual Basic ®, Microsoft Visual Basic Scripting Edition lub Microsoft Visual C++ ®.
Visual Basic
Po prostu ustawiając biblioteki obiektów Decision Support Objects jako odwołanie projektu można użyć biblioteki DSO w języku Visual Basic.
Przykład
Dim dsoServer As New DSO.Server
dsoServer.Connect "LocalHost"
Ustawienie programu odniesienia
Aby użyć biblioteki DSO w aplikacji Visual Basic, należy go dodać jako odwołanie do projektu.Na Project menu, kliknij References, a następnie wybierz Microsoft Decision Support Objects.
Visual Basic Scripting Edition
Programiści Visual Basic Scripting Edition można używać DSO za pomocą CreateObject metoda.Tej metoda można utworzyć wszelkie potrzebne obiektu w bibliotekach DSO.
Przykład
Poniższy przykład tworzy DSO.Server obiekt:
Dim dsoServer
Set dsoServer = CreateObject("DSO.Server")
dsoServer.Connect "LocalHost"
W celu zapewnienia obsługi wykonywanie skryptów DSO Database, Cube, Partition, i Aggregation obiekty implementować MDStore interfejs klasy, jak również ich własnych interfejs klasy; jest to domyślny interfejs używany do MDStores kolekcji obiektów DSO.Poniższy przykład kodu pokazuje pobierania bazy danych za pomocą serwera MDStores kolekcja:
Dim dsoDatabase
Set dsoDatabase = dsoServer.MDStores(1)
ClassType i SubClassType Właściwości MDStore interfejs umożliwia oznaczanie klasy.Jeśli wymagane jest interfejs klasy specyficzne dla określonego obiektu, najpierw użyć CreateObject polecenia, aby utworzyć wystąpienie obiektu, następnie zestaw go do obiektu wymagane w MDStores kolekcja.Zostanie wykazane, w poniższym przykładzie:
Dim dsoServer
Dim dsoDatabase
Set dsoServer = CreateObject("DSO.Server")
dsoServer.Connect "LocalHost"
Set dsoDatabase = CreateObject("DSO.Database")
Set dsoDatabase = dsoServer.MDStores(1)
.gif "Przestroga") Przestroga |
|---|
Zalecane jest, że każdy obiekt DSO obsługi MDStore interfejs, interfejs klasy specyficzne nieużywane. |