摘要: 第一个 "" Thenrs.Open sstrSqlCount, sobjConn, 1, 1If Not(rs.eof or rs.bof) ThensintRecordCount = rs(0)ElsesintRecordCount = 0End Ifrs.CloseEnd Ifrs.open sql, sobjConn, 1, 1Rem 若无记录统计语句且未设定记录总数, 则由记录集Reco... 阅读全文
posted @ 2007-04-20 11:03 MaxIE 阅读(3323) 评论(0) 推荐(0)
摘要: '============================== ''分页sql语句生成代码 '============================== Function GetPageSql(TblName, FldName, PageSize, PageIndex, OrderType, StrWhere) ... 阅读全文
posted @ 2007-04-20 10:58 MaxIE 阅读(416) 评论(0) 推荐(0)