module1.bas

本程序是vb+access做的图书管管理系统

Attribute VB_Name = "Module1"
Option Explicit
Public con As ADODB.Connection
Public rct As ADODB.Recordset
Public grade As Integer


Public Function connecttoserver() As Boolean
    On Error GoTo on_error
    Set con = New ADODB.Connection
    con.Open "dsn=book"
    connecttoserver = True
    Exit Function
on_error:
    MsgBox "连接失败", vbOKOnly, "打开数据库错误"
    connecttoserver = False
End Function

Public Function closeconnect() As Boolean
    On Error Resume Next
    If (Not con Is Nothing) Then con.Close
    Set con = Nothing
End Function

Public Function runsql(ByVal strsql As String) As Boolean
'On Error GoTo on_error
    Set rct = New ADODB.Recordset
    rct.Open strsql, con, adOpenDynamic, adLockOptimistic, -1
    runsql = True
    Exit Function
on_error:
    MsgBox "执行错误", vbOKOnly
    runsql = False
End Function