moddbaccess.bas

实现了

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
'创建字符串连接数据库
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
'查找数据是否存在
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