您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)

查询到一个字段所有数据

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

查询到一个字段所有数据[已结贴,结贴人:shuijinyue]

发表于：2007-07-14 09:48:43 楼主

代码是这样的：

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

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

发表于：2007-07-14 10:20:381楼得分:20

因为你的记录集一直在第一条。
for j = 1 to rs.recordcount
s（j) = rs.fields（ "content ")
rs.movenext
next
循环里加一条语句就可以了！
不明白加我qq 573231701

发表于：2007-07-14 10:33:472楼得分:0

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

发表于：2007-07-14 10:39:263楼得分:0

解决问题了就好！

下一篇：vb运行错误91 和7005，谁能帮我下
上一篇：请大家帮我解决grid++report的一个问题！！

其他资讯