GetRows&SQL

SELECT DISTINCT au_id FROM titleauthor '去掉重复

GetRows

Sql="Select TBrowser,TBrwNum From FBrowser Order By TBrwNum DESC"

Rs.Open Sql,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
   Assay=Rs.GetRows
   Rows=Ubound(Assay,2)
Else
   Rows=-1
End If
Rs.Close
Conn.Close
Set Rs=Nothing
Set Conn=Nothing