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

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


Dell和Intel对OpenStack新兴公司Mirantis投资 快讯:马云自5月10日起不再担任CEO职务 Web工程师必备的43款可视化工具 中国电信天翼开放平台2012年度数据:API调用量破亿 iOS走向开放:UC浏览器iPhone版实现云下载 让Dreamweaver支持cshtml (MVC Razor环境) iOS付费榜首:日历应用Fantastical开发者专访 玩转AdMob移动广告:捕鱼达人的猎财之道 12306抢票插件拖垮GitHub 展望2013 jQuery核心团队成员谈其发展路线 Facebook社交视觉搜索分析:引入“竞价排名”? 移动广告现状5大问题解析 Google将于月底举行Google Glass开发者大赛 分享29个超赞的响应式Web设计 Facebook图谱搜索和谷歌搜索有何不同? Facebook向美国iPhone用户提供免费电话 VMware CTO Steve Herrod离职 加盟风险投资公司 维基百科基金会推出众包旅游项目Wikivoyage 最舒适程序员:工作外包给中国 自己却偷懒 Evernote正在与苹果联合开发硬件记忆工具,未来两年公司上市 Fusion-io发布ioScale 全闪存数据中心时代到来? Agent Dash游戏设计之美:如何用2D打造3D体验? 开源项目文档应规避的13处“硬伤” 李开复:Graph Search将可与谷歌搜索媲美 月成本3500美元 如何在AWS上实现BBVA信用卡低延时分析 外媒眼中的国内互联网巨头:服务器集群庞大但缺乏创新 Facebook主导通用主板+SoC ARM与Intel同台对抗 假如像招聘程序员那样租车…… CrowdStar:Windows Phone 8是开发者的下一片蓝海 腾讯云总经理陈磊透露流量变现计划 将比亚马逊AWS更专注 代码之美——Doom3源代码赏析 DX抓图,如何保存为Bmp文件? 3个NF 嵌入文件夹窗格怎么使用 创业中的软件公司招人(有兴趣的弟兄进来看看) 数据库中事务的特点及其应用,急,不够再给分500,在线,急。 关于对话框.高分请教 创业中的软件公司招人(有兴趣的弟兄进来看看) 做的网站在IE5.0和IE6.0显示的问题 寻找采用WebSnap 技术的例子? matrxII观后感 关于JSP文件和BEAN的存放 创业中的软件公司招人(有兴趣的弟兄进来看看) c#做的程序可以直接在新安装的win98下(没有.net环境)跑吗?有经验的请留步 c#做的程序可以直接在新安装的win98下(没有.net环境)跑吗?有经验的请留步 存储过程分页有点问题,谁帮我看一下 基础问题!困扰我! 请哥哥姐姐帮忙,把下面的代码转换成VC代码 大家case工具都用到什么程度? 为什么编译的可执行文件在其他计算机无法运行? ACCESS操作问题,高手... 我是刚刚入门,请帮助 怎样把一个已建好的主域服务器更改域名(在线等) 如何得到DataGrid控件里面的某行某列得值? 关于rave报表的问题 weblogic部属程序问题! 组合查询的问题 怎样在改变一个下拉菜单,不刷新页面的情况下,改变另一个菜单的内容??? 有使用BCG库的朋友吗?有些问题不明白,想讨论一下。 sqlmangr.exe文件受到了损坏,应该怎么做恢复[急] 请问,广东的高程报名在什么时候?谢谢! lwangzi(磊子)请关注 win2000下读注册表的怪问题??? 在线等待,急急急 菜鸟百问之一 在VS.NET中无法调试ASP.NET应用程序 从一个表select等好久也没有东西返回,别的表正常,这是为什么呀 大哥大姐: 请问BC与DELPHI有什么区别 ? 问个小问题,权当散分 怎么把终端服务的3389端口号改为自己需要的端口? 怎么样使用实体bean来修改数据库中的记录? 高手请进!!急 如何知道打开子窗体的父窗体是谁 关于XML转换的问题!!请高手进!! *.xfm是什么文件?? 打包难题 help me 来这里问一下, DELPHI与C++ BUILDER 有什么区别 ? 北京时尚-- 海淀vs朝阳 (转) 请问:如何显示通过get来传递过来的带“+”的变量?(显示“+”会丢失) 如何获取指定范围内的随机数,急! 各位GGMM,请多关照新来的MM! applet中的swing可不可以用Look and Feel 请问如何获取字符串里特定字节,马上给分,谢谢, 高分:如何使用将datagrid放在Repeater控件中 六年级部分同学去划船,若每条船上坐5人,有14人没有船可乘,若每条船上坐7人,则有1条船上还可乘4人,六年...六年级部分同学去划船,若每条船上坐5人,有14人没有船可乘,若每条船上坐7人,则有1 如图所示,甲是一个带正电的小物块,乙是一个不带电的绝缘物块,甲、乙叠放在一起静置于粗糙的水平地板上,地板上方空间有水平方向的匀强磁场,现用水平恒力拉乙物块,使甲、乙无相对滑动 1 改为一般疑问句并作否定回答:I can see a cat on the floor.2 You can't play basketball here.改为祈使句.3 Tom can drive the car.(对Tom进行提问) 信息发送模式是什么意思? 猜 迷语 趣填成语 125 八分之七 问这个是什么成语?猜 迷语 趣填成语 125八分之七 问这两个是什么成语? a>b>c>1,p=2[(a+b)/2-(ab)^1/2〕,q=3[(a+b+c)/3-(abc)^1/3],比较pq的大小 传递信息的息是什么意思 四年级的一些同学去划船,如果每条船坐6人,将有8人不能上船:如果每条船坐8人,会多出一条船.他们租了几条船?一共有几位同学?用方程解,记住,麻烦写清楚点 求 低 字开头的诗句 小灵通发信息时出现信心发送失败13什么意思 题:六年级部分同学去划船,若每条船上坐5人,有14人没有船可乘,若每条船上坐7人,则有一条船还可乘4人.问:六年级有多少名同学去划船? 求用matlab解复杂方程组的解以下四个方程,需要求,r,ox1,oy1,x11sprt(r^2-(-0.08632-ox1)^2)-oy1=2.872(-0.08632-ox1)/sprt(r^2-(-0.08632-ox1)^2)=-0.009518sprt(r^2-(x11-ox1)^2)-oy1=0.343*(x11-1.236)^2+3.0(x11-ox1)/sprt(r^2-(x11-ox1)^2)=2*0. 知函数f(x)=x2+x/a(x不等于0,a属于R) (1) 判断f(x)的奇偶性(2)若a小于或等于16,判断函数F(x)在[2,正无穷 每条船能坐6人,54名同学排好对,按照先后顺序上船:彬彬排在第8个,应坐在第()条船上.强强排在第24个,应坐在第()条船上.军军坐在第6条船上,他排的位置应在第()到()个. Matlab s=solve('x(e^(1/(y*26))-1)=1','x(e^(1.5/(y*26))-1)=80');s.x,s.yError using ==> mupadmexError in MuPAD command:cannot differentiate equation [numeric::fsolve]Error in ==> sym.sym>sym.mupadmexnout at 2018out = mupadmex(fcn,args{:});Error in ==> 这句话语法错有什么.如何改正啊?professionals require developing cultural intelligence in order to understand characteristics of different culture and resolve misunderstandings. 力的合成中,做出平行四边形后,如何求借合力 求用matlab解以下2元复杂方程组:1987*4*(1-t)*[1/(1-x)+1/x]+[6*(3150-2300)*x+2*(2300-6300)]*t=0-1987*4*(1-t)*[1/((1-x)^2)-1/(x^2))+6*t*(3150-2300)=0满目热泪等高手们赐教 求三个数最大值,哪里错了#includeint main(){int max(int a,int b,int c);int a,b,c,m;scanf("%d%d%d%",&a,&b,&c);m=max(a,b,c);printf("%d",m);} 平行四边形对角线怎么求知道边长 就是物理中的合力!力是90N 120N 夹角为30度 希望详细一些!最好别用数学符号 有汉字代替一下 电脑上数学符号有些看不懂!如2²平方 用2的平方代替 谢谢! 已知点a(a-1,2a-3)在一次函数y等于x加一的图像上,则实数a等于 Stripes 2.a measure of success achieved at the sprawling two-story plant,where both the Stars and Stripes and the Rising Sun fly in front of the factory's glistening white exterior android 开发 Intent的intent.putExtra问题:请问可以把数据传入自己当前所在的Activity中么?代码如下:int id=1;int point=1000;public class MillionaireGame extends Activity{\x05 Intent intent=getIntent();\x05 String ids=intent.getS 阅读《康巴藏族民居》作者按___________的顺序,先介绍了康巴藏族民居的_____;接着介绍了_____;然后介绍了_______;最后介绍了_______.后面的空我大致猜出来了,就第一个空不晓得,一个空给十分啊 c++问题,三个数中求最大值三个数中求最大值,为什么我这里无法通过编译,#includeusing namespace std;int main(){int a,b,c,d;//d为最大数据cin>>a>>b>>c;d=max(a,b,c);cout android intent 与message的关系android 的intent与android message消息处理机制有什么关系和区别么 "雨是最寻常的,一下就是三两天"写出春雨的什么特征? fastening stripes什么意思 向量题求解1111 已知I J为互相垂直的向量,a=i-2j b=i+入j 切a与b的夹角为锐角求入取值范围````详细点```谢谢了啊我记得当时老师讲了一个什么A的摸*B得模>0 然后怎么算的``你能从这个角度分析下 形容一个人先自已放弃自已而后被人放弃的成语 第五个英标是什么? They like P.E.and music.改为否定句 阅读文,往往一排建筑有几十户人家,宛如古代城堡,很是壮观.一幢建筑内的房间大小、结构布局安排得非常合理,很像内地城市建造的多单元式的楼房;不过这儿的名句都带有一个大庭院,院门也 horizontal 在匀强电场中一带正电的小物体沿粗糙绝缘水平板向右运动在匀强电场中一带正电的小物体沿粗糙绝缘水平板向右运动,经过A点时的动能为100 J,到达B点时动能减少了原来的4/5,减少的动能中 雨是最寻常的,一下就是三两天可以用什么四字词语来概括它的特点同志们啊,求你们啦 Do not use internal horizontal or vertical 打一个成语是什么 雨是最寻常的,一下就是两三天,用4字词语概括 根据谜面写成语赤橙绿蓝紫武大郎请客加起来是五句 请问怎么才能提高写作能力 我老师说多看书 但我喜欢的书没有优美的语句 而且别人推荐给我的书我又不喜欢我真的很想写好作文 我用肉眼看日环食了怎么办?好担心眼睛.用眼睛看日环食会有什么症状?我看到的是,像月亮形状的那样。是用手机拍摄的,现在眼睛没什么感觉。就是看网上说用肉眼看不好,不知道会有什 125成语什么意思 山村:写出四个同类的词 为什么 日环食时,肉眼看到的是太阳的光球层 而不是日冕和色球不太懂 记得据说日环食的时候不能用眼睛直接看太阳 要戴眼镜 为什么 Android开发中Intent的具体用法? 写出四个相近的词寒假作业 已经用肉眼观察了日环食怎么办? android 应用开发中的 Activity ,Intent, 写出四个跟“坚韧”同类的词 改为一般疑问句并作否定回答Dave does his homework in the evening 平行四边形有几条对角线? 英语作文football clud35词 一个圆弧,已知其半径,其余两点在同一条直线上 怎么确定这个圆弧 平行四边形两条对角线的平方和=? 一正方形光滑竖直放置的绝缘板边长为L处在竖直向下的匀强磁场和水平向右的匀强电场中磁感应强度大小为B, 知了从生长到食用要多久 OM为角平分线,求证OA/OB=AM/BM 如图甲带正电,乙是不带电的绝缘物块,甲乙叠放在一起、如图3甲带正电,乙是不带电的绝缘物块,甲乙叠放在一起,置于粗糙的水平地板上,地板上方空间有垂直纸面向里的匀强磁场,现用一水平 锥形怎么画 日本国内近期频发强行要求他人下跪事件埃及教堂婚礼遭枪击多人伤亡 过渡政权美巴领导人强调推动反恐及经贸合作27号强台风逼近日本 安倍指示万全对叙武装分子发表在叙被劫持的俄罗斯工程中科大师生赞梅德韦杰夫:他亲切实在幽美专家说财政政策不确定加重货币政策负俄媒:俄印蒙三国总理同日访华并非偶然美媒:中国军方政治战行动影响美国对华港媒:安倍言而无信行为早已被中国看透传百度收购人人 陈一舟称不靠谱青藏铁路格尔木站火车相撞 致1人死亡圆通速递承认\"快件信息倒卖\"属实浙江一高校新规:学生3次不叠被将取消大学生被指厕所内施强奸获刑 重审后改中国航母辽宁舰再出海 将开展舰载机海台防务部门:台军计划7年采购2236英国乔治王子穿蕾丝长袍受洗礼 模样超马尼拉议员抵港就人质事件道歉 家属重上海自贸区将设立离岸产权交易中心 首中央再选十地展开巡视 更加强调对“一肥西大力提升节约集约用地水平巢湖科技创新显成效陕西开行国际货运班列 “长安号”今晨体会了护理工作的辛苦,才有资格学当大神行者2代不凡实力 遇见0利率尊贷大市民最关心的18个口腔问题台报:杜绝关说 台湾司法应有所作为苏宁签1000万台空调采购大单360李涛谈海外战略 安全业务是第一寒冬好去处之情侣咖啡厅“地球站”半月收衣上百件广东:碳排放权有偿配额发放底价拟定6中国电影《孪生密码》在加拿大举行推介五家中国公司赢得泛美开发银行融资招标俄进步号飞船和国际空间站成功测试新型年轻男子因吸毒过量产生幻觉 贼喊捉贼污水跑冒结冰一早三起追尾 路段拥堵车大娘洗浴中心门口滑倒致骨折 洗浴中心私架电台干扰民航信号 警方查获11套洗浴中心撬柜行窃 监控录像锁定贼踪网络结怨 约见互殴:两名网友冲动犯罪
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘