CSDN博客

img jiaguoxinzhi

记录集,换成数组/rs.getRows()/redim Preserve 保留原有数据

发表于2008/9/29 13:38:00  712人阅读

 
  1. 'Excel连接驱动
  2. Epath="F:/web/test.xls"
  3. Estr="provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Epath";Extended Properties=Excel 8.0"
  4. Set conn = Server.Createobject("ADODB.Connection")
  5. set rs    =server.CreateObject("adodb.recordset")
  6. set rsT    =server.CreateObject("adodb.recordset")
  7. conn.open   Estr
  8. dim aaa,aaay ,yuhui
  9. aaa=Cint("00"&request("v_amount") )
  10. rs.open "select * from [test$]",conn,1,1
  11. yuhui=rs.getRows(rs.recordcount)
  12. aaay=0
  13. for fori=0 to ubound(yuhui,2)-1
  14.   if aaa>=Cint(yuhui(1,fori)) and aaa <Cint(yuhui(1,fori+1)) then aaay=yuhui(2,fori) end if
  15. next
  16. if aaa>=Cint(yuhui(1,fori)) then aaay=yuhui(2,fori) end if 
  17. rs.close 
  18. sql="update 会员表 set 余额=余额+"&aaa"+"&aaay" where 用户名='"&remark1"'"
  19. 'response.Write sql
  20. 'conn.execute("update 会员表 set 余额=余额+"&aaa&"+"&aaay&" where 用户名='"&remark1&"'") 
  21. conn.close 
  22. set conn=nothing

 

 

记录集,换成数组,便于表状数据的使用。因为开始时忘了第一列是列,第二列是行,所以收录下给别人的代码~~以备后用。

 

redim Preserve 保留原有数据,重定义数组(一维数组)

0 0

相关博文

我的热门文章

img
取 消
img