Module1.bas
上传用户:xxdyjx888
上传日期:2022-06-01
资源大小:55k
文件大小:2k
源码类别:

家庭/个人应用

开发平台:

Visual Basic

  1. Attribute VB_Name = "Module1"
  2. Public Str_path As String
  3. Public Cname As String  '登陆时传用户名
  4. Public Cdate1 As String '传日期(收入情况列表)
  5. Public Cdate2 As String '传日期
  6. Public AA As Boolean     '判断是否选择月份
  7. 'ADO编程模型连接数据库
  8. Public Function Connectstring() As String
  9. 'Dim Str_path As String
  10. Str_path = App.Path & "" & "databaseMoneyMIS.mdb"
  11. Connectstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & Str_path & "';Persist Security Info=False"
  12. End Function
  13. 'ADO编程模型连接数据库
  14. Public Function ExeCutesql(ByVal Sql As String, Msgstring As String) As ADODB.Recordset
  15.        Dim Cnn As ADODB.Connection
  16.        Dim Rst As ADODB.Recordset
  17.        Dim Stokens() As String '数组
  18.        
  19. '       On Error GoTo executesql_error
  20.        Stokens = Split(Sql) '将sql语句按关键字保存在数组中
  21.        Set Cnn = New ADODB.Connection
  22.        Cnn.Open Connectstring
  23.        
  24.        If InStr("INSERT,DELETE,UPDATE", UCase$(Stokens(0))) Then
  25.           Cnn.Execute Sql
  26.           Msgstring = Stokens(0) & "查询成功"
  27.        Else
  28.           Set Rst = New ADODB.Recordset
  29.           Rst.Open Trim$(Sql), Cnn, adOpenKeyset, adLockOptimistic '重服务器中提取符合要求的记录集
  30.           Set ExeCutesql = Rst
  31.           Msgstring = "查询到" & Rst.RecordCount & "条记录"
  32.        End If
  33.        
  34. executesql_exit:
  35.      Set Rst = Nothing '释放记录集
  36.      Set Cnn = Nothing '释放连接语句
  37.      Exit Function
  38. executesql_error:
  39.        Msgstring = "查询错误:" & Err.Description
  40.        Resume executesql_exit
  41. End Function