module1.bas

图书管理系统VB版本

Attribute VB_Name = "MdLianjie"
Public ConTSGL As ADODB.Connection       '声明一个"图书管理"数据库的连接对象

Sub main()      '由main开始启动程序
    Form1.Show 1
    If Lianjie = True Then      '判断连接数据库是否成功
        FrmDL.Show      '进入登陆界面
    End If
End Sub

Function Lianjie() As Boolean
On Error GoTo Line1
    Set ConTSGL = New ADODB.Connection   '连接对象实例化
    ConTSGL.CursorLocation = adUseClient    '游标位置设为客户端
    ConTSGL.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=TushuGuanli.mdb;Persist Security Info=False"
    Lianjie = True      '表示连接成功
    Exit Function       '跳出事件
Line1:
    Lianjie = False     '表示连接失败
    Err.Clear   '清除错误属性
    '连接数据库失败原因提示：
    MsgBox "请检查您的数据库：" & Chr(13) + Chr(10) & "1、数据库文件TushuGuanli.mdb是否存在" & _
                                  Chr(13) + Chr(10) & "2、TushuGuanli.mdb文件是否在此文件目录下" _
                                  , vbExclamation + vbOKOnly, "错误提示："
End Function