ado串連資料庫模組

來源:互聯網
上載者:User
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



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。