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

[xiamin]

用SQL语句和rs（New ADODB.Recordset）实现查询某人是否在数据库中？

[txlicenhe]

if exists(select 1 from 表 where 姓名 = '某人')
print '在'
else
print '不在'

[SoHo_Andy]

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

[fleshboy]

楼主啊，你想干什么？

select 在否 from yourtable where 姓名 = 某人

[上官云峰]

select name from xx表 where 姓名=某人