Dim rstEmployees As ADODB.Recordset
Dim strCnn As String
Dim strMessage As String
Dim intRows As Integer
Dim avarRecords As Variant
Dim intRecord As Integer
' 使用雇员表中的姓名和受雇日期打开记录集。
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
Set rstEmployees = New ADODB.Recordset
rstEmployees.Open "SELECT fName, lName, hire_date " & _
"FROM Employee ORDER BY lName", strCnn, , , adCmdText
Do While True
' 得到用户输入的行数。
strMessage = "Enter number of rows to retrieve."
intRows = Val(InputBox(strMessage))
If intRows <= 0 Then Exit Do
' 如 GetRowsOK 成功则打印结果,请注意是否达到文件末端。
If GetRowsOK(rstEmployees, intRows, _
avarRecords) Then
If intRows > UBound(avarRecords, 2) + 1 Then
Debug.Print "(Not enough records in " & _
"Recordset to retrieve " & intRows & _
" rows.)"
End If
Debug.Print UBound(avarRecords, 2) + 1 & _
" records found."
' 打印已检索的数据。
For intRecord = 0 To UBound(avarRecords, 2)
Debug.Print " " & _
avarRecords(0, intRecord) & " " & _
avarRecords(1, intRecord) & ", " & _
avarRecords(2, intRecord)
Next intRecord
Else
' 假定 GetRows 错误源于其他用户对数据的更改,
' 使用 Requery 刷新 Recordset 并重新开始。
If MsgBox("GetRows failed--retry?", _
vbYesNo) = vbYes Then
rstEmployees.Requery
Else
Debug.Print "GetRows failed!"
Exit Do
End If
End If
<%
rec.open "select title from tablename",conn,3,1‘读出记录到RS对象
n=rec.RecordCount’计算一共读出了多少条记录
ReDim resultdata(n)‘定义一个数组,长度为N
for i= 1 to n ’开始循环
resultdata(i)=rec("title")‘ 将记录赋给数组
rec.movenext’在循环体内,移动记录指针到下一条记录
next‘循环
for i= 1 to n’开始循环
response.write resultdata(i)‘循环打印数组变量内容
next’循环
%>
<%
rec.open "select title from tablename",conn,3,1
n=rec.RecordCount
ReDim resultdata(n)
for i= 1 to n
resultdata(i)=rec("title")
rec.movenext
next
for i= 1 to n
response.write resultdata(i)
next
%>