Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Microsoft VBScript compilation error

Mitglied: lionne

lionne (Level 1) - Jetzt verbinden

16.09.2011, aktualisiert 18.10.2012, 3783 Aufrufe, 10 Kommentare

Beim Ausführen des Skripts bekomme ich eine Fehlermeldung:

„Microsoft VBScript compilation error“

Kann Jemand mir sagen, was hier falsch ist?

Dim meinCount

01.
 meinCount = oRs.Fields(0).Value 'Feld aus der Datenbank, Ergebnis von count(*) 
02.
         
03.
        if (meinCount = 0) then loeschDatensatz() 'ruft die Funktion loeschDatensatz() 
04.
        else  
05.
            protokoll logfile, "meinCount:  " & meinCount  
06.
        end if

PS: das ist ein Teil des Programm, wo der Compiler Fehler zeigt

Danke und Gruß
Lionne
Mitglied: 60730
16.09.2011, aktualisiert 18.10.2012
Moin,

Zitat von lionne:
Hallo zusammen,

/Snip
\Snap
Wenn ich hier im Forum Frage stelle, versuche immer diese umzuformulieren bzw. umzubenennen, damit mein Mentor nicht draufkommt,
dass es von mir ist, falls er auch im Internet nach Informationen sucht.

Na wenns so ist, dann ist es doch klar wie Klosbrühe, du steckst mit Aqui und Brammer unter einer Decke und Ihr beiden wollt uns nur heiss auf die neue Firmware machen, damit wir die Fragen besser beantworten können.

Nee nee, auf sowas fall ich nicht mehr rein, ich kaufe nur noch Rheumadecken.
PS: das ist ein Teil des Programm, wo der Compiler Fehler zeigt

Komm schon, dass das da nix halbes und schon garnix ganzes ist, dazu brauch ich nur Brain .99, eure Firmware könnt Ihr behalten.


N8
Bitte warten ..
Mitglied: bastla
16.09.2011 um 20:08 Uhr
Hallo lionne!

Du solltest nicht nur eine Fehlermeldung, sondern auch eine Zeilennummer dazu erhalten ...

... aber auf jeden Fall solltest Du Dich entscheiden, ob Du ein einzeiliges oder mehrzeiliges "If" verwenden willst - also
01.
        if meinCount = 0 then loeschDatensatz else protokoll logfile, "meinCount:  " & meinCount 
oder
01.
        if meinCount = 0 then 
02.
             loeschDatensatz 'ruft die Funktion loeschDatensatz() 
03.
        else  
04.
            protokoll logfile, "meinCount:  " & meinCount  
05.
        end if
Grüße
bastla
Bitte warten ..
Mitglied: lionne
16.09.2011 um 21:47 Uhr
Hallo bastla,

vielen Dank für deine Antwort.

Gruß
Lionne
Bitte warten ..
Mitglied: lionne
19.09.2011 um 10:13 Uhr
Hallo bastla,

das Problem ist immer nicht glöscht. Der Compiler zeigt Fehler: "Microsoft VBScript runtime error Type mismatch" auf Zeile 23 "if result = 0 then"

Ich verstehe nicht, was da falsch sein soll.

Danke
Lionne


01.
 Sub ZahlDaten() 
02.
 
03.
	Dim oCon, oRs, strCon, result, servername 
04.
    
05.
	servername = "\\meinServer"    
06.
    
07.
    strCon = "DRIVER={Microsoft ODBC for Oracle}; SERVER="& myDb &";User Id="& myUser &";Password=" & myPWD &";" 
08.
 
09.
    Set oCon    = WScript.CreateObject("ADODB.Connection") 
10.
    Set oRs     = WScript.CreateObject("ADODB.Recordset") 	 
11.
    
12.
    oCon.Open strCon	 
13.
	 
14.
	Set oRs = oCon.Execute("SELECT count(*) FROM  MyTable WHERE customername = 'TotalG' AND cast(endZeit as date) > (sysdate - 60) " ) 
15.
	 
16.
	 
17.
    'While Not oRs.EOF 
18.
	 
19.
	oRS.movefirst  
20.
		 
21.
	result = oRs.Fields(0).Value 
22.
		 
23.
	if result = 0 then  'compiler zeigt Fehler  
24.
		loeschDatensatz 'ruft die Funktion loeschDatensatz() 
25.
	else  
26.
		protokoll logfile, "**result:  " & result  
27.
	End if		 
28.
		 
29.
		'oRS.movenext 
30.
	'Wend 
31.
 
32.
oCon.Close              
33.
Set oRs = Nothing 
34.
Set oCon = Nothing 
35.
 
36.
End sub 
37.
 
Bitte warten ..
Mitglied: bastla
19.09.2011 um 12:39 Uhr
Hallo lionne!

Mach mal aus Zeile 17
If Not oRs.EOF Then
und analog dazu aus Zeile 30
End If
und platziere dazwischen noch ein passendes "Else" (für den Fall, dass kein Datensatz gefunden wurde) ...

Grüße
bastla
Bitte warten ..
Mitglied: lionne
19.09.2011 um 13:01 Uhr
Hallo bastla,

ich habe eingefügt. Ich bekomme auf Zeile 23 jetzt folgende Fehlermeldung: "Syntax error".

Kann ich nicht so das count-Ergebnis in einer Variable speicher und vergleichen?

Danke und gruß
Lionne


01.
Sub ZahlDaten() 
02.
 
03.
	Dim oCon, oRs, strCon, result, servername 
04.
    
05.
	servername = "\\meinServer"    
06.
    
07.
    strCon = "DRIVER={Microsoft ODBC for Oracle}; SERVER="& myDb &";User Id="& myUser &";Password=" & myPWD &";" 
08.
 
09.
    Set oCon    = WScript.CreateObject("ADODB.Connection") 
10.
    Set oRs     = WScript.CreateObject("ADODB.Recordset") 	 
11.
    
12.
    oCon.Open strCon	 
13.
	 
14.
	Set oRs = oCon.Execute("SELECT count(*) FROM  MyTable WHERE customername = 'TotalG' AND cast(endZeit as date) > (sysdate - 60) " ) 
15.
	 
16.
	 
17.
    If Not oRs.EOF Then 
18.
	 
19.
		oRS.movefirst  
20.
		 
21.
		result = oRs.Fields(0).Value 
22.
		 
23.
		if result = 0 then loeschDatensatz else protokoll logfile, "**result:  " & result End if		 
24.
		 
25.
	End If 
26.
 
27.
oCon.Close              
28.
Set oRs = Nothing 
29.
Set oCon = Nothing 
30.
 
31.
End sub 
32.
		 
33.
 
Bitte warten ..
Mitglied: bastla
19.09.2011, aktualisiert 18.10.2012
Hallo lionne!

Fällt Dir auf, was an Deiner Zeile 23 anders ist als an meinem Beispiel oben?

Grüße
bastla
Bitte warten ..
Mitglied: lionne
19.09.2011 um 15:08 Uhr
Hallo bastla,

ich habe geändert, trodem habe ich die gleiche Fehlermeldung. Darf man mit VBS das Ergebnis eines count nicht so lesen?

Danke und Gruß
Lionne
Bitte warten ..
Mitglied: bastla
19.09.2011 um 19:54 Uhr
Hallo lionne!
ich habe geändert
Gut.
die gleiche Fehlermeldung
"Syntax error"?
Darf man mit VBS das Ergebnis eines count nicht so lesen?
"So" wäre jetzt wie?

Grüße
bastla
Bitte warten ..
Mitglied: lionne
19.09.2011 um 22:00 Uhr
Hallo bastla,

Zeile 21 habe ich so geändert:

01.
  result = CInt(oRs.Fields(0).Value)
es funktionniert.

Gruß
Lionne
Bitte warten ..
Ähnliche Inhalte
VB for Applications
VBScript und OR
gelöst Frage von InvisanVB for Applications5 Kommentare

Hi zusammen, derzeit bastel ich ein bisschen in VBScript rum. Leider habe ich mit dem OR Operator einige Probleme. ...

Microsoft Office
Outlook VBScript
gelöst Frage von NebellichtMicrosoft Office5 Kommentare

Hallo, seit ein paar Wochen werden keine VBScripte hinter den (Benutzerspezifschen) Outlook Formularen ausgeführt. Hat jemand eine Lösung parat ...

Batch & Shell
Arbeiten mit INI Files in VBScript
Anleitung von FriemlerBatch & Shell11 Kommentare

In letzter Zeit habe ich hier im Forum des Öfteren Fragen gesehen, wie man aus einer INI-Datei Werte liest ...

Windows 7

VBScript - HTML Probleme mit Schriftgröße

gelöst Frage von MedicalAdWindows 75 Kommentare

Servus Leute, ich brauche mal eure Hilfe. Das VBScript was unten aufzufinden ist funktioniert soweit (das ist ein Coundtown ...

Neue Wissensbeiträge
Verschlüsselung & Zertifikate
Meine Wissenssammlung zu Bitlocker
Erfahrungsbericht von DerWoWusste vor 18 StundenVerschlüsselung & Zertifikate2 Kommentare

Die Motivation für diesen Beitrag waren die vielen Posts rund um dieses Thema, die deutlich machen, wie viele Einzelaspekte ...

E-Mail
Email-Apps und Verhalten bei Pop3
Erfahrungsbericht von kfranzk vor 2 TagenE-Mail11 Kommentare

Hallo Freunde, da mir mein diesbezüglicher Faden als gelöst markiert wurde, muss ich hier neu aufsetzen. Ich arbeite bewusst ...

Hyper-V

Optimiertes Ubuntu per Microsoft Hyper-V-Schnellerstellung verfügbar

Anleitung von Frank vor 2 TagenHyper-V1 Kommentar

Für Microsofts Virtualisierungssoftware Hyper-V ist ab sofort auch ein optimiertes Ubuntu 18.04.1 LTS verfügbar. In der "Hyper-V-Schnellerstellung" App, die ...

Sicherheits-Tools

Trend Micro WorryFree Business Security (WFBS) 10 - neuer Patch 1470 verfügbar

Tipp von VGem-e vor 3 TagenSicherheits-Tools1 Kommentar

Servus, mal sehen, ob mit Patch 1470, zu finden unter dann die angeblich fehlerhafte Funktion, die unter W10 im ...

Heiß diskutierte Inhalte
Datenschutz
Gilt ein Ransomware-Befall als Datenpanne nach DSGVO?
Frage von MOS6581Datenschutz15 Kommentare

Moin Kollegen, wenn sich jemand Ransomware einfängt und dadurch bspw. Kundendaten verschlüsselt werden; gilt dies dann als meldepflichtige Datenpanne ...

Netzwerke
Hilfe bei der Planung meines Heimnetzwerks
Frage von DHD082Netzwerke15 Kommentare

Hallo zusammen, wir bauen gerade ein Einfamilienhaus, welches ich mit einem Heimnetzwerk ausstatten möchte. Da ich zwar auch in ...

Hardware
Sophos SG135 - Routing
Frage von Xaero1982Hardware14 Kommentare

Moin Zusammen, ich ersetze gerade nen alten Cisco DualWAN Router durch eine SG 135. Ich muss bestimmte Ziele über ...

Tipps & Tricks
Nagstamon und PRTG Monitoring
Frage von Der.ITlerTipps & Tricks13 Kommentare

Hallo Ihr, heute am Sonntag bin ich mal früh aufgestanden um mich mit dem Problem von Gestern zu beschäftigen. ...