如果没从数据库中检出记录怎么办

newgina 2003-07-03 04:26:43
如果没从数据库中检出记录怎么办

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\ DB1.MDB;Persist Security Info=False"
cn.Open

rs.CursorLocation = adUseClient
sql = "select * from pas where id = ' " & Trim(ID) & "' "
rs.Open sql, cn, adOpenDynamic

Label3.Caption = rs(1)

如果一切顺利那没问题,那如果数据库中没有符合条件记录,在Label3.Caption = rs(1)
处就会有问题。而又不能用rs(1)=””来判断,用isnull(rs(1))也不行
这个地方应该怎么判断呢
...全文
14 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
lijihong 2003-07-03
  • 打赏
  • 举报
回复
if rs.bof and rs.eof then
msgbox "没有记录"
else
rs.movelast
msgbox "有" & rs.recordcount & "条记录!"
end if
lihonggen0 2003-07-03
  • 打赏
  • 举报
回复
if rs.RecordCount>0 then
label1.Caption = rs.Fields(1)

end if
wei1027 2003-07-03
  • 打赏
  • 举报
回复
If rs.EOF = True Then
MsgBox "没有符合条件的记录"
Exit Sub
Else
label1.Caption = rs.Fields(1)
End If
lxqlogo0 2003-07-03
  • 打赏
  • 举报
回复
rs.CursorLocation = adUseClient
sql = "select * from pas where id = ' " & Trim(ID) & "' "
rs.Open sql, cn, adOpenDynamic
if not rs.eof then
Label3.Caption = rs(1)
else
msgbox "没有纪录"
end if

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧