ado连接数据库模块

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

 打开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

本文地址：http://com.8s8s.com/it/it42600.htm