1,216
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form_Load()
Dim db As Database
Dim rs As Recordset
Dim doc As Document
Dim strMsg As String
Dim strTmp As String
Set db = OpenDatabase("c:\db2.mdb")
'数据库属性-摘要-里的信息从上到下九个
Set doc = db.Containers("Databases")![SummaryInfo]
strTmp = "摘要信息从上到下9个:" & vbNewLine & vbNewLine
strMsg = doc.Properties![Title]
strTmp = strTmp & strMsg & vbNewLine
strMsg = doc.Properties![Author]
strTmp = strTmp & strMsg & vbNewLine
strMsg = doc.Properties![Company]
strTmp = strTmp & strMsg & vbNewLine
strMsg = doc.Properties![Subject]
strTmp = strTmp & strMsg & vbNewLine
strMsg = doc.Properties![Manager]
strTmp = strTmp & strMsg & vbNewLine
strMsg = doc.Properties![Keywords]
strTmp = strTmp & strMsg & vbNewLine
strMsg = doc.Properties![Comments]
strTmp = strTmp & strMsg & vbNewLine
strMsg = doc.Properties![Category]
strTmp = strTmp & strMsg & vbNewLine
strMsg = doc.Properties![Hyperlink base]
strTmp = strTmp & strMsg & vbNewLine
MsgBox strTmp, 64
'数据库里iTable表的表属性里的-说明-内容
Set doc = db.Containers("Tables")![iTable]
strMsg = doc.Properties![Description]
strTmp = "iTable表属性中的说明内容:" & vbNewLine & vbNewLine
strTmp = strTmp & strMsg
MsgBox strTmp, 64
End Sub