accesscnn.bas

2.0版本,整合了作者此前的学生信息管理系统与学生学籍管理系统的功能,具有类QQ菜单,漂亮表格控件,图表生成与打印功能的系统.此程序是早期作者投入最多的作品之一,并将学籍管理系统,成绩管理系统,学生信

Attribute VB_Name = "accesscnn"
Public cnn As New ADODB.Connection
Public qy1 As New ADODB.Recordset '数据专用
Public qy2 As New ADODB.Recordset '数据专用

Sub Main()
tkOpenAccessDB App.Path & "\base.mdb"
If qy1.State = adStateOpen Then '表状态
qy1.Close
End If
qy1.Open "select * from 登陆", cnn, adOpenStatic, adLockReadOnly, adCmdText
If qy1.RecordCount = 0 Then
Set qy1 = cnn.Execute("insert into 登陆 values('admin','admin','超级管理员')")
End If
Form3.Show
End Sub
Private Sub tkOpenAccessDB( _
        tkFileName As String, _
        Optional tkUserID As String, _
        Optional tkPassword As String _
    )
    
    On Error GoTo tkFinish
    
    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