Fehler im VBS Script
Guten Tag Miteinander
Ich habe einen VBS S*****, bei den ich den Fehler nicht sehe. Vielleicht kann mir jemand weiterhelfen.
Ein Parameter von dieser Zeile erhält kein Wert:
"Datensatzliste.Open stSQL, Verbindungsobjekt, adOpenStatic"
Also muss einer der drei Variabelen kein Wert enthalten, nur weiss ich nicht warum:
Datensatzliste
stSQL (Der Wert konnte mit einer msgBox ausgegeben werden, somit kann ich diese Variabel ausschliessen.)
Verbindungsobjekt
Code:
option explicit
Const DATENBANK = ("E:\Liste_Lernende.accdb")
Const ADO_ConnectModeEnum_ADMODEREAD = 1
Const adOpenStatic = 3
Dim Datensatzliste
Dim Verbindungsobjekt
Dim stSQl
Dim nachname
Dim vorname
Dim Name
Dim Klasse
nachname = "Suter"
vorname = "Sandro"
dim Arrayay()
stSQl= "SELECT L-Per_ID, replace(Klasse,' ','') as Klasse FROM Lernende WHERE L-Name Like ""*"& Name &"*"" AND L-Vorname Like ""*"& Vorname &"*""" 'Filter
set Verbindungsobjekt = CreateObject("ADODB.Connection")
Verbindungsobjekt.Open = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & DATENBANK
set Datensatzliste = CreateObject("ADODB.Recordset")
msgBox stSQL
Datensatzliste.CursorType = adOpenStatic
Datensatzliste.ActiveConnection = Verbindungsobjekt
Datensatzliste.Open stSQL, Verbindungsobjekt, adOpenStatic
varCount = Datensatzliste.RecordCount-1
redim Array(varCount,1)
Datensatzliste.MoveFiDatensatzlistet
if not Datensatzliste.EOF and not Datensatzliste.BOF then
do while not Datensatzliste.EOF
Array(i,0) = Datensatzliste.Fields("Klasse")
Array(i,1) = Datensatzliste.Fields("[L-Per_ID")
Datensatzliste.MoveNext
i = i + 1
loop
Datensatzliste.MoveLast
Anzahl = Datensatzliste.RecordCount 'Zählt die Arrays
MsgBox Anzahl & " Datensätze wurde gefunden.", vbOKOnly + vbInformation, "Datensätze vorhanden"
MsgBox Array(i,0)
Msgbox Array(i,1)
else
WS*****.Echo "Es sind keine Daten vorhanden." & vbcrlf & "Bitte prüfen Sie, ob die Vorlage-Datei den richten Namen hat."
end if
Datensatzliste.close
Verbindungsobjekt.Close
|
