Attribute VB_Name = "modDBACCESS"
Option Explicit '全局變量
Global conn As ADODB.Connection '定義字符串連接
Global rs As Recordset '定義通用記錄集
Sub main()
 '加載登錄窗體
Menuform.Show
End Sub
Public Function Getconnected() As Boolean
On Error GoTo connecterror
'創(chuàng)建字符串連接數(shù)據(jù)庫
Set conn = New ADODB.Connection
'建立連接字符串
conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=hotels;Data Source=f6dd01db4dee4a3"
conn.CommandTimeout = 30
conn.Open '打開連接
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = conn
rs.LockType = adLockOptimistic
rs.CursorType = adOpenDynamic
Getconnected = True
Exit Function
connecterror:
    Getconnected = False
    MsgBox "錯誤代碼:  " & Err.Number & vbCrLf & "錯誤描述: " & Err.Description, vbCritical + vbOKOnly, "連接錯誤"

End Function
Public Function Querydata(ByVal str As String) As Boolean
On Error Resume Next
Set rs = New ADODB.Recordset
'按條件查詢
Call rs.Open(str, conn, adOpenDynamic, adLockOptimistic, -1)
If Err.Number > 0 Then
    Querydata = False
Else
    Querydata = True
End If
End Function
Public Function executesql(ByVal sql As String) As Boolean
On Error Resume Next
'查找數(shù)據(jù)是否存在
Set rs = conn.Execute(sql)
If rs(0) = 0 Then
   executesql = False
Else
     executesql = True
    End If
End Function
Public Function disconnect() As Boolean
If conn.State = adStateOpen Then
Set rs = Nothing
    conn.Close
    End If
End Function