vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB & Datenbanken
Datenbanken und Würfel 
Autor: Filiz
Datum: 30.06.05 09:46

Hallo Forum-User!

Ich möchte alle datenbanken in meinem analysis manager auflisten mit den dazugehörigen Cubes. Also datenbank + würfel. Wie bei einer explorer ansicht oder in einer Tabelle. Wie stelle ich das an ?
Ich habe nachgeschaut und da kommt nur die openschema methode in Frage oder gibt es eine andere Variante oder Hilfestellung?

Ich habe schon ein code-schnipsel erstellt, nur das gibt mir die erste datenbank aus und die 2 Würfel die dazugehören. Danach bekomme ich nur diedatenbanken aber keine Würfel mehr ?!??!?!? Noch ein tipp, ich programmiere asp mit vbscript.

Dim cn
Dim rs,rs1
Dim fso,ts, myarray
Dim sCubeName, sCatalogName
Const CubeNamePosition =2

set fso = CreateObject("Scripting.FileSystemObject")
Set objFile = fso.OpenTextFile(server.MapPath("test1_1.txt"),8)

Set cn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorType = 2

set rs1 = Server.CreateObject("ADODB.Recordset")
cn.Open ("Provider=MSOLAP;Integrated Security=SSPI;Persist Security Info=False;Data Source=defvhv001;Client Cache Size=25;Auto Synch Period=10000")

Set rs = cn.OpenSchema(1)

reDim myarray(0)

i = -1

do while not rs.Eof
i=i+1
myarray(0)= rs.Fields(0)
Response.Write (myarray(0)) & vbCrLf
sCatalogName = (myArray(0))
objFile.writeline ("Catalog: " & sCatalogName)


Redim Preserve myarray(i)
objFile.writeline (myarray(i))
Set rs1 = cn.OpenSchema(32,Array(sCatalogName,Empty,Empty))

If myarray(i) = sCatalogName Then
do until rs1.eof

myarray(i)= rs1.Fields("CUBE_NAME")

sCubeName = (myarray(i))
objFile.writeline ("Cubes: " & sCubeName)

If sCube <> sCube_Alt Then

sCube_Key = sCube
objFile.writeline (sCubeName)
Response.Write(sCubeName) & vbCrLf
sCube_Alt = sCube

End if
rs1.MoveNext
loop
End if


rs.MoveNext
Loop

rs1.Close
set rs1=nothing
rs.Close
set rs=nothing
cn.Close
set cn = Nothing

Danke schonmal im Voraus und ciao

Filiz

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Datenbanken und Würfel1.115Filiz30.06.05 09:46

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel