ACCESS中Field对象的标题属性
来源:ddvip.com 发布时间:2008-11-20 17:44:00
ACCESS数据库中Field对象的caption属性(也就是标题)是用来设置数据字段的标题,在正常的数据库设计中为了保持维护的便利性,许多开发者都将字段名与标题做了分别设置,标题往往比字段名更友好,更能说明字段的用途。本篇从另一个角度来说明如何用VBA读写该属性。
Field对象的CAPTION属性并不是ADO原生对象,而是“可由ADO访问的ACCESS属性”,在帮助文档中介绍了两种访问这个属性的方法,一种利用ADO,一种利用DAO,由于在ACCESS2003及以前的版本中Field对象并不是ACCESSObject对象,因而也就没有AccessObjectProperties 属性,所以我们也就不能在ADO中去解决这个问题,现在用另一种方式来解决DAO的代码。
Sub SetProperty(dbsTemp As DAO.Field, strName As String, _
booTemp As String)
Dim prpNew As DAO.Property
Dim errLoop As Error
' Attempt to set the specified property.
On Error GoTo Err_Property
dbsTemp.Properties(strName) = booTemp
On Error GoTo 0
Exit Sub
Err_Property:
' Error 3270 means that the property was not found.
If DBEngine.Errors(0).Number = 3270 Then
' Create property, set its value, and append it to the
' Properties collection.
Set prpNew = dbsTemp.CreateProperty(strName, _
dbText, booTemp)
dbsTemp.Properties.Append prpNew
Resume Next
Else
' If different error has occurred, display message.
For Each errLoop In DBEngine.Errors
MsgBox "Error number: " & errLoop.Number & vbCr & _
errLoop.Description
Next errLoop
End
End If
End Sub
Sub DisplayClumCaption(ByVal tbname As String,
ByVal fldIndex As Integer)
Dim dset As DAO.TableDef) //*****必须使用TableDef对象
Dim i As Integer
Dim tmpProp As DAO.Property //强制使用DAO类型
Dim fld As DAO.Field //强制使用DAO类型
Dim tmpTxt As String
'On Error Resume Next
Dim msg As String
Dim cdb As DAO.Database //*****强制使用DAO类型
Set cdb = CurrentDb //****关键,确定对当前数据库的静态引用
Set dset = cdb.TableDefs(tbname)//*****必须使用TableDef对象
For Each fld In dset.Fields
tmpTxt = fld.Name
SetProperty fld, "Caption", tmpTxt
msg = msg + fld.Properties("Caption")
msg = msg + Chr(10) + Chr(13)
Next fld
MsgBox msg
End Sub
在以上部分的代码中有两个SUB,一个是SetProperty ,用来判断一个字段是否有指定的属性,如果没有设置,就将相应的数值赋给该属性。另一个是DisplayClumCaption,这是对指定表中的字段按字段名设置其CAPTION属性的演示代码。如果有需要,大家可以对SetProperty进行修改,使他变成一个只读的函数,用来枚举指定表中每个字段的CAPTION属性。DisplayClumCaption代码中,打“星号”的地方是要重点注意的,不然可能会在MSDN中多走弯路。
猜你喜欢
- 1.1 准备工作安装tableau安装MySQL数据库1.2 驱动包下载tableau连接MySQL数据库需要下载mysql对应的版本ODB
- http://swik.net/Ajax/Ajax+Mistakes在某网站瞎逛时,发现这个链接,进去逛了逛,觉得很有意思,大家也可以去看看
- ShuffleNet是由旷世发表的一个计算效率极高的CNN架构,它是专门为计算能力非常有限的移动设备(例如,10-150 MFLOPs)而设
- Python 正则表达式正则表达式是一个特殊的字符序列,它能帮助你方便的检查一个字符串是否与某种模式匹配。Python 自1.5版本起增加了
- ASP在线压缩ACCESS数据库原理很简单:利用JRO.JetEngine的压缩功能建立一个新的数据库文件,然后把原来的删掉、替换!既然这样
- FreeType库是一个完全免费(开源)的、高质量的且可移植的字体引擎,它提供统一的接口来访问多种字体格式文件,包括TrueType, Op
- 这个分页使用的是0游标,也就是Rs.Open Sql,Conn,0,1。但是感觉也快不了多少,10万条数据的分页时间300多豪秒之间。风格A
- 本文为大家分享了Python遗传算法解决最大流问题,供大家参考,具体内容如下Generate_matrixdef Generate_matr
- 1.最大值max(3,4) ##运行结果为42.最小值min(3,4) ##运行结果为33.求和sum(range
- 故障:数据库报错:“MSSQL Server 2000 附加数据库错误823”,附加数据库失败。故障
- 本文实例为大家分享了基于Tensorflow的MNIST手写数字识别分类的具体实现代码,供大家参考,具体内容如下代码如下:import te
- 本文实例讲述了Python实现简单的代理服务器。分享给大家供大家参考。具体如下:具备简单的管理功能,运行后 telnet localhost
- 这篇文章主要介绍了Python测试线程应用程序过程解析,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋
- 索引 经常要查询的语句,则给它建一个索引 表连接 select T_Oders as o join T_Customers as C on
- 计算机视觉方面朋友都需要跟图像打交道,在pytorch中图像与我们平时在matlab中见到的图像数据格式有所不同。matlab中我们通常使用
- 定时器1-"*/5 * * * * *"package mainimport ("fmt""
- 使用预训练模型的代码如下:# 加载预训练模型 resNet50 = models.resnet50(pretrained=True) Res
- nonzero函数返回非零元素的目录。返回值为元组, 两个值分别为两个维度, 包含了相应维度上非零元素的目录值。 import
- 前言:一直想写一个监控方面的脚本,然后想到了运维这方面的,后来就写了个脚本,下面话不多说了,来一起看看详细的介绍吧。准备:psutil模块(
- 如下所示:后台关键代码:data = {}#keys与values分别为该数据的键数组,值的数组。这里循环为字典添加对应键值for k, v