module1.bas

来自「宾馆在正常的运营中需要对客房资源、顾客信息、结算信息进行管理」· BAS 代码 · 共 15 行

Attribute VB_Name = "Module1"
Public flagEdit As Boolean
Public gintMode As Integer

Public Sub lianjie()
Dim db As Database
Dim rs As Recordset
Set rs = db.OpenRecordset("select * from 旅店登记", db, adOpenStatic, adLockReadOnly)
Set DataGrid1.DataSource = rs




End Sub