欢迎来到天天文库
浏览记录
ID:24985275
大小:52.00 KB
页数:3页
时间:2018-11-17
《读取数据库中数据到数组的类》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、读取数据库中数据到数组的类>>教育资源库整理:阿炳:.jzxue.投稿:(转贴)DbPath="test.mdb"’数据库位置ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="Server.MapPath(DbPath)SetConn=Server.CreateObject("ADODB.Connection")Conn.openConnStrClassClass_ReadPublicArr,Rs,SQL,ArrTR,ArrTD,Page,TotalRead,TotalPagePubli
2、cFunctionRead(SQL,TD,TR,PG)SQL=Replace(SQL,"’","")Page=Int(PG)SetRs=Server.CreateObject("ADODB.Recordset"):Rs.openSQL,conn,1,1TotalRead=Rs.RecordCountIfTotalRead>0ThenIfTR>0Then:Rs.PageSize=TR:Else:TR=TotalReadIfTD>Rs.Fields.CountorTD<1ThenTD=Rs.Fields.CountIfTot
3、alReadModTR<>0ThenTotalPage=1:EndIf:TotalPage=TotalPage+Int(TotalRead/TR)IfPage>=TotalPageThenPage=TotalPage:TR=TotalRead-TR*(TotalPage-1)IfPage>1ThenRs.absolutePage=PageElsePage=1EndIfreDimArr(TD-1,TR)ForArrTR=0toTR-1:IfRs.EofThenExitForForArrTD=0toTD-1:Arr(ArrT
4、D,ArrTR)=Rs(ArrTD):Next:Rs.MoveNextNextArrTR=ArrTR-1Rs.CloseSetRs=NothingEndFunctionEndClass’使用方法DimC:SetC=NeiFori=0ToC.ArrTRResponse.p;C.Arr(0,i)NextResponse.p;C.TotalReadResponse.p;C.TotalPageResponse.p;C.PageResponse.p;C.ArrTR+1>>>>这篇文章来自..,。
此文档下载收益归作者所有