说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何抓出 Access 的 Table 欄位中的【敘述】部份呢?

HTML文档下载 WORD文档下载 PDF文档下载
VB如何抓出 Access 的 Table 欄位中的【敘述】部份呢?
版本:VB6 / VB5 / VB4-32 / VB4-16 / VB3



不知道大家是否使用過 Microsoft Office 的 Access 來列印過 Access 資料庫的檔案架構?也就是 Access 的【文件產生器】。如果您沒有使用過,現在可以試看看!在 Access 的 Menu 中選擇【工具】【分析】【文件產生器】,稍待一會兒就會出現【文件產生器】視窗。

將資料庫檔案架構印出來,可以方便我們在程式設計時對於資料庫的存取,及資料庫欄位的比對。不過 Access 雖然有中文版,但是它終究是國外的人開發的產品,我在使用時,就一直有個麻煩,那就是在簡式列印時,它對於每一個欄位,只會列印出欄位名稱、資料類型及欄位大小。 (缺【敘述】的中文說明)

如果您在設計 Table 時,使用中文為欄位名稱,那就沒有問題,每一個欄位,只要列印出欄位名稱、資料類型及欄位大小就夠了,不過據我所知,由於習慣及其他因素(例如:需和其他不同類型的資料庫做轉移,像 Oracle/SQLServer),許多人還是使用英文來命名欄位,然後在【敘述】中輸入中文說明,那樣的話【文件產生器】產生的文件就有點不符合需求了,因為它不會印出【敘述】的中文部份!

既然【文件產生器】不太符合某些人的實際需求,而又不想自己做文件,那就只能自己寫程式來做了!要如何抓出 Access 的 Table 欄位中的【敘述】部份呢?

以下是一個實際範例,您只要在 Form 中放一個 CommandButton (Command1) 即可:

Dim db As Database

'以下 Function 需要二個參數,sTable 是 Table 名稱,sField 是欄位名稱
Function Getdescription(sTable As String, sField As String) As String
Dim Sna As Recordset
Dim i As Integer
Dim existDescr As Boolean

Set Sna = db.OpenRecordset(sTable, dbOpenTable)
existDescr = False
For i = 0 To Sna(sField).Properties.Count - 1
If Sna(sField).Properties(i).Name = "Description" Then
existDescr = True: Exit For
End If
Next

If existDescr Then
Getdescription = Sna(sField).Properties("Description")
Else
Getdescription = ""
End If
End Function

Private Sub Command1_Click()
Dim x As String
MsgBox Getdescription("AABLE_L", "AABLE_LNO")
End Sub

Private Sub Form_Load()
Set db = opendatabase("c:\hris\ability.mdb") '資料庫
End Sub


保存DBGrid中栏的字段名及尺寸-Delphi资料 动态生成定义数据库-Delphi资料 动态组成SQL速句-Delphi资料 多层C/S的客户端调用服务器端的方法-Delphi资料 关于dephi数据库的动态建立-Delphi资料 基 于WEB 的 数 据 库 查 询-Delphi资料 计算数据库某字段的值-Delphi资料 计算字段值-Delphi资料 建立应用软件注册安全机制-Delphi资料 建立自己的数据字典库-Delphi资料 将BLOB字段的BMP图显示出来-Delphi资料 将图像放入数据库中-Delphi资料 解 决sybase 用 户 数 据 库 不 能 进 入 故 障 的 一 种 方 法-Delphi资 解决sybase用户数据库不能进入故障的一种方法-Delphi资料 解决一个DBF表时的"Index not found.."错误-Delphi资料 精简Delphi数据库应用系统 精简Delphi数据库应用系统-定制BDE驱动程序 精简数据库应用系统-Delphi资料 开 发 基 于ORACLE7 数 据 库 的 管 理 信 息 系 统-Delphi资料 开 发AS/400 应 用 系 统: PB5 与Delphi3 的 比 较 利 用Delphi 开 发 响 应 用 户 输 入 的 数 据 库 查 询Web Server 程 利用Delphi开发响应用户输入的数据库查询Web Server程序 利用Tbatch组件完成数据批处理-Delphi资料 如 何 恢 复Sybase SQL Anywhere 的 数 据 库-Delphi资料 如何捕捉KEY VIOLATION等错误-Delphi资料 如何得到SQL返回的计算结果-Delphi资料 如何动态的读取Delphi中的PopupMenu的Caption ? 如何动态设置DBGRID。比如,动态设置DBGRID的COLUMNS。及如何在数值数据格式成千分位 如何返回BDE的状态信息?-Delphi资料 如何控制关键字段的重复输入及报错-Delphi资料 如何设置Microsoft SQL Server 全文索引服务 ?-Delphi资料 Struts Struts 请问没人解答的问题如何处理? 结帖还是删除? 请教 数据库中的表与自由表的转换? 求助,在IE中无法打开word文件!!!急!!!! 高手帮我!!! 在WINDOWS的标准TREEVIEW中点右键如何得到点击的坐标? 如何把oracle中的数据结构导入access中去? 请问odbc方式和OLEDB方式有什么区别? 100询问:修改boot.ini仍无法实现双重启动. websphere的问题(1)? 我是第一次使用域.为什么无法在域控制器里增加用户?help me! 求助:模板的连接问题 strust 请问:哪里有人民邮电出版社的《个体软件工程》下载 ?(有分送) 存储过程执行出错,请帮忙看看!急! 请问:在sybase中的设备大小的设定,有没有一个标准?? include问题,屡试屡败 请问怎么才能用最简单的方法把程序做成服务? 程序设计文档怎么写啊?求教 不好意思,一个简单的问题 websphere的问题(2)? 请问如何实现模式窗口,就是当打开子窗口主窗口不能操作,除非关闭子窗口,如果有这样的网页也行 关于清华出版社出版的“微软.NET程序设计系列”之《ADO.NET程序设计》的问题,大家来讨论一下 如何用程序实现光驱的弹入弹出? 在线等了,各位帮忙了!! 我运行了一个网络管理软件出现乱码?而别的程序都没有乱码? 对话框上面显示视图,怎么办? 一道四级题有一点不明白的地方,谢谢各位高手帮我解决一下困惑。。 websphere的问题? 在一个对话框CDialog类中访问窗体视图类CFormView中的函数发生错误? 有关简繁体转换的问题 怎么分离这个字符串 aa|bb|cc|dd| ASP连接Oracle9i的连接字符串是什么? 请教:EXCEL中使用VB进行串口编 websphere的问题(4)? 如何在自己写的类的属性、方法在被使用的时候显示一些相关信息? 高分:大侠们,帮我看一下这个设计思路对吗?(在线等待!) 初级问题:请问用ASP开发BS结构程序,应该选什么工具啊 请教各位pb的可执行程序的分发 我运行了一个网络管理软件时 这个软件显示的信息是乱码?而别的程序都没有乱码? 多谢awpking ,请进给你洒分. asp里调ActiveX控件,客户端却不能用,请帮助解决,100分相送。 如何让两个网段的电脑互相访问 在线等!打开文档的问题! HtmlHelp用法问题。急急!!1 只有在这问,关于笔记本网卡的驱动程序 我运行了一个网络管理软件时 这个软件显示的信息是乱码?而别的程序都没有乱码? 菜鸟的问题,大虾解决 本地安全策略打不开,怎么解决? 高分求教,如何让asp.net生成的网页转为pdf输出,在线等待 英语 名词和能不能直接跟动词,什么时候要用到系动词呢? 我要找一个先慢后快的歌曲,和《我的未来不是梦》里面“我 知 道我的未来不是梦”这句差不多的歌曲.谁的歌都可以,只要是前面节奏慢,后面节奏快的歌 中国乒乓球队甲乙两名队员参加乒乓球男子单打比赛,甲夺得冠军的概率为3/7,乙夺得冠军的概率为1/4,那么中国队夺得男子单打冠军的概率是多少?19/28.我真算不出来. 谁有自己的座右铭?不要为人的,就要自己为自己写的 rubber的音标是什么 简单的写一个片段,选择意象来抒发某种感情. 50字左右 急!明天要交啊! a pair of sticks used for eating with解释a pair of sticks used for eating 用一个c 开头的单词表示 甲车到县城的路程是乙车到县城路程的3倍.甲每小时行60千米,乙每小时行40千?甲车到县城的路程是乙车到县城路程的3倍.甲每小时行60千米,乙每小时行40千米.甲,乙两车同时出发去县城,当乙到 生石灰做为一种清塘药物有何优点 strike deals with 任何一个大于2的偶数都可以表示成两个素数之和求证明 我当然知道这句话是正确的 华人男子失业 纽约杀表嫂一家5口提审华人男子失业 纽约杀表嫂一家5口提审奥巴马社交账户被黑 其遭批“监听世界男子头戴丝袜闯婚礼震惊来宾 抢走数千安倍出访土耳其 称海底隧道是日土友好美国国务卿克里暗示未来几周内将出访埃卜拉希米:阿萨德可为建设新叙利亚作出美国监听风波陷两难 白宫急灭火共和党美媒披露纽约华人5口遇害细节 嫌犯此美方称机密情报泄露未对美外交政策造成福建一教师被抽调参与父母家拆迁 并非吉林人参,向着千亿元产业进发一周降价排行|奥迪Q3最高降价6.6京港澳高速岳阳段油罐车爆炸现场车市二人转|遇见全新君越,新设计风格绍兴菜贩子打死都不肯泄漏的买菜秘诀,KATE 10大明星彩妆完胜CANM想要遇见的人,终会遇见 | 幾米《向我在想你,你在想着谁?| 春分“子弹”能辟邪? 男子携废子弹过安检经济学家王天义海口开讲 分析经济形势基辛格:中美之间不存在“修昔底德陷阱网游之神识神武登仙无限之神级思路未来之树神瓶回到二零零三韩娱之少时男友终结者平定天地穿越到一九八零极驭时空恶魔讨债人东风航天城旅游泰山北麓旅游碧桂园凤凰温泉旅游来古冰川旅游帕隆藏布江旅游喊泉旅游崖上人家旅游中山堂旅游鸡笼山旅游花园夜市旅游五指山峡谷漂流旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘