Record set, replaced by array/Rs. getrows ()/redim preserve, retain original data

4. 'Excel connection driver
5. Epath = "F:/web/test.xls"
6. Estr = "provider = Microsoft. Jet. oledb.4.0; Data Source =" & epath "; extended properties = Excel 8.0"
8. Set conn = server. Createobject ("ADODB. Connection ")
9. Set rs = server. Createobject ("ADODB. recordset ")
10. Set rst = server. Createobject ("ADODB. recordset ")
11. Conn. Open estr
13. Dim AAA, aaay, Yuhui
14. AAA = CINT ("00" & request ("v_amount "))
15. Rs. Open "select * from [test $]", Conn, 1, 1
17. Yuhui = Rs. getrows (Rs. recordcount)
18. Aaay = 0
20. For fori = 0 to ubound (Yuhui, 2)-1
21. If AAA> = CINT (Yuhui (1, forI) and AAA <CINT (Yuhui (1, forI + 1) Then aaay = Yuhui (2, forI) end if
22. Next
23. If AAA> = CINT (Yuhui (1, forI) Then aaay = Yuhui (2, forI) end if
26. Rs. Close
27. SQL = "update Member table set balance = balance +" & AAA "+" & aaay "where username = '" & remark1 "'"
28. 'Response. Write SQL
29. 'Conn.exe cute ("update Member table set balance = balance +" & AAA & "+" & aaay & "where username = '" & remark1 &"'")
31. Conn. Close
32. Set conn = nothing

 

 

Record set, which is replaced with an array to facilitate the use of table-like data. Because at the beginning, I forgot that the first column is a column and the second column is a row, so the code included for others ~~ For future use.

 

Redim preserve retains original data and redefines an array (one-dimensional array)