工程现有模块Module1(Module1.bas),内有代码:Public dbconn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public StrSQL As String
Public ConnString As StringPublic Function CreateConnect()
On Err GoTo connecterr ConnString = "Provider=SQLOLEDB.1;Password= sa ;Persist Security Info=True;User ID= sa ;Initial Catalog= db ;Data Source= (local) "
dbconn.ConnectionString = ConnString
dbconn.CursorLocation = adUseClient
dbconn.Open
Exit Functionconnecterr:
MsgBox "Connect Database Error!", vbInformation, "Information"
End
End FunctionPublic Function ExcuteSql(str_sql As String)
On Err GoTo connecterr
Set rs = Nothing
rs.Open str_sql, dbconn
Exit Function
connecterr:
MsgBox "Excute SQL Error!", vbInformation, "Information"
End
End Function
///
现在调试时,如果数据连接错误(把密码改成错误的),就直接中断了,我希望是如果连接不上数据库,能够弹出一个窗口来让手动设置数据库链接信息
不知如何修改?我是修改别人的程序。
Public rs As New ADODB.Recordset
Public StrSQL As String
Public ConnString As StringPublic Function CreateConnect()
On Err GoTo connecterr ConnString = "Provider=SQLOLEDB.1;Password= sa ;Persist Security Info=True;User ID= sa ;Initial Catalog= db ;Data Source= (local) "
dbconn.ConnectionString = ConnString
dbconn.CursorLocation = adUseClient
dbconn.Open
Exit Functionconnecterr:
MsgBox "Connect Database Error!", vbInformation, "Information"
End
End FunctionPublic Function ExcuteSql(str_sql As String)
On Err GoTo connecterr
Set rs = Nothing
rs.Open str_sql, dbconn
Exit Function
connecterr:
MsgBox "Excute SQL Error!", vbInformation, "Information"
End
End Function
///
现在调试时,如果数据连接错误(把密码改成错误的),就直接中断了,我希望是如果连接不上数据库,能够弹出一个窗口来让手动设置数据库链接信息
不知如何修改?我是修改别人的程序。
解决方案 »
- Word2003和Word2007的坐标不一样吗?
- SQL语句的设计~~求助高手
- 为何动态创建的UserControl会被窗体中的其他控件挡住?
- 如何设置DCOM组件的访问权限?
- Dim i As Long i = 3600 * 10 居然溢出??!!
- 在VB中使用access数据库的数据库备份问题
- 初学者,请大家多多关照!我用dbgrid显示一个查询的结果集有1000行,我想把他导出到一个带符号的文本文件,该如何实现这样的功能
- 在VB中,如何实现单击按钮即可打开一个htm网页?用ole建立链接为什么不行?
- 你想要分吗,要你就说嘛!
- 小问题:!是什么意思
- 一个关于vbs的简单问题,大家帮帮忙吧
- ◆SQL高手进请,模糊搜索中的SQL语句
On Err GoTo connecterr ConnString = "Provider=SQLOLEDB.1;Password= sa ;Persist Security Info=True;User ID= sa ;Initial Catalog= db ;Data Source= (local) "
dbconn.ConnectionString = ConnString
dbconn.CursorLocation = adUseClient
dbconn.Open
Exit Functionconnecterr:
增加你需要的弹出窗口!
MsgBox "Connect Database Error!", vbInformation, "Information"
End
End Function