请教一下标准模块与项目模块的用法，下面是我做的标准模块：
Option Explicit
'链接数据库的字符串
Public Const Conn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=false;Initial Catalog=CC_shujuku_10_01_11_09_47_38R;data source=topck\wincc"
'catalog = 数据库名称
Private IsConnect
'判断数据库是否链接
Private cnn 'As ADODB.Connection
'Set cnn=CreateObject("ADODB.Connection")
'链接数据库的connection 对像
Private oRs 'As ADODB.Recordset
'Set oRs=CreateObject("ADODB.Recordset")
'保存结果集的recordset对像
Public Sub Db_Connect()
'如果链接标记为真 返回
If IsConnect = True Then
MsgBox "连接数据库成功"
Exit Sub
End If
'关键字NEW用来创建新对像CNN
Set cnn=CreateObject("ADODB.Connection")
Set oRs=CreateObject("ADODB.Recordset")
'设置cnn的链接字符串的connectstring 属性
cnn.ConnectionString = Conn
'打开数据库
cnn.Open
MsgBox cnn
'判断链接状态
IsConnect = True
MsgBox "OK"
If cnn.State <> adStateOpen Then
'如果不成功，显示提示退出程序
MsgBox "链接数据库失败"
Exit Sub
End If
'设置链接标记，表示已经链接到数据库
End Sub
Sub Db_Disconnect()
'如果链接标记为假，表明已经断开，直接返回
If IsConnect = False Then
MsgBox "断开数据库的连接"
Exit Sub
End If
'关闭链接
cnn.Close
'设置链接标记，表明已经断开链接
IsConnect = False
End S
这些代码是在VB里的模块的，在VB里好用，在按钮动作里我直接调用 Db_connect()这样不对吗，我在在它下面加了一个msgbox去测试，结果没有执行，说明这样的调用不正确，那么应该如休去做呢，我想把连接数据库的代码做成模块以后直接调用，要不在按钮里总要写一扁，太麻烦了！看了论坛里的所有和这个有关的，都没搞出个所以然来！请各位来点详细的！
最佳答案
你的脚本中应该是直接使用msbox，在脚本中应该使用excute函数来执行你的脚本
提问者对于答案的评价：
谢谢你的回答
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc270276.html
微信扫一扫 
支付宝扫一扫 