Microsoft VBScript compilation error
16.09.2011
19:10:00 Uhr1246 Aufrufe
10 Antworten
19:10:00 Uhr
10 Antworten
Wenig anspruchsvoll -2
Beim Ausführen des Skripts bekomme ich eine Fehlermeldung:
„Microsoft VBScript compilation error“
Kann Jemand mir sagen, was hier falsch ist?
Dim meinCount
PS: das ist ein Teil des Programm, wo der Compiler Fehler zeigt
Danke und Gruß
Lionne
„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 ifPS: das ist ein Teil des Programm, wo der Compiler Fehler zeigt
Danke und Gruß
Lionne
TimoBeil schreibt am 16.09.2011 um 20:02:04 Uhr
Moin,
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.
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
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.
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
bastla schreibt am 16.09.2011 um 20:08:15 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
oder
Grüße
bastla
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 01.
if meinCount = 0 then 02.
loeschDatensatz 'ruft die Funktion loeschDatensatz() 03.
else 04.
protokoll logfile, "meinCount: " & meinCount 05.
end ifbastla
lionne schreibt am 19.09.2011 um 10:13:14 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
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.
lionne schreibt am 19.09.2011 um 13:01:45 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
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.
