mdlcommon.bas

来自「旅馆收费管理信息系统VB+ACCESS完整源代码 DOC设计报告 可运行文件」· BAS 代码 · 共 17 行

Attribute VB_Name = "mdlCommon"
'旅馆收费管理信息系统 V1.0.0
'作者：林铭钦 E-mail:[e-mail]
'广东工业大学 03计算机
Option Explicit

Public Sub OpenTable(pAdo As Adodc, pRecordSource As String) '打开一个表，得到一个数据集
    With pAdo
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
            & App.Path _
            & "\Hotel.mdb;Persist Security Info=False"
        .CommandType = adCmdUnknown
        .RecordSource = pRecordSource
        .Refresh
    End With
End Sub