accesscnn.bas

一个VB做的考试日程安排管理系统

Attribute VB_Name = "conn"
Public cnn As New ADODB.Connection
Public ks1 As New ADODB.Recordset
Public ks2 As New ADODB.Recordset
Public ks3 As New ADODB.Recordset
Public ks4 As New ADODB.Recordset
Public ks5 As New ADODB.Recordset
Public ks6 As New ADODB.Recordset
Public ks7 As New ADODB.Recordset
Public ks8 As New ADODB.Recordset
Public ks9 As New ADODB.Recordset


Sub Main()
tkOpenAccessDB App.Path & "\base.mdb"
Set ks1 = cnn.Execute("select count(用户名) from 登陆")
If ks1.Fields(0) = 0 Then
Set ks1 = cnn.Execute("insert into 登陆 values('admin','admin','超级管理员')")
End If
Form1.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