Rs = CreateObject („ADODB.Recordset“) einstellen
Einstellen Anschl. = CreateObject („ADODB.Connection“)
Mit Anschl.
. Versorger = „SQLOLEDB“
. Modus = adModeReadWrite
.ConnectionString = „Datenquelle = (Einheimisches); Anfangskatalog = xxx; Benutzernummer = xxx; Password=xxx“
. Geöffnet
Ende mit
strSQLQuery = „WÄHLEN ZÄHLIMPULS (*) ALS MyRecordCount VON vor [tableName]“
rs. strSQLQuery, Anschl. öffnen
Wenn nicht rs.EOF dann
rs.MoveFirst
Tun während nicht rs.EOF
WScript.Echo (rs („MyRecordCount“))
rs.movenext
Schleife
Beenden wenn
rs. Abschluss
Rs einstellen = nichts
Anschl. Schließen
Einstellen Anschl. = Nothing |