Заполнение двухмерного массива с помощью набора записей в asp-classic

Question

Я пытаюсь заполнить 2D-массив элементами в наборе записей, но я продолжаю получать следующую ошибку: Ошибка выполнения Microsoft VBScript '800a0009' Подзаголовок за пределами допустимого диапазона: UBound '

Я также попытался изменить UBound на Ubound (ProxState, 1), но это просто дает мне следующую ошибку в строке после начала цикла «For»: Ошибка выполнения Microsoft VBScript' 800a0009 ' Подзаголовок за пределами допустимого диапазона

Dim ProxCount, LastProx 
ProxCount = 0 
Do While Not objRS.EOF 
    ProxCount = ProxCount + 1 
objRS.MoveNext 
Loop 

LastProx = ProxCount - 1 
objRS.MoveFirst 
Dim ProxState 

ProxState = Array(LastProx,1) 
For i = 0 To UBound(ProxState,0) 
    ProxState(i,0) = objRS("ProximityName") 
    ProxState(i,1) = objRS("InState") 
Next 

Answer 1

You ca n используйте GetRows(), чтобы назначить все за один раз вместо цикла.

ProxState = objRS.GetRows() 

См: http://www.asp.happycodings.com/DataAccess/code1.html

Answer 2

К сожалению, я предполагаю, что я был неправ об этом. Апология! ПОСЛЕДУЮЩИЕ НЕПРАВИЛЬНЫЕ. Убедившись вы знаете, что Ubound дает количество элементов, так ... если вы измените свой код следующим образом ...

For i = 0 To UBound(ProxState,0)-1 

, то он должен работать

Answer 3

Еще один способ:

Dim ProxCount 
Dim ProxState() 
ProxCount = 0 

If (not objRS.Eof) Then 
    ProxCount = objRS.RecordCount 

    ReDim ProxState(ProxCount - 1, 1) 

    For i = 0 To ProxCount - 1 
     ProxState(i, 0) = objRS("ProximityName") 
     ProxState(i, 1) = objRS("InState") 
    Next 

End If