cndao.bas

来自「基于C-S结构的办公信息数据处理系。经检测绝对可用。类似OutLook界面。」· BAS 代码 · 共 9 行

Attribute VB_Name = "cnDAO"
Public DB As Database
Public Table As TableDef
Public FL As DAO.Field
Public Sub openDAO()
Set DB = OpenDatabase(App.Path & "\OSDB.mdb")
FrmStart.Label1.Caption = "Connected to Database"
End Sub