有个VB问题,请高人指点。
来源:互联网 发布:淘宝改差评用什么软件 编辑:程序博客网 时间:2024/05/01 08:28
下面这个题运行的时候为什么会提示少了IF?
Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String
On Error GoTo ExecuteSQL_Error
sTokens = Split(SQL)
Set cnn = New ADODB.Connection
cnn.Open ConnectString
If InStr("INSERT,DELETE,UPDATE,EXECUTE", UCase$(sTokens(0))) Then cnn.Execute (SQL)
MsgString = sTokens(0) & "query successful"
Else
Set rst = New ADODB.Recordset
rst.Open Trim$(SQL), cnn.adOpenKeyset, adLockOptimistic
Set ExecuteSQL = rst
MsgString = "查询到" & rst.RecordCount & "条记录"
End If
ExecuteSQL_Exit:
Set rst = Nothing
Set cnn = Nothing
Exit Function
ExecuteSQL_Error:
MsgString = "查询错误:" & Err.Description
Resume ExecuteSQL_Exit
End Function
- 有个VB问题,请高人指点。
- 栈,进制转换(用数组输出) 有个问题不明白,请高人指点
- 我敢说,这绝对是个问题!我都觉得它是9i的bug了! 请高人指点,太有难度了。
- org.springframework.beans.NotWritablePropertyException,请高人指点...
- 本人正想学asp.net,高人请指点指点方向。。
- 关于移位的问题?????请高人指点?谢谢!万急!再谢!!
- 记个前天写的一脚本,有高人指点更好,呵呵
- VC++6.0 Link问题?求高人指点
- (请高人指点)VC 修改内存地址中指令
- 请高人指点一下 帮帮忙啊 急事啊
- 我是新手,问个关于JAVA的问题!?请各位大大指点指点
- vb.net,新手上路,请指点
- 一个指针引起的问题,寻求高人指点
- B2B2C商城,数据库设计,希望高人指点,问题在哪?
- 请教淘宝API sign签名问题,望高人指点!谢谢!
- 望高人指点
- 求高人指点!
- 求高人指点!!!!!!!!!!!!!!!!!!!!!!!
- hibernate中load,get;find,iterator;merge,saveOrUpdate,lock的区别
- Hibernate模糊查询参数化的问题
- 脚本之家(http://www.jb51.net/)正则表达式 口诀
- 中国IT从业者的职业——软件项目管理师
- 语言联合国
- 有个VB问题,请高人指点。
- 考试了
- 用grub4dos解决所有硬盘安装iso系统问题
- 最近打算录制spring视频和j2me的视频,不知道哪个先录好,呵
- JavaFX+Java打字练习软件(布局篇)
- 指个方向吧
- 通过JS实现上传图片的功能
- 关于eclipse中svn插件的配置方式
- 机会来了