查询到一个字段所有数据

[shuijinyue]

代码是这样的：

Set rs = New ADODB.Recordset
dt = Format(Now, "yyyy-mm-dd")

Call cdata
sql = "select*from space where dates='" & dt & "'"
rs.Open sql, conn, 3, 1
i = rs.RecordCount
ReDim s(1 To i)
For j = 1 To rs.RecordCount
s(j) = rs.Fields("content")
Next

rs.Close
conn.Close

For X = 1 To i

Label7.Caption = Label7.Caption & s(X) & vbCrLf

Next


我得到的结果只是这个字段的第一条数据的循环，其它的数据不能显示，恳求大虾帮忙！在线等！！

[gpyrbn]

因为你的记录集一直在第一条。
For j = 1 To rs.RecordCount
s(j) = rs.Fields("content")
rs.movenext
Next
循环里加一条语句就可以了！
不明白加我qq 573231701

[shuijinyue]

非常谢谢，已经OK！ 可惜我分好像不够，我来这里也不久，请兄弟原谅！

[gpyrbn]

解决问题了就好 ！