mdlcommon.bas

来自「这是我的毕业设计」· BAS 代码 · 共 14 行

Attribute VB_Name = "mdlCommon"
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