dbfuc.bas

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

Attribute VB_Name = "DBFunc"
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public addflag As Boolean

Public Function openCn() As Boolean
Dim mag As String
Dim strCnn As String
On Error GoTo strerrmag
Set conn = New ADODB.Connection
conn.ConnectionTimeout = 25
strCnn = "Provider=sqloledb;" & _
      "Data Source=Enterprise;Initial Catalog=pubs;User Id=sa;Password=; "
conn.Open strCnn
openCn = True
addflag = True

strerrmag:
    mag = "data can't connect"
    Call MsgBox(mag, vbOKOnly, "error:data connect")
    addflag = False
  openCn = False
End Function


Public Sub clocn()
On Error Resume Next
If conn.State <> adStateClosed Then conn.Close
Set conn = Nothing
End Sub

Public Function openrs(ByVal strsql As String) As Boolean   '连接数据库记录集
Dim mag As String
Dim rpy As Boolean
On Error GoTo strerrmag
    Set rs = New ADODB.Recordset
    If addflag = False Then rpy = True
    With rs
    .ActiveConnection = conn
    .CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open strsql
    End With
    addflag = True
    openrs = True
    End
    'exit function
strerrmag:
    mag = "data not connect"
    Call MsgBox(mag, vbOKOnly, "error:connect")
    openrs = False
    End
    'exit function
End Function
Public Sub clors()
On Error Resume Next
If rs.State <> adStateClosed Then rs.Clone
Set rs = Nothing
End Sub