[Hilfe!] VBS - Ausgabe in msgbox

[ItzMyHack]

Hallo,
Ich habe ein Problem mit der Ausgabe in der Msgbox unter VBS.

Ich gebe die Namen von Datenbanken aus, jedoch steht vor jeder Datenbank ein "." , was aber im Namen der Datenbanken nicht der Fall ist. Kennt jemand den Fehler und kann mir vllt helfen diesen Punkt zu entfernen??

Lg

[Ky0n']

Wenn du den Punkt nur entfernen willst:

Dim Datenbankname
Datenbanknameohnepunkt = Mid(Datenbankname, 1, Len(Datenbankname))

Die Variablennamen sind jetzt nicht so dolle :P

[ItzMyHack]

 Spoiler

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=***;Data Source=***"
'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

Im Spoiler findest du den Code den ich benutze, es tritt ein Runtime Error in Zeile 33/Char2 bezieht.

-danke schonmal für deine schnell Antwort


LG