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

VB用代码创建数据库,表,字段

HTML文档下载 WORD文档下载 PDF文档下载
VB用代码创建数据库,表,字段


Option Explicit
Private db As Database
Private td As TableDef
Private f As Field

Private Sub Command1_Click()
Set db = DBEngine.CreateDatabase("d:\01.mdb", dbLangGeneral)
Set td = New TableDef

Set f = td.CreateField("NAME", dbText, 20)
td.Fields.Append f

Set f = td.CreateField("ID", dbText, 5)
td.Fields.Append f

Set f = td.CreateField("DEPARTMENTP", dbText, 60)
td.Fields.Append f


td.Name = "class"
db.TableDefs.Append td

Set db = Nothing

End Sub

在列表框中显示该字段名
你可以设一个变量,取得"该字段名",再添加到列表框中(加上循环),列表框的操作你可以看VB的帮助

改变图片效果-Delphi资料 改造HINT的输出方式-Delphi资料 基于Delphi的图像漫游 将BMP放入Paradox的BLOB的字段中-Delphi资料 界面色彩渐变效果的实现-Delphi资料 如何查阅可视窗口标题-Delphi资料 如何得到Timage控件的DC-Delphi资料 如何关闭一个MDI子窗口-Delphi资料 如何检测鼠标击了哪一个对象-Delphi资料 如何将鼠标锁定在固定范围内-Delphi资料 如何使你的窗口Stay on Top-Delphi资料 如何在ListView控件中绘底图-Delphi资料 如何在屏幕上移动Image图象-Delphi资料 软件中复活节彩蛋的实现-Delphi资料 实现图象局部放大的原理和方法-Delphi资料 使用Delphi实现滚动式面板窗口 通用的MsgBox-Delphi资料 图象放大镜——实现图象局部放大的原理和方法-Delphi资料 图形的特殊显示效果-Delphi资料 图形整体拉出效果-Delphi资料 一个实用的Delphi屏幕拷贝程序的设计 用Delphi 显示122种图形特效 用Delphi编写DLL实现动态改变分辨率 用Delphi进行OpenGL编程学习心得 用Delphi开发windows95屏幕保护预览程序 用Delphi实现壁纸更换 用DELPHI实现位图显示特技 用DELPHI中Canvas特性开发图形软件 用构件变换法实现动画效果-Delphi资料 在Delphi中使用动态图标 在Delphi中显示Windows图标 请问现在数据库开发技术有哪些?大致情况? 高分求教,我爱上了兄弟的女朋友,我该怎么办? (100分) 高分求教,我爱上了兄弟的女朋友,我该怎么办? (100分) 请问汇编用什么编译器最好啊? 有什么可以下的电影啊,提供网址,谢谢 下午闷啊:( 怎样让字体自动适应分辨率 高分求教,我爱上了兄弟的女朋友,我该怎么办? (100分) 高分求教,我爱上了兄弟的女朋友,我该怎么办? (100分) RowCount属性怎么用 VCL派生类的属性发布问题,请高手指教 中国能否成为世界第一? 有关cisco路由器上copy子集的疑问 怎样将msn的email用outlook express收到本地! 请告知msn的 pop smtp服务器 如何动态画出函数的图象? 高分求教,我爱上了兄弟的女朋友,我该怎么办? (100分) 有创意的T恤~~ Transaction not connected! 高分求教,我爱上了兄弟的女朋友,我该怎么办? (100分) 高手求救 aspnetnemu注册吗 陨落雕老弟昨日开始中考,祝福他,放分! installshield打包时可以加入密码吗? 救命! 怎么在WM_DRAWITEM自画LISTVIEW? 有关txt文件操作的问题? 一个很奇怪的问题,高手请看, 马上给分 那里有更多的skinengine换肤文件? 奇怪的问题,高手请看,马上给分! 怎样给一个OLE控件其内置的事件编写脚本? 请问各位能否将一个VF的数据库方便的转为ACCESS数据库 如何关联一个扩展名到我的程序? 我有一个备注memo的字段,想更新?如何进行? www.ipowerweb.com 的主机怎么样? 高数、线性代数与程序员!!! Sworddx,补分给你 怎么做定时 这个listctrl问题怎么老没有人回答我?????? TQuery为什么没有这个属性? 哥哥们 ,谁能帮我? 高分,谁有奇域外挂? 急急!!winsock 在网速特别慢的时候,发送与发送之间有一个等待时间,这个时间是不一样的!!! 关于表单的先后顺序 万分火急,关于authorware的? 关于用ASP调用SQL 数据库存储过程的问题!高手帮忙 提议:共同作个小项目 急需解决字符串中的千位分割符去除的问题?在线等 修改客户端资料 AUTOCAD2002的授权号在哪里弄呀?? 网站首页跳出一个小广告或者通知的网页大小 初来乍到 怎么才能让DATA控件支持ACCESS2000? 广州麦地在哪里? 水果采摘后还是生物吗? 已知,4∧x=8,4∧y=32,求x+y的值 一篇初二的完型填空. 采摘下来的水果是有生命的吗 已知X-Y=8,X的平方-Y的平方=32,求X,Y的值 正方体对角线与底面对角线的夹角.如题.怎么求证?..是不同顶点的对角线。 水果是不是生物?为什么?可是水果是植物的果实...水果一般为植物的果实部分。都不能说水果是植物,而只是植物的一个器官——果实(网上说的)老师说:“生物是由细胞组成的,会对外 已知x-y=8,(x+y)(x-y)=32,求x,y的值 蝎子生活在哪里?是生活在水里的吗? 马其顿方阵到底有多厉害?最好有图 2的二零一二次方的相反数+2的二零一三次方 是神马? 已知a是第二象限的角 点 p(k ,8)在a 的终边上,且op等于17求cosa和tana的值 马其顿方阵是什么样的?谢谢了,大神帮忙啊 IF(MONTH(DATE($A$1,$D$1,COLUMN(A1)))=$D$1,DATE($A$1,$D$1,COLUMN(A1)),"") 蝎子为什么见水就死 为什么用move them away而不用move away them?think about/of it为什么不是think it about/of? 关于《烟台的海》的问题(苏教版的,补充习题上的哦,作者先写冬天烟台的海是因为( ). 下列对本课两个案例的概括,揭示了一个什么道理?哈萨克族人"四季放牧"和随季节变化而转场.哈尼族人充分利用大地的自然条件,开垦了极具特色的"梯田" runs wps函数=IF(WEEKDAY(DATE($D$19,$F$19,1),2)=C4,1, 执着于一件事,是好还是坏呢? 河南课标卷的数学 2013年可能会出现数列不等式压轴吗?不是说近年降低数列难度吗? 摩擦网的摩擦这个软件怎么用? 一对基因控制一对性状.这句话对么.还是多对基因控制一对性状 认真对待每一件事,是好还是坏?如题 【离散数学】任一无限集合都存在与自己等势的真子集——这句话是错的吧? DVR、混合DVR、NVR如何匹配高清监控 为什么每件事情有好的一面和坏的一面 The oil-tanker is running-----.Ato the best of its abilityB of great capacity Cto capacityD at full capacity 已知a角的终边上一点p(x,负2),且|OP|=4,求tan,csca的值急 已知A-B=4 AB=12 则A方+B方的值为 Speed and Memory Use NVR好用还是DVR好用 什么花死不了 I believe this famous brand of trainers can help my running speedA raise B rise C improve D add 说说原因,空在help 和 my 之间 若两个相互独立的随机变量X和Y的标准差分别为6和8,则X+Y的标准差为()A.7 B.10 C.14 D.无法计算 马其顿方阵和秦军交战会有什么样的结果还有 秦军与罗马军交战会是什么样? (-2)的二零一二的次方×(-2)的二零一三的次方.结果是—— 一个底面周长是43.96cm髙为10cm的圆柱从中间锯开得到两个同样大小的小圆柱表面积增加了多少 初二下完形填空we live in computer age.people ( ) scientists,teachers,writers and even students use computer to do all kinds of work.but more than 30 years ago ,( ) could not do much .they were ery big and expensive.very ( )people were interest 负二的二零一三次方加负二的二零一二次方 一篇初二完形填空!对你们来说简单的 如果a△b=1/4ab-a,那么3△8=( ),4△(8△9)=( )如题.. 怎样提高听力 计算圆柱表面积 周长31.4cm 高8cm列算式 Football is,I think,the most popular sport in the world today.One can go to any of the important 1 ,shouting for one side or the 2 .One of the most 3 things about football is that 4 a small boy can tell you the names of the 5 in most of the important 已知(x+y)^2=8,(x-y)^2=4,求x^2+y^2及xy的值 英语翻译新年快乐! a△b=1/4ab-a 3△8=( ) 4△(8△9)=( )要有解析。 令我感动的一件事,怎么写?麻烦告诉我 NVR逐步取代DVR的时代 “死不了”是什么花? 负二的二零一一次方加负二的二零一二次方的结果是多少? 英语翻译求 也许,这样的理想也许不算远大,可是他的善良简直让我感动,又压抑得让人想哭.我觉得这是霍尔顿最可爱的地方.尽自己最大的努力去守护一种美好这才是真正的大善良,这种大善良 什么花在夏天绽放冬天却死不了天哪,麻烦别打些没用的 令我感动的一件事作文怎么写 我希望有一片足够坚强的麦地,容我倒下而不哭泣的英文翻译 求在家里的周记300字, 2º+……+2二零一三次方,等于多少? 前美国国安局长“私聊”遭“直播”日本新保密法引政治纷争 被称是修宪的默克尔批美国应顺便“骂醒”中国人日本东北地区发生7.1级地震 暂无人美电视台节目“杀中国人言论”被删 签专家:美脱口秀节目折射美国人欠债不还伊朗停丰度20%铀浓缩 伊朗政府尚未学者:美国软实力遭遇一场“9 11”俄罗斯免费医疗陷入两难境地 有效果难墨西哥一糖果厂爆炸 1死20人失踪各国领导人都钟爱什么手机?美媒体称俄外交官在美招间谍 费用俄方英媒:中国“由陆向海”战略面临三个挑港媒:中国令人垂涎又无人问津的公务员前美国国安局长“私聊”遭邻座“直播”新媒:新加坡是中国的“特殊而重要的邻俄罗斯专家:美国例外论在多极化世界难美国电视荧屏常可看到公开对中国人侮辱男子沉迷网游称是因为老婆太能干传蒙古总统将访朝 是金正恩时期首位访美恶妇险扯断幼儿生殖器用胶粘合 面临共赏美景心欢乐 塘沽志愿者与残疾人畅陇南宕昌县图书馆免费向市民办理借书证援疆工程着眼民生 新疆南部村民“安居两岸男神首合体 冯绍锋、陈柏霖演绎韩周作人至死相信鲁迅偷看其妻洗澡 贬称波罗申科当选乌克兰总统 将落实走向欧泰国维和委员会发治国方案 驻泰使馆提温格:英超球员绝不会公开出柜 强大压阿根廷与巴黎俱乐部达成债务偿还协议外国摄影师拍摄朝鲜民众生活 称朝没有安倍在国会答辩中再次显示解禁集体自卫埃及总统候选人萨巴希承认败选 将继续波罗申科当选乌克兰总统 将落实走向欧尼日利亚主帅否认比赛被操控:球员们不泰国维和委员会发治国方案 驻泰使馆提波罗申科当选乌克兰总统 将落实走向欧法网第6日:女双上演金花德比 费德勒欧洲华商理事会在法国巴黎宣告成立土伦杯:国奥0 1墨西哥遭两连败 2兰州市信访工作开始全面下移 架起党政法学专家:美国应受绝大多数国家起诉
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘