accesscnn.bas

guan yu pai ke xi tong de ruan jian

Attribute VB_Name = "conn"
Public cnn As New ADODB.Connection '定义一个新的ADO数据源
Public kc1 As New ADODB.Recordset '定义一个新的ADO记录集
Public kc2 As New ADODB.Recordset '
Public kc3 As New ADODB.Recordset '
Public kc4 As New ADODB.Recordset '
Public kc5 As New ADODB.Recordset '

Sub Main()
tkOpenAccessDB App.Path & "\base.mdb"
'此处主要采用了一个过程来定义连接数据库，当然也可可以将过程完全简化一下，不过以下的连接参数设计
 '的比较完整，所以仍采用此过程进行连接数据库,在此代入的参数为当前目录下base.mdb数据库
If kc1.State = adStateOpen Then '当前记录集是否为打开状态，如果是，则关闭当前记录集
kc1.Close
End If
kc1.Open "select * from 登陆", cnn, adOpenStatic, adLockReadOnly, adCmdText
'以上这句是以只读方式进行检索登陆表，主要是用于确定当前表中是否有登陆内容，防止无用户而登陆不了系统
If kc1.RecordCount = 0 Then '当当前记录集返回记录数为0时，执行添加一条新记录，作为新的默认登陆帐号
Set kc1 = cnn.Execute("insert into 登陆 values('admin','admin','超级管理员')")
'以上语句是使用了SQL的插入语句，向数据库中加入新语句
End If
Set kc1 = cnn.Execute("select count(*) from pksystem")
If kc1.Fields(0) > 0 Then
Set kc1 = cnn.Execute("select * from pksystem")
nknumber = kc1.Fields(0) '这里注明全局变量初始值，即当前每天的课程为6节
'以下语句确定表教学时间段是否为空内容,如果是则转到输入界面
 Set kc2 = cnn.Execute("select count(*) from 教学时间段")
If kc2.Fields(0) < nknumber Then
   kctable = "教学时间段"
   Form5.Show
Else
Form1.Show '执行完以上操作就可以进入登陆窗体form1
End If
Else
Form3.Show
End If
End Sub
Private Sub tkOpenAccessDB( _
        tkFileName As String, _
        Optional tkUserID As String, _
        Optional tkPassword As String _
    )
    
    On Error GoTo tkFinish
    '以下cnn.open就是第一次使用了用户传入的参数打开了连接源
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & tkFileName & ";" & _
        "Mode=Share Deny None;" & _
        "Extended Properties=;" & _
        "Jet OLEDB:System database=;" & _
        "Jet OLEDB:Registry Path=;" & _
        "Jet OLEDB:Database Password=;" & _
        "Jet OLEDB:Engine Type=5;" & _
        "Jet OLEDB:Database Locking Mode=1;" & _
        "Jet OLEDB:Global Partial Bulk Ops=2;" & _
        "Jet OLEDB:Global Bulk Transactions=1;" & _
        "Jet OLEDB:New Database Password=;" & _
        "Jet OLEDB:Create System Database=False;" & _
        "Jet OLEDB:Encrypt Database=False;" & _
        "Jet OLEDB:Don't Copy Locale on Compact=False;" & _
        "Jet OLEDB:Compact Without Replica Repair=False;" & _
        "Jet OLEDB:SFP=False;" & _
        tkUserID, _
        tkPassword
    
    Exit Sub
tkFinish:
    MsgBox Err.Description
    End
    
End Sub