mdlcommon.bas

本文从天天宾馆客房客房管理的一般流程出发

Attribute VB_Name = "mdlCommon"
Option Explicit

Public Sub OpenTable(pAdo As Adodc, pRecordSource As String) '打开一个表，得到一个数据集
    With pAdo
        .ConnectionString = "dsn=hotel"
        .CommandType = adCmdUnknown
        .RecordSource = pRecordSource
        .Refresh
    End With
End Sub

Public Function get_test() As ADODB.Recordset

Dim conn As ADODB.Connection

Dim rs As ADODB.Recordset

conn.ConnectionString = "dsn=test"

rs.Open "select * from test where age>20", conn

get_test = rs

End Function