Locm

Hallo Zusammen, Danke für die Anregungen, habe es geschafft. Es lag unter anderem auch an der ODBC Anbindung. Gruß Ralf

Hallo Martin, MyDB müsste auch definiert sein (kann ich erst am Montag wieder prüfen) Und der Benutzer existiert auch. Bei den Parametern bin ich mir nicht wirklich sicher. @ SilentDemise in der ODBC Datenquelle ist der Informix Treiber installiert. Aber ich vermute auch, dass es irgendwie am OBDC Treiber liegen muss. Gruß Ralf

Ergänzung: habe es auch mit "PROVIDER=MSDASQL;DSN=server;Uid=user;Pwd=passwd;DATABASE=datenbank" versucht. Auch das ist ohne Erfolg :-( Es handelt sich um eine Informixdatenbank.

Hallo, es scheitert an der ODBC Verbindung. Diese wird nicht aufgebaut, ein Fehler wird auch nicht zurück gegeben. Function Wadruck(Anz) Dim SQLString set MyDB = CreateObject("ADODB.Connection") MyDB.Open "DSN=datenbank;Uid=user;Pwd=passwd;" SQLString = "select count(*) from btb_werkstattauftrag where ws_printed=0"' & Anz & " set rsAnzahl = MyDB.Execute(SQLString)

Guten Morgen zusammen, ich versuche verzweifelt eine VBS Abfrage zu programmieren und komme nicht weiter:( Und bitte um Hilfe. Mein vorhaben ist, es soll mittels VBS ein Wert in einer SQL Datenbank abgefragt werden. Wenn dieser "0" ist soll ein Report gedruckt und anschließend der wert auf 1 gesetzt werden. select * from datenbank where ws_printed =0 also IF = printed = 0 then print........ update printed = 1 else hier soll nichts passieren end if Gruß LOCM