Einzelnen Beitrag anzeigen
Ungelesen 29.08.13, 09:00   #1
Inka7
Anfänger
 
Registriert seit: Oct 2009
Beiträge: 1
Bedankt: 0
Inka7 ist noch neu hier! | 0 Respekt Punkte
Standard Fehler im VBS S*****

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
Inka7 ist offline   Mit Zitat antworten