为什么会出现这个问题呢?

[xiaoheliushui]

分不多了嘿嘿
出现这个问题正常吗?
sql1 = "select pzhao from zhangwupingzheng1"
rs.Open sql1, cn, 3, 2
If rs.BOF And rs.EOF Then
MsgBox "数据库中记录为空!"
exit sub
End If
MsgBox rs.RecordCount
我本意是想,
当记录为空的时候,跳出来,
但是这个好像有错误,
我用消息框输出rs.RecordCount=-1
不明白,
我应该怎么做才能达到我要的效果呢?

[xiaoheliushui]

OK了.

[cslf]

'use clicnt cursor
rs.CursorLocation = adUseClient
rs.Open sql1, cn, 3, 2

[rickytwice]

If rs.BOF And rs.EOF Then
MsgBox "数据库中记录为空!"
exit sub
End If


And??

改成 Or ？：）

[xiaoheliushui]

如果换成or的话,
还能判断是不是表里数据为空吗?
如果那样的话.
指针走到最后一位的时候,
也会提示记录为空的.
现在问题还没有解决.
我很不明白为什么:]
rs.RecordCount的值为:-1

[njhxc]

rs.CursorLocation = adUseClient

[rickytwice]

哦，对不起，前面没有看明白。
你再试试加一句：rs.movefirst
然后再判断呢？

[xiaoheliushui]

rs.CursorLocation = adUseClient

这一句不行还是老样子.

[tangxiaosan001]

这样的话,你那个rs.eof是不是没有用呢?
你用rs.RecordCount=0来判断好了.

[xiaoheliushui]

是的,
我用消息框输出的rs.RecordCount的值,
当我数据库里的数据为空的时候,
值为-1

用rs.RecordCount=0来判断
在这个时候也没有作用吧?

[RUKYO]

在前面加一句：
rs.CursorLocation = adUseClient

[xiaoheliushui]

试一下.

[xiaoheliushui]

我放在
rs.Open sql1, cn, 3, 2
这一句的后面,
提示对像打开时操作不被允许,

[xiaoheliushui]

rs.movefirst
or

rs.movenext

都试过的,
不行.

[simoncheung]

If rs.BOF And rs.EOF Then

and -->or