modmain.bas

来自「为一个公司」· BAS 代码 · 共 25 行

Attribute VB_Name = "modMain"
Option Explicit

Public cnnMain As New ADODB.Connection
Public rstMain As New ADODB.Recordset
Public btnindex

Public gstrUser As String '当前登录用户
Public gintLevel As Integer '用户级别

'ado对象连接本地数据库 .\data\data.mdb
Public Sub ConnectLoadDB()
  With cnnMain
    If .State = adStateOpen Then .Close
     .Provider = "Microsoft.Jet.OLEDB.4.0"
     .Open App.Path & "\data\data.mdb"
  End With
  With rstMain
    If .State = adStateOpen Then .Close
    Set .ActiveConnection = cnnMain
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
  End With
End Sub