随机取得N条记录问题
代码:
DbSQL = "select top " + CStr(Mcrs) + " * from employee where gyn<>'Y' order by rnd(len(gname)) "
Set DbRst = DbCnn.Execute(DbSQL)
DbRst.MoveFirst
Do Until DbRst.EOF
'添加到获奖列表
Luckylist.AddItem DbRst.Fields(1)
'人员名单中标识已经过奖
DbSQL = "update employee set gyn='Y' where gno='" & DbRst.Fields(1) & "'"
DbCnn.Execute DbSQL
'添加滚动条文字
movestring = movestring & DbRst.Fields(1)
DbRst.MoveNext
Loop
DbRst.Close
问题:
只要我加了 where gny<>'Y'就取不到记录集.不加条件就有,而我在sql查询中使用条件却可以得到记录,我用的是VB6+access2003.
[解决办法]
DbSQL = "select top " + CStr(Mcrs) + " * from employee where gyn<>'Y' order by rnd(len(gname)) "
看语句没有问题，看看数据库里数据是否没有Y的。
[解决办法]
应该是gyn字段都“Y”了
