Hallo,
ich soll ein Script erstellen, welches die Datenbanken auf unseren Server ausliest und diese gesplittet darstellt. Allerdings tritt bei mir immer das Runtime Error 9 auf, welches sich auf die Zeile 33/Char2 bezieht.
Ich hoffe ihr könnt mir einen kleinen Hinweis zur Behebung des Problemes geben.
Dim Cn
Dim Rs
Dim Db
Dim DbSplit
Dim arrDb()
Const adClipString = 2
Set Cn = Wscript.createObject("ADODB.Connection")
Set Rs = Wscript.createObject("ADODB.Recordset")
Dim String_Datenbanken
with Cn
'Provider zuweisen
.Provider = "SQLOLEDB.1"
'ConnectionString übergeben
.ConnectionString="Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=XXX;Data Source=XXX"
'Connection öffnen
.Open
End with
With Rs
.Open "SELECT name FROM sys.databases ", Cn
End With
String_Datenbanken = Rs.GetString(adClipString,,,VBCRLF )
Db = split(String_Datenbanken,VBCRLF)
Redim arrDb(Ubound(Db))
For i = 0 TO Ubound(Db)
DbSplit = split(Db(i))
arrDb(i) = DbSplit(0)
Next
For Each value in arrDb
MsgBox value
next
Cn.close
