vb+sql 求教！！！！！！！！！！！！！

来源：百度知道 编辑：UC知道 时间：2024/05/20 16:08:30
我想用vb+sql做一个查询表的小程序。我一个代码请教高手。我查询语句我用sql ，如果没有结果，则出现一个对话框，数据不存在，这个不存在的对话的代码怎么写啊 ！！必有重谢！

msgbox("数据不存在")

set rs=conn.execute(sql)
if rs.recordcount = 0 then
msgbox "没有数据",64,"系统提示"
end if

有些程序中直接这么用是不好使的,
在工程中引用ADO后好像可以解决

sql="select * from 表名 where 条件"
set rs=conn.execute(sql)
if rs.eof then
msgbox ("无数据")
else
msgbox ("有数据")
end if

代码分析
通过SQL语句查询数据库 并将查询结果存在一个
recordset对象里面
if rs.eof then 就表示如果记录为记录结尾(也就是一打开就是结尾,就表示根本没数据)
就用msgbox方法提示 没有数据

回答完毕

msgbox "数据不存在"
ret=msgbox("数据不存在",0+64,"注意")