dbfunction.bas

自动回传考勤数据程序,小程序!大作用!可供大家参考一下!

Attribute VB_Name = "DbFunction"
Option Explicit

'DLL define
'Public Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long

'define public variable
Public if_sys_admin, superpw As String     'if_sys_admin:"0" is yes
Public puser, pusername, pcompanyname As String        'logon user info
Public pdatestr1, pdatestr2 As String

'define public ADO
Public pcnn As ADODB.Connection
Public psourcestr As String
Public perr As String   'error no

'define const
Public Const pdef_path = ""
Public Const pdload_path = "data\"
Public Const parch_path = "arch\"
Public Const pbak_path = "bak\"

'Mark by HUI 03-02-18
'Public Const pcnn_str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & pdef_path & "timebook.mdb;User ID=admin;Password=;Persist Security Info=False;Jet OLEDB:Database Password=2002ltc283"

'Add by HUI 03-02-18
'Public Const pcnn_str = "Provider=sql server;server=hui;database=SouthAttendance;uid=sa;Pwd=hui;"
'Public Const pcnn_str = "dsn=southAttendance_rpilw;uid=sa;pwd=hui"
Public db As Connection

'define subs
Sub pcnn_connection()
'   perr = "0"
'   'On Error GoTo ErrorHandler
'
'   Set pcnn = New ADODB.Connection
'   pcnn.ConnectionString = pcnn_str
'   pcnn.ConnectionTimeout = 30
'   pcnn.CommandTimeout = 30
'   pcnn.Mode = adModeReadWrite
'   pcnn.Open
'   On Error GoTo 0
'   Exit Sub
'
'ErrorHandler:
'   perr = "1"

   Exit Sub
ErrorHandler:
MsgBox Err.Description, vbOKOnly + vbCritical


End Sub

Sub pcnn_close()
   pcnn.Close

   Exit Sub
ErrorHandler:
MsgBox Err.Description, vbOKOnly + vbCritical


End Sub