实现查询某人是否在数据库中?

xiamin 2003-12-10 07:54:33
用SQL语句和rs(New ADODB.Recordset)实现查询某人是否在数据库中?
...全文
37 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
上官云峰 2003-12-10
  • 打赏
  • 举报
回复
select name from xx表 where 姓名=某人
fleshboy 2003-12-10
  • 打赏
  • 举报
回复
楼主啊,你想干什么?

select 在否 from yourtable where 姓名 = 某人
SoHo_Andy 2003-12-10
  • 打赏
  • 举报
回复
Public Function FindPeople(strName as string) as string
Dim rs As ADODB.Recordset
Dim Cnn As ADODB.Connection

Cnn.Open "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic

rs.Open "SELECT * FROM 表 " & _
"WHERE 姓名='"& strName &"'", strCnn, , , adCmdText

if not rs.eof and not rs.bof then
FindPeople="有"
else
FindPeople="无"
end if

rs.Close

End function
txlicenhe 2003-12-10
  • 打赏
  • 举报
回复
if exists(select 1 from 表 where 姓名 = '某人')
print '在'
else
print '不在'

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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