module1.bas

用VB编写的酒店管理系统

Attribute VB_Name = "Module1"
Public rights As Integer '登陆权限
Public username As String '登陆用户
Public boo As Boolean '记录是否保存
Public bookin As Boolean '入库窗体的的状态
'msgstr只不过是ExecuteSQL执行过程中一个临时存放提示字符串的变量,msgstr在Function里定义 ，这个ExecuteSQL执行完毕。它所占的空间就被释放了！
Public Function ExecuteSQL(ByVal SQL _
As String, msgstring As String) _
As ADODB.Recordset '传递参数SQL查询语句，MsgString传递查询信息
Dim cnn As ADODB.Connection '定义连接
Dim rst As ADODB.Recordset
'定义字符串
Dim sTokens() As String
'异常
On Error GoTo ExecuteSQL_Error
'用split函数产生一个包含各个子串的数组
sTokens = Split(SQL)
'创建连接
Set cnn = New ADODB.Connection
'数据连接
cnn.ConnectionString = App.Path & "\" & "HotelData.mdb"
cnn.Provider = "Microsoft.jet.OLEDB.4.0"
cnn.Open  '打开连接
'判断字符串中是否含有指定内容
   If InStr("INSERT,DELETE,UPDATE", _
      UCase$(sTokens(0))) Then
      cnn.Execute SQL  '查询语句
      msgstring = sTokens(0) & _
         " 查询成功"
   Else
      Set rst = New ADODB.Recordset '创建数据集对象
      '返回查询结果
      rst.Open Trim$(SQL), cnn, _
         adOpenKeyset, _
         adLockOptimistic
      'rst.MoveLast     'get RecordCount
      Set ExecuteSQL = rst
      msgstring = "查询到" & rst.RecordCount & _
         " 条记录 "
   End If
ExecuteSQL_Exit:
   Set rst = Nothing
   Set cnn = Nothing
   Exit Function
   
ExecuteSQL_Error:
   msgstring = "查询错误: " & _
      Err.Description
   Resume ExecuteSQL_Exit
End Function