Public Function ExecSql(ByVal sql As String) As Boolean '执行 Sql 语句,返回成功或失败
Debug.Print sql
On Error GoTo err:
cmd.ActiveConnection = getCon
cmd.CommandText = sql
cmd.CommandTimeout = 30
cmd.CommandType = adCmdText
cmd.Execute
ExecSql = True
Exit Function
err:
conn.RollbackTrans
MsgBox err.Description
ExecSql = False
End Function
麻烦帮忙看一下
Debug.Print sql
On Error GoTo err:
cmd.ActiveConnection = getCon
cmd.CommandText = sql
cmd.CommandTimeout = 30
cmd.CommandType = adCmdText
cmd.Execute
ExecSql = True
Exit Function
err:
conn.RollbackTrans
MsgBox err.Description
ExecSql = False
End Function
麻烦帮忙看一下
解决方案 »
- 我在VB6里运行CharB()函数的时候提示:子程序或函数未定义。
- 用API:URLDownloadToFile 下载文件的过程中,文件没下载完,程序会死死的,怎么办?
- 如何给自己制作的控件加一个图标???
- 熟练使用VB、SQL SERVER 、ACCESS进行数据库开发、月薪多少才算公平!
- 高手指点!!!
- pp的奇怪问题,长发仙子请GG,MM帮忙了!
- 急急急!!!高手进,帮帮忙啊!!
- 请问谁有关于酒店管理系统的说明书?
- 如何用vb6.0编程使所设置的背景图片能满铺整个屏幕大小?
- 在VB中如何实现FLASH控件的鼠标的单击事件?恳请各位高手指点。
- 读卡ID卡的问题?
- 如何winsock上传文件
conn.RollbackTrans 是会产生错误的