?? 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
'創(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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -