clsdb.cls

来自「vb+sqlserver实现的人事管理系统」· CLS 代码 · 共 65 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsDB"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False

  'Public db_path As String
  
  Public dbconn As New ADODB.Connection
  Public dbstatus As Boolean
  
  Public Function opendb() As Boolean
    Dim connstring As String
        connstring = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Enterprise"
         
        dbconn.Open connstring
        
        If Err.Number <> 0 Then MsgBox Err.Description: GoTo errhandler
        
        opendb = True
        Exit Function
errhandler:
      opendb = False
      Exit Function
       
  End Function
  
  
  
Public Function closedb() As Integer
    
    dbconn.Close
    dbstatus = False
    
End Function

Public Function exesql(sqlstr As String, queryResult As ADODB.Recordset, Optional enableWrite As Boolean = True) As Boolean
    On Error GoTo errhandler:
        Dim ret
        
        Set queryResult = New ADODB.Recordset
        If enableWrite Then
            queryResult.Open sqlstr, dbconn, adOpenStatic, adLockOptimistic
        Else
            queryResult.Open sqlstr, dbconn, adOpenStatic, adLockReadOnly
        End If
        
        exesql = True
     Exit Function
errhandler:
    MsgBox Err.Description
    exesql = False
    Exit Function
    
End Function