首先,在你的工程中引用ADOX类库,定义一个新的Catalog对象。如: dim MyCat as New Catalog '用这个Catalog打开你的数据库 MyCat.ActiveConnection = conn.ConnectionString '定义一个新的Table对象或直接访问相应的表 Dim MyTab as Table Set MyTab = MyCat.Tables("t1") '访问表对象中相应列的的Propertys集合中的第2个或是"Description"对象就可以得到标题 Debug.print MyTab.Columns ("Address").Properties ("Description").Value
Afile(猎头炳)老兄的方法不行,用我的办法肯定行的(测试通过) 下面的函数是列出指定表的所有字段的标题 Public Sub Test() Dim iDb As DAO.Database Dim iTb As DAO.Recordset Dim iI&
Set iDb = Workspaces(0).OpenDatabase("c:\db1.mdb", True, False, ";pwd=") '打开你的数据库 Set iTb = iDb.OpenRecordset("表名") '打开你要查询标题的表名
On Error Resume Next For iI = 0 To iTb.Fields.Count - 1 '显示此表中所有字段的标题 Debug.Print "字段[" & iTb(iI).Name & "]--标题:" & _ vbTab & iTb(iI).Properties("Caption").Value Next End Sub
比如字段名是:name 标题是:用户名
那么在access的数据显示页就显示用户名了,不是name了现在想在vb程序里面取那个标题,我是用adox连接的,请问如何取得?
谢谢了
下面是帮组中的注释,或许对你有帮助:Caption 属性
可以使用 Caption(标题)属性对不同视图中对象的标题进行设置,为用户提供有用的信息: 字段标题用于指定附属于控件的标签文本,通过从字段列表中拖动字段来创建附属标签,并作为表或查询在“数据表”视图中字段的列标题。
窗体标题用于指定在“窗体”视图中标题栏上显示的文本。
报表标题用于指定在“打印预览“中报表的标题。
按钮和标签标题用于指定在控件中显示的文本。 设置Caption 属性为一个最多能包含 2,048 个字符的字符串表达式。对于窗体和报表上的标题栏,如果因为太长而不能显示完全,则将被截取为可显示的长度。对于控件,可以使用属性表来设置该属性。对于字段,可以使用表“设计”视图或“查询”窗口(在字段属性的属性表)中的属性表来设置该属性。也可以使用宏或 Visual Basic 来设置该属性。说明如果没有为表字段指定标题,字段的 FieldName 属性设置将作为控件附属标签的标题,或作为“数据表”视图中的列标题。如果没有为查询字段指定标题,则使用基础表字段的标题。如果没有设置窗体、按钮或标签的标题,Microsoft Access 将按根据对象的类型,为对象指定一个唯一的名称,例如 “窗体1”。如果从字段列表中拖动字段来创建控件,但没有为这个字段指定 Caption 属性设置,则此字段的 FieldName 属性设置将被复制到控件的“名称”属性框中,同时出现在被创建控件的标签中。注意 在设置了此控件的 HyperlinkAddress 或 HyperlinkSubAddress 属性后,标签或命令按钮控件的 Caption 属性文本将成为超级链接显示文本。可以使用 Caption 属性为标签或命令按钮指定访问键。在标题中,将 & 字符放在要用作访问键的字符前面,则字符将以下划线形式显示。通过按 ALT 和加下划线的字符,可以将焦点移动到窗体中该控件上。提示 如果要在标题文本中显示 & 字符本身,请在标题的设置中包含二个 & 字符 (&&)。例如,要在“标题”属性框中显示 “Save & Exit”,应该在“标题”属性框中输入“Save && Exit”。
dim MyCat as New Catalog
'用这个Catalog打开你的数据库
MyCat.ActiveConnection = conn.ConnectionString
'定义一个新的Table对象或直接访问相应的表
Dim MyTab as Table
Set MyTab = MyCat.Tables("t1")
'访问表对象中相应列的的Propertys集合中的第2个或是"Description"对象就可以得到标题
Debug.print MyTab.Columns ("Address").Properties ("Description").Value
下面的函数是列出指定表的所有字段的标题
Public Sub Test()
Dim iDb As DAO.Database
Dim iTb As DAO.Recordset
Dim iI&
Set iDb = Workspaces(0).OpenDatabase("c:\db1.mdb", True, False, ";pwd=") '打开你的数据库
Set iTb = iDb.OpenRecordset("表名") '打开你要查询标题的表名
On Error Resume Next
For iI = 0 To iTb.Fields.Count - 1 '显示此表中所有字段的标题
Debug.Print "字段[" & iTb(iI).Name & "]--标题:" & _
vbTab & iTb(iI).Properties("Caption").Value
Next
End Sub
我在用代码创建新数据库时用到 Createdatabase 等方法,可是出现了数据类型未定义,我在查看了MSDN后到引用里找 Dta Access Object ,可是怎么找不到呢?
我在线等待您的热心帮助!