经典 ASP 3.0 从记录集创建数组 [英] Classic ASP 3.0 Create Array from a Recordset
本文介绍了经典 ASP 3.0 从记录集创建数组的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我正在尝试修复 ASP Classic 应用程序,当我尝试从 Recordset 对象创建数组时.但是我无法让它正常工作.
I'm trying to fix an ASP Classic app and when I try to create an array from a Recordset Object. However I Can't get it to work correctly.
这段代码给了我一条记录(最后一条),但据我所知是正确的:
This code gives me a single record (the last one), but as far as I can see it is correct:
Dim Products
Dim Products_cmd
Dim Products_numRows
Set Products_cmd = Server.CreateObject ("ADODB.Command")
Products_cmd.ActiveConnection = Conn
Products_cmd.CommandText = "SELECT prod_id, prod_description FROM dbo.products ORDER BY prod_description ASC"
Products_cmd.Prepared = true
Set Products = Products_cmd.Execute
Products_numRows = 0
Dim arrProducts()
arrProducts = Products.GetRows()
使用此代码给我一个下标超出范围:'UBound'
Using this code gives me an "Subscript out of range: 'UBound'
Dim Products
Dim Products_cmd
Dim Products_numRows
Set Products_cmd = Server.CreateObject ("ADODB.Command")
Products_cmd.ActiveConnection = Conn
Products_cmd.CommandText = "SELECT prod_id, prod_description FROM dbo.products ORDER BY prod_description ASC"
Products_cmd.Prepared = true
Set Products = Products_cmd.Execute
Products_numRows = 0
Dim arrProducts()
Dim counter
For counter = 0 to Products.RecordCount - 1
ReDim Preserve arrProducts(counter,2)
arrProducts(counter,0) = Products.Fields.Item("prod_id").Value
arrProducts(counter,1) = Products.Fields.Item("prod_description").Value
Products.MoveNext
Next
Response.Write(Str(UBound(arrProducts)))
任何想法将不胜感激...
Any ideas would be GREATLY appreciated...
推荐答案
你的差不多了,问题是GetRows()
返回的是一个二维数组,需要告诉Ubound
你想要什么尺寸.
Your are almost there, the problem is that GetRows()
returns a 2 dimensional array, and you need to tell Ubound
what dimension do you want.
工作代码:
Dim Products
Dim Products_cmd
Dim Products_numRows
Set Products_cmd = Server.CreateObject ("ADODB.Command")
Products_cmd.ActiveConnection = Conn
Products_cmd.CommandText = "SELECT prod_id, prod_description FROM dbo.products ORDER BY prod_description ASC"
Products_cmd.Prepared = true
Set Products = Products_cmd.Execute
Dim arrProducts
arrProducts = Products.GetRows()
dim i
response.write "<table>"
For i = 0 to ubound(arrProducts, 2)
response.write "<tr>"
response.write("<td>" + trim(i+1))
response.write("<td>" + trim(arrProducts(0,i)))
response.write("<td>" + trim(arrProducts(1,i)))
next
response.write "</table>"
%>
这篇关于经典 ASP 3.0 从记录集创建数组的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文