Placer les rs = le CreateObject (« ADODB.Recordset »)
Placer des conn. = CreateObject (« ADODB.Connection »)
Avec des conn.
. Fournisseur = « SQLOLEDB »
. Mode = adModeReadWrite
.ConnectionString = « point d'émission = (gens du pays) ; Catalogue initial = xxx ; Identification de l'utilisateur = xxx ; Password=xxx »
. Ouvert
Extrémité avec
le strSQLQuery = « CHOISISSENT LE COMPTE (*) COMME MyRecordCount À PARTIR [le tableName] »
rs. Ouvrir le strSQLQuery, conn.
Sinon rs.EOF alors
rs.MoveFirst
Faire tandis que pas rs.EOF
WScript.Echo (rs (« MyRecordCount »))
rs.movenext
boucle
Finir si
rs. Fin
Placer les rs = rien
conn. Se fermer
Placer les conn. = le class= >
" clair " de Nothing