高考问答科学怪人图片:会用VB的GGJJ们啊！来帮帮我吧！
来源：百度文库 编辑：高考问答 时间：2024/05/05 09:23:46
但是如果这个人不存在就要弹出一个对话框，上面写着无此人！但是ACCESS的功能作不到这个判断！我想用ACCESS里面的VB辅助功能作这个查询！但是我是个VB小白！不知道怎么作！哪位好心人能告诉我啊？谢谢了！
2楼的谢谢你啊！但是能不能给点注解啊，看不太懂。
谢谢了！！！！！！！！！！！！！！1
Public Function ExeSQL(ByVal sql As String) As ADODB.Recordset '此函数用来执行 SQL 语句
On Error GoTo ErrHandler:
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim str As String
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
str = Mid(sql, 1, 6)
cn.Open gConnStr
If StrComp(str, "select", vbTextCompare) = 0 Then
rs.Open Trim$(sql), cn, adOpenKeyset, adLockOptimistic
Set ExeSQL = rs
Else
cn.Execute sql
End If
ExeSQl_Exit:
Set rs = Nothing
Set cn = Nothing
Exit Function
ErrHandler:
' 显示错误信息
MsgBox "错误号:" & Err.Number & " 错误信息：" & Err.Description, vbExclamation
Resume ExeSQl_Exit
End Function
'填入以下代码
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
gConnStr = "Access连接字符串"
Set rs = ExeSQL("select 人名 from 表名 where 人名=想要的人名")
If rs.EOF = True Then MsgBox "没有此人！", Exclamation, "警告"
才悬赏0分?太小气了,会也不给做!