[VB6]metodo del recordset per contare i le righe

[simogila]

ciao,

con gli ADO in VB6 spesso (se non sempre)
il .recordCount dei recordset non funziona ...

puoi farti una semplice funzione che richiamerai ogni volta che ti serve :

public function GetNumRecord (myConn, myTab, optional myWhere = "")
as double

dim strQry as string
dim rcSet as ADODB.Recordset

on error goto myErrHndl

strQry = "SELECT COUNT(*) FROM " & myTab & " " & myWhere
set rcSet = new ADODB.Recordset
rcset.open myConn, strQry
GetNumRecord = rcSet(0)
rcset.close
set rcset = Nothing

exit function
myErrHndl:
GetNumRecord = -1
end