vb 查询access出错问题

来源：百度知道 编辑：UC知道 时间：2024/05/18 06:40:11
本人做一个课程设计，图书馆管理系统，使用vb+access，想增加这样一项功能：让使用者自己输入sql查询语句查找信息。有一个text控件
sql=text
If rs.State = adStateOpen Then rs.Close
rs.Open sql, Module1.conn, 1, 1
.....
这样如果输入语句完全正确就查到结果了，但如果输入错误程序就会出错然后关闭。请问有没有方法使输入错误时只显示提示信息而不关闭程序。

dim Msg As string

If rs.State = adStateOpen Then rs.Close
on error resume next
Err.Clear
rs.Open sql, Module1.conn, 1, 1
if (err.Number <> 0 ) then
Msg = "Error # " & Str(Err.Number) & " was generated by " _
& Err.Source & Chr(13) & Err.Description
MsgBox Msg, , "Error", Err.Helpfile, Err.HelpContext
endif