module1.bas

图书管理系统New08-05-28.rar（包含文档）

Attribute VB_Name = "Module1"


Public limite As Integer '控制不同身份，具有的操作行为不同
Public iflag As Integer  '数据库是否打开标志
Public user As String  '存取当前登录的用户
Public tShubiaohao As String  '需要更新的图书编号

'执行sql语句的函数
Public Function ADOSQL(ByVal sql As String) As ADODB.Recordset
  Dim cont As ADODB.Connection
  Dim rs As ADODB.Recordset
  Dim strConnection As String
  Dim strArray() As String
  Set cont = New ADODB.Connection    '创建连接
  Set rs = New ADODB.Recordset
  On Error GoTo ADOSQL_error
      strConnection = "Provider = Microsoft.jet.oledb.4.0; data source=" & App.Path & "\database.mdb;"
      strArray = Split(sql)         'Split() 返回一个下标从零开始的一维数组
      cont.Open strConnection        '打开连接
      If StrComp(UCase$(strArray(0)), "select", vbTextCompare) = 0 Then
          rs.Open Trim$(sql), cont, adOpenKeyset, adLockOptimistic
          Set ADOSQL = rs
          iflag = 1
      Else
          cont.Execute sql
          iflag = 1
      End If
ADOSQL_exit:
      Set rs = Nothing
      Set cont = Nothing
      Exit Function
ADOSQL_error:
      MsgBox "查询错误：" & Err.Description
      iflag = 2
      Resume ADOSQL_exit
End Function