vb随机从access数据库中取5条纪录并显示在text文本框中
请用selecttop5*fromtable_name....这种方式,然后就是怎么把取得的纪录显示在text文本框中....
请用select top 5 * from table_name ....这种方式,然后就是怎么把取得的纪录显示在text文本框中.
展开
2个回答
展开全部
rs.open "select top 5 * from table_name ",conn,1,3
while not rs.eof
text1.text=text1.text & rs("字段")
rs.movenext
wend
你说的太不清楚,我只能这么理解!
随机取?!我刚注意到!
以前写过,用的是随机数的方式,下面是实例,你需要的话还要加上是否允许重复取同一条记录的判断!
dim a as long
rs.open "select * from table",conn,1,3
if not rs.eof then
fot i=1 to 5
Randomize
rs.movefirst
a= int(rnd*rs.RecordCount)
rs.move a
text1.text="你需要的代码!"
next i
end if
rs.close
别想用一句SQL写出来了,自己加判断吧!保存每次的随机数就行了!
while not rs.eof
text1.text=text1.text & rs("字段")
rs.movenext
wend
你说的太不清楚,我只能这么理解!
随机取?!我刚注意到!
以前写过,用的是随机数的方式,下面是实例,你需要的话还要加上是否允许重复取同一条记录的判断!
dim a as long
rs.open "select * from table",conn,1,3
if not rs.eof then
fot i=1 to 5
Randomize
rs.movefirst
a= int(rnd*rs.RecordCount)
rs.move a
text1.text="你需要的代码!"
next i
end if
rs.close
别想用一句SQL写出来了,自己加判断吧!保存每次的随机数就行了!
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询