首页 > 语言 > 关键词 > Access最新资讯 > 正文

另类读写:ACCESS中Field对象的标题属性

2008-11-28 16:47 · 稿源:赛迪网

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中多走弯路。

  • 相关推荐
  • 大家在看
  • 短视频标题怎么写?我们总结了“百万赞”标题技巧【附:抖音标题禁忌词汇】

    同样一个视频,换个标题,点赞量竟差几十万!一个好的标题,可以直接让你上热门?是的,一个好的抖音标题,能点石成金、事半功倍。

  • 抖音标题敏感词怎么避免 抖音标题有哪些敏感词

    抖音有哪些标题敏感词需要注意,不能或者最好不用的词汇有哪些呢,一旦被官方认定是违规的标题的话,会造成严重的后果,这里我们就来看下抖音标题敏感词具体有哪些,大家尽量避免使用到这些敏感词。

  • Intel 11代酷睿首测!PCIe 4.0 SSD直冲5GB/s

    AMD平台已经全面支持PCIe 4.0,Intel也正在慢慢跟上,比如此前发布的数据中心级SSD P7-P5500/P5600,以及面向轻薄本的Tiger Lake 11代酷睿,而在桌面上,将于明年3月正式发布的同样隶属于11代酷

  • 抖音视频标题怎么写吸引人 标题怎么取比较好听

    短视频标题是除了封面外最吸引用户点击观看的一个元素,如何在短短的几个字内吸引到目标观看群体成为了很多短视频制作者十分关心的课题,这里我们就来看下如何写好抖音短视频的标题,让用户有更强的欲望点击观看。

  • 微软Xbox Series X标称1TB SSD:实际可用仅802GB

    Xbox Series X主机日前抵达部分媒体手中进行了小规模评测体验,就游戏来看,向下兼容表现非常优异,而且不少老游戏都能实现帧率翻番,稳定到60FPS。然而,美中不足的地方也有。IGN就发现,X

  • PIE都来了,你来不来?

    PIE系统,相信很多人都不知道,但是悄悄告诉你,一场由PIE引发的变革即将上演,一次被载入史册的壮举即将拉开。你敢不敢来,一探究竟?随着人类对宇宙的认知的深入,人类开始不满足地球普通的生活,探索外太空已经不只是CASC、NASA、RKA的专利,随着类似SpaceX的公司的出现,造福人类的方案开始进入民间,这里不乏卫星定位、太空旅游、太空食品等,PIE类似上述方案,仅还不为更多人所熟知。PIE(process intelligence evolution)“进

    PIE
  • Phil Spencer预测Xbox Series S机型销量将超过Xbox Series X

    微软Xbox业务负责人PhilSpencer在近日接受Kotaku采访时表示:其预测在两款次世代主机的销售上,入门级的XboxSeriesS机型,将超越配置更高的XboxSeriesX。显然,对于预算有限的消费者来说,299/499美元(约2000/3340RMB)的价格差异,将成为影响其选购的一个重大因素。

  • “撩100个,谈30个,成5个”我说的不是找对象,是找主播!

    现在找主播带货已经成为了电商圈里的一种趋势,众多商家好友已经把见面问候语改为“播了么您内”?除了播不播、怎么播这些问题需要考虑,和主播的对接联系也很让人头疼。

  • 调查显示只有10%的调查对象计划在2020年购买 iPhone 12

    PiperSandler的一项最新调查显示,只有10%的受访者计划在2020年秋季或冬季购买新的"iPhone12"机型,这表明消费者正在"蛰伏",迎接发布会的到来。在AppleInsider看到的一份研究报告中,首席分析师哈什-库马尔(HarshKumar)详细介绍了该投行在2020年9月底对约1000名美国人进行的调查结果。

  • 玩家呼吁微软自Xbox Series后结束主机业务 回应:绝不

    仅仅从媒体热度来看,微软这一代Xbox Series主机似乎仍难和索尼PS5匹敌,首先命名就出了很大的问题,被玩家疯狂吐槽,甚至亚马逊上出现大量玩家误入Xbox One X的尴尬情况。一些态度激烈的玩家

  • 和平精英ss11赛季什么时候开始 ss11赛季具体上线日期时间

    和平精英目前还是在SS10赛季中,但是不少玩家已经在期待下一个SS11赛季了,很多玩家还不清楚S11赛季什么时候开始,下面就来为大家详细的介绍一下。

  • Chrome正在启用HTTP/3,支持IETF QUIC

    QUIC(Quick UDP Internet Connections)是 Google 推出的一个项目,旨在降低基于 TCP 通讯的 Web 延迟。QUIC 非常类似 TCP+TLS+SPDY ,但是基于 UDP 实现的。它是 HTTP/3 的基础协议。

  • 原神如何搭配圣遗物最大化收益 圣遗物属性收益计算攻略

    原神中圣遗物的选择至关重要,圣遗物算是大幅度提升人物属性的最好途径,那么圣遗物要怎么搭配才能使得人物属性的收益最大化呢?下面就来为大家分享一下攻略。

  • [图]Spencer暗示Xbox One玩家可以玩到Xbox Series X游戏

    在XboxOne上玩下一代XboxSeriesX的游戏?这或许会成为现实。在接受外媒Kotaku采访的时候,Xbox部门主管PhilSpencer表示:“我们对XboxOne有更多的考量,显然我们认为[玩SeriesX游戏]是衔接前后两代的良好方式,并能让玩家玩到这些游戏”。

  • 逼你升级Edge!微软加速抛弃IE浏览器:账号不让登了

    随着Edge浏览器切换到Chromium生态并重装上阵,IE浏览器的“消亡”步伐也在加速。德媒爆料称,11月之后,使用IE浏览器将无法登陆微软账号以及访问微软程序,上网功能越发残血。实

  • 顶级职业选手之选,ALIENWARE打造S10赛事战机!

    10月份游戏大事件,首推英雄联盟S10世界总决赛。LPL赛区四强齐头并进,同心一力捍卫LPL第一赛区的宝座,向着冠军荣耀发起冲击。选手们在赛场之上大杀四方,观众们在屏幕前呐喊助威,天气虽然逐渐凉爽,玩家的热情却火热异常。精彩比赛接连上演,绝地翻盘激动人心,S10能够呈现出如此高质量的赛事离不开专业电竞设备的保驾护航。近日,S10世界总决赛官方用机信息曝光,常年作为英雄联盟S赛官方合作伙伴的ALIENWARE再度成为赛事官方?

  • Quick Audience2.0聚焦消费者全链路运营

    9月18日,在2020云栖大会技术主论坛上,阿里巴巴集团副总裁、数据技术及产品部总经理朋新宇重磅升级全域消费者运营平台Quick Audience2.0。Quick Audience2.0旨在帮助企业更好地实现以人为中心的消费者全链路运营。从消费者营销升级为消费者全链路运营过去,企业通过调研、咨询等形式,发现或挖掘目标用户的需求,再通过营销活动让消费者了解自身产品或服务,并最终实现购买行为。整个过程可以理解为由企业单方面发起,用户在一定程度上是

  • 和平精英SS10赛季手册奖励内容汇总 SS10赛季手册全部内容一览

    和平精英在10月13日上线了SS10赛季的赛季手册,很多玩家还不清楚这次的赛季手册的奖励内容是什么,下面就来为大家详细的介绍一下。

  • RHFITNESS任和参展第38届体博会,诚邀您的莅临

    2020 年 9 月 28 日,第 38 届中国国际体育用品博览会(以下简称“ 2020 体博会”)将在国家会展中心(上海)举行。本届体博会是疫情防控工作进入常态化后国内举办的首场综合性国际体育用品展会,吸引了超过 1000 家企业共聚上海。 RHFITNESS任和品牌将携带旗下多款智能跑步机、走步机,参展本届体博会,为观展人员带来更智能、澎湃的健身体验。升级机型、智能触控……汇聚各类智能特色新品。 RHFITNESS任和品牌定位于中高端家用运动?

  • Chrome 87 Beta加速放弃FTP 改进Cookie存储API

    继上周发布Chrome86之后,谷歌也同步上线了Chrome87Beta。考虑到视频会议应用的蓬勃发展,该公司为Chrome87Beta引入了新的界面,支持通过媒体控件来固定、旋转和放大摄像头画面。不过只有在获得用户的授权之后,网站才能启用这些功能。

  • 参与评论
文明上网理性发言,请遵守新闻评论服务协议
  • 热门标签