我想寫一個VBScript UFT測試,從表中獲取一組數據(它將是100條記錄)。我只會從下面的查詢中看到選擇一列。數據庫到數組
SELECT TOP 100 l_Name FROM lessee
我能得到一個消息框中顯示的第一條記錄,但我只是做了這是一個考驗。我現在想要做的是將每條記錄添加到數組中,以便稍後循環它們以更改WebEdit文本框的值。
以下是我目前的代碼,但我有點困難搞清楚這一點。
Dim DBQuery
DBQuery = "Select top 100 l_Name from lessee"
objConnection.Open "Provider=sqloledb.1;Server=TestServer;User Id=User;Password=Test123;Database=DBTest"
objRecordSet.Open DBQuery,objConnection
' Return the Result Set '''
For Each element In ObjRecordset.Fields.Item
Value = objRecordSet.fields.item(element)
MsgBox Value
Next
' Release the Resources '''
objRecordSet.Close
objConnection.Close
Set objConnection = Nothing
Set objRecordSet = Nothing
我假設循環返回的記錄將工作。