经典 ASP 从 SQL 数据库中提取数据并将其放入数组

Question

SQL Server 2000 中包含两个字段（两个季节的每月苹果数和每月橙子数）的简单表（表 1）。我需要使用经典 ASP 提取这些字段的值并填充两个数组。约束：这些数组已经由一个现成的应用程序定义，我不需要过多接触，因为我是 Classic ASP 的初学者，我可能会做错事。

这些数组的定义如下：

Dim m_arrApples, m_arrOranges

我已成功连接到数据库，提取数据，然后在浏览器中显示（格式化数字）。然而，当我需要将它传输到一个数组中（以便被那个现成的应用程序接管并处理它（以图形格式显示）时，我遇到了一个错误。这是我的代码：

'Open connection with SQL Server
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB;server=" & NameServer & ";database=" & DataBaseName & ";uid=" & NameUser & ";pwd=" & DataBasePassword & ";" 

'Open table and all records for further processing 
dim strSQL
strSQL = "select * from " & Table1
Set rst = conn.Execute(strSQL)

'Going through the records in the table and try to get values of each field and allocate them to the array
If rst.BOF And rst.EOF Then
    Response.Write "No data"
Else

i=0

Do While (Not rst.EOF)
i=i+1

'The line below confirms that the data extracted from database is displayed in the browser
'in its primary form (not graph), but that means I did it correctly up to this point 
Response.Write rst("Apples") & "/" & rst("Oranges") & "<br>"

m_arrApples(i)= rst("Apples")         ' THE ERROR IS AT THIS LINE. HERE THE SCRIPT IS STOPPED
m_arrOranges(i)= rst("Oranges")

rst.MoveNext
Loop
End If

错误是：

Microsoft VBScript runtime error '800a000d' 
Type mismatch 

任何提示将不胜感激。

Answer 1

使用动态数组时，您需要使用

ReDim Preserve m_arrApples(i + 1)

要增加数组的大小，如果您已经知道大小，请使用固定数组（如果您知道将有 10 个值，请使用 Dim m_arrApples(9)）。

---

有用的链接

• A: Confusion regarding Dynamic arrays

• A: Declaring a dynamic array not working as expected

Answer 2

尝试使用 Recordset 的 Getrows() 方法

'Create a Recordset
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "SELECT * FROM Table1", objConn

'now read the Recordset into a 2nd array
Dim aTable1Values
aTable1Values = objRS.GetRows()

然后您可以循环遍历二维数组：

Dim iRowLoop, iColLoop
For iRowLoop = 0 to UBound(aTable1Values, 2)
  For iColLoop = 0 to UBound(aTable1Values, 1)
    Response.Write(aTable1Values(iColLoop, iRowLoop) & "<br>")
  Next 'iColLoop

  Response.Write("<p>")
Next 'iRowLoop

更多信息在这里 http://www.4guysfromrolla.com/aspfaqs/ShowFAQ.asp?FAQID=161