myGully.com Boerse.SH - BOERSE.AM - BOERSE.IO - BOERSE.IM Boerse.BZ .TO Nachfolger
Zurück   myGully.com > Computer & Technik > Programmierung
Seite neu laden

Fehler im VBS S*****

Willkommen

myGully

Links

Forum

 
Antwort
Themen-Optionen Ansicht
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
Ungelesen 07.09.13, 13:34   #2
baldurgarda
Anfänger
 
Registriert seit: Nov 2012
Beiträge: 27
Bedankt: 16
baldurgarda mag den Abfluss Flavour! | 58390 Respekt Punktebaldurgarda mag den Abfluss Flavour! | 58390 Respekt Punktebaldurgarda mag den Abfluss Flavour! | 58390 Respekt Punktebaldurgarda mag den Abfluss Flavour! | 58390 Respekt Punktebaldurgarda mag den Abfluss Flavour! | 58390 Respekt Punktebaldurgarda mag den Abfluss Flavour! | 58390 Respekt Punktebaldurgarda mag den Abfluss Flavour! | 58390 Respekt Punktebaldurgarda mag den Abfluss Flavour! | 58390 Respekt Punktebaldurgarda mag den Abfluss Flavour! | 58390 Respekt Punktebaldurgarda mag den Abfluss Flavour! | 58390 Respekt Punktebaldurgarda mag den Abfluss Flavour! | 58390 Respekt Punkte
Standard

... ich würde mir mal stSQl anschauen ;-) ...
baldurgarda ist offline   Mit Zitat antworten
Antwort


Forumregeln
Du kannst keine neue Themen eröffnen
Du kannst keine Antworten verfassen
Du kannst keine Anhänge posten
Du kannst nicht deine Beiträge editieren

BB code is An
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist Aus.

Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:35 Uhr.


Sitemap

().