EricV

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

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

Extra angemeldet um mein gesammeltes Wissen, von diversen Bewerbungstrainings- und Tiefenprofilingkursen, mitteilen zu können.

Konjunktiv sollte vermieden werden.

"Ich freue mich auf eine positive Antwort Ihrerseits." oder

"Ich freue mich auf eine Antwort Ihrerseits. "

" Hiermit bewerbe ich mich bei Ihnen" und nicht " Hiermit möchte ich mich bei Ihnen bewerben"

" Mit meiner Tatkraft und meinen Engagement werde ich für das Unternehmen ein Gewinn sein. " oder so ähnlich.

Wichtig ist, dass man auf Wörter wie:

- möchte

- bitte

- hoffe

- verspreche

- ... verzichten soll, da sie Unsicherheit signalisieren.

Eventuell spezifischer beschreiben, warum man sich ausgerechnet bei diesen Unternehmen bewirbt.

Viel Glück euch beiden