Reeks rs = CreateObject („ADODB.Recordset“)
Reeks conn = CreateObject („ADODB.Connection“)
Met conn
. Leverancier = „SQLOLEDB“
. Wijze = adModeReadWrite
.ConnectionString = „Gegevensbron = (lokaal); Aanvankelijke Catalogus = xxx; Gebruiker - identiteitskaart = xxx; Password=xxx“
. Open
Eind met
strSQLQuery = „UITGEZOCHTE TELLING (*) ALS MyRecordCount VAN [tableName]“
rs. Open strSQLQuery, conn
Als niet rs.EOF toen
rs.MoveFirst
Doe terwijl niet rs.EOF
WScript.Echo (rs („MyRecordCount“))
rs.movenext
lijn
Eind als
rs. Sluit
Plaats rs = niets
conn. Sluit
Plaats conn = Nothing |