EricV Geschrieben 20. Oktober 2014 Geschrieben 20. Oktober 2014 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
Klotzkopp Geschrieben 20. Oktober 2014 Geschrieben 20. Oktober 2014 Du solltest die Länge von DbSplit prüfen, bevor du auf DbSplit(0) zugreifst. Außerdem wäre es nett gewesen, wenn du Zeile 33 kenntlich gemacht hättest.
EricV Geschrieben 20. Oktober 2014 Autor Geschrieben 20. Oktober 2014 Zeile 33 ist : arrDb(i) = DbSplit(0) Entschuldige, habe es vergessen und danke für deinen Tipp. Werde es umgehend überprüfen und mich wieder melden
Empfohlene Beiträge
Erstelle ein Benutzerkonto oder melde Dich an, um zu kommentieren
Du musst ein Benutzerkonto haben, um einen Kommentar verfassen zu können
Benutzerkonto erstellen
Neues Benutzerkonto für unsere Community erstellen. Es ist einfach!
Neues Benutzerkonto erstellenAnmelden
Du hast bereits ein Benutzerkonto? Melde Dich hier an.
Jetzt anmelden