accconn.bas

奖学金查询系统

Attribute VB_Name = "accesscnn"
Public cnn As New ADODB.Connection '新建一个数据源变量
Public yx1 As New ADODB.Recordset '新建一个记录集
Public yx2 As New ADODB.Recordset '新建一个记录集
Public yx3 As New ADODB.Recordset '新建一个记录集
Public yx4 As New ADODB.Recordset '新建一个记录集
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Sub main()
tkOpenAccessDB App.Path & "\base.mdb"
Set yx1 = cnn.Execute("select count(*) from 用户")
If yx1.Fields(0) = 0 Then
Set yx1 = cnn.Execute("insert into 用户 values('admin','admin','1','1','1','1','1','1')")
'此句主要是在登陆时查询表类是否含有数据,如果没有,就自动写入一个用户新记录
End If
login.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