ado连接数据库模块

新客网 XKER.COM 2004-12-03 来源：收藏本文

加入这个模块后，在程序中任意地方调用：

打开ado数据库连接：Call CnnDB(mcnn, sCnn, True)
关闭ado数据库连接：Call DisCnn(mcnn)

这样，让数据库连接更加方便被连接和关闭

'%#******************************************
'%#*窗体名称：MdlDB
'%#*功能描述：加入这个模块后调用 Call CnnDB(gcnnDB, sCnn, True)
'%#*作者：宁彦彬
'%#*修改日期:2002-12-03
'%#******************************************
'%#*Option Explicit

Public Sub CnnDB(ByRef mcnn As ADODB.Connection, sCnn as string, Optional blnClient As Boolean)
'*purpose: connect local sqlserver
'*NOTE: 在这里数据连接
On Error GoTo MYERR
If blnClient = True Then
mcnn.CursorLocation = adUseClient
Else
mcnn.CursorLocation = adUseServer
End If
mcnn.ConnectionString = sCnn '定义好的
mcnn.Open
MYEXIT:
Exit Sub
MYERR:
MsgBox "服务器没有运行" & vbCrLf & Err.Number & vbCrLf & Err.Description, vbCritical, "错误"
GoTo MYEXIT
End Sub

Public Sub DisCnn(ByRef mcnn As ADODB.Connection)
'*purpose: disconnect local sqlserver
'*NOTE: 在这里数据断开连接
On Error GoTo MYERR
mcnn.Close
Set mcnn = Nothing
MYEXIT:
Exit Sub
MYERR:
GoTo MYEXIT
End Sub

Function serverDate(ByRef mcnn As ADODB.Connection)
'*purpose: 取到服务器的系统时间
'*NOTE: 必须在mcnn初始化后再用
' MsgBox serverDate(mcnn)
On Error GoTo MYERR
Dim rst As New ADODB.Recordset
Set rst = mcnn.Execute("select getdate()")
serverDate = rst(0)
rst.Close
Set rst = Nothing
MYEXIT:
Exit Function
MYERR:
GoTo MYEXIT
End Function

上一篇：刚刚整理好-汉字转拼音缩写的函数下一篇：窗体中控件自动随窗体变化大小

【收藏】【评论】【推荐】【投稿】【打印】【关闭】