ado連接數據庫模塊
2024-07-21 02:23:17
供稿：網友
加入這個模塊后，在程序中任意地方調用：
打開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
