首页 相关文章 读取数据库中数据到数组的类

读取数据库中数据到数组的类

DbPath = "test.mdb"’数据库位置
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(DbPath)
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open ConnStr

Class Class_Read
Public Arr,Rs,SQL,ArrTR,ArrTD,Page,TotalRead,TotalPage
Public Function Read(SQL,TD,TR,PG)
SQL = Replace(SQL,"’","")
Page= Int(PG)
Set Rs = Server.CreateObject("ADODB.Recordset") : Rs.open SQL,conn,1,1
TotalRead= Rs.RecordCount
If TotalRead0 Then
If TR0 Then : Rs.PageSize = TR : Else : TR=TotalRead ...[ 查看全文 ]

2016-01-29 标签:

读取数据库中数据到数组的类的相关文章

手机页面
收藏网站 回到头部