clsCubeAnalyzer
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.
Obiekt Decision Support Objects (DSO) ClassType clsCubeAnalyzer zawiera jedną metoda wyodrębnić informacji z kwerendy możnaDziennik kwerend przechowuje opisy kwerend wykonywanych na serwerze analizy.Ten obiekt zawiera metoda za pomocą własnego wewnętrznego interfejs.
Nie ma żadnych kolekcje lub właściwości skojarzonych z obiektu ClassType clsCubeAnalyzer.
Przykłady
Pobieranie modułu dziennika kwerend
Poniższy przykład kodu pobiera całą zawartość moduł dziennika kwerend z serwera analiz i drukuje liczbę rekordów w okienku bezpośrednim:
Option Explicit
Public dsoServer As DSO.Server
Public dsoDB As DSO.MDStore
Public dsoCube As DSO.MDStore
Public dsoCubeAnalyzer As DSO.CubeAnalyzer
Public ADODBRecSet As ADODB.Recordset
Public Sub AnalyzeCube()
If dsoServer Is Nothing Then
Set dsoServer = New DSO.Server
'MyServer is the name of the Analysis server.
dsoServer.Connect ("MyServer")
End If
'Get first database from server.
Set dsoDB = dsoServer.MDStores(1)
'Get first cube from database.
Set dsoCube = dsoDB.MDStores(1)
'Get analyzer object from cube.
Set dsoCubeAnalyzer = dsoCube.Analyzer
'Get recordset from log.
Set ADODBRecSet = dsoCubeAnalyzer.OpenQueryLogRecordset _
("SELECT * FROM QueryLog")
If ADODBRecSet.BOF And ADODBRecSet.EOF Then
Debug.Print "<<No records in query log>>"
Else
ADODBRecSet.MoveLast
Debug.Print " Record count: " & ADODBRecSet.RecordCount
End If
End Sub