module1.bas

来自「基于VB和ACCESS的成绩管理系统」· BAS 代码 · 共 17 行

Attribute VB_Name = "Module1"
Public Conn As New ADODB.Connection
Public Record As New ADODB.Recordset
'打开数据库函数
Public Function Open_DB(cmdSQL As String)
    cmdSQL = "Select * From " + cmdSQL
    Set Conn = New ADODB.Connection
    Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=./Info.mdb;Persist Security Info=False"

    Conn.Open
    Set Record = New ADODB.Recordset
    Record.Open cmdSQL, Conn, adOpenDynamic, adLockOptimistic
End Function
Public Function Close_DB()
   Conn.Close
End Function