电信主站 网通分站
购买流程 付款方式 常见问题 在线提问 续租服务 购物车
用户名: 密 码: 忘记密码?
首 页
域名注册
虚拟主机
双线主机
服务器租用
VPS主机
企业邮局
代理专区
客服中心
虚拟主机行业资讯 虚拟主机评测对比 互联网最新动态 技术学院 站长资讯 在线教程 网站运营
搜索优化 服务器 网络编程 图形图象 站长之家 网页制作 操作系统
冲浪宝典 软件教学 视频通信 办公软件 邮件系统 网络安全 认证考试
您当前位置:西部数码->资讯中心-> 冲浪宝典-> 联络聊天
mdb文件的导出-使用dao_visualbasic教程
作者:网友供稿 点击:0
  西部数码-全国虚拟主机10强!20余项虚拟主机管理功能,全国领先!第6代双线路虚拟主机,南北访问畅通无阻!虚拟主机可在线rar解压,自动数据恢复设置虚拟目录等.虚拟主机免费赠送访问统计,企业邮局.Cn域名注册10元/年,自助建站480元起,免费试用7天,满意再付款!P4主机租用799元/月.月付免压金!
文章页数:[1] 
在很多VB的MDB文件书籍中,都会很完整的提到:如何由其他种类的文件中將资料导入MDB文件,但是却很少有书提到:如何將MDB文件中的资料,导出到各种不同的文件类型的文件中,连VB的Help中也是这样!

或许是大家都认为MDB文件主题的重点是在MDB文件本身吧!

但是,在实际的MDB文件程式運用中,却常常需要將MDB文件导出到各种不同的文件类型的文件中,这些文件可能是DBase文件、文本文件(.Txt)、Excel文件、Html文件、Access文件或其他类型的MDB文件文件(ODBC)...等。

在本主题中,考虑到並不是每一个人都有Oracle或SQLServer的环境,为了让大家都能夠实行,我们將以AccessMDB文件来作练习,而练习的文件也使用VB本身提供的Biblio.mdb(位于各版本VB的目录下)。

预计要练习导出的文件类型有五种:DBase文件、文本文件(.Txt)、Html文件、Excel文件、Access文件。除了这五种之外,下面的命令可以將MDB文件导出到任一种VB支持的MDB文件或文件中。

在练习之前,要將导出文件的SQL命令先说明一下:

SELECTTable.FieldsINTO[dbmstype;DATABASE=path].[unqualifiedfilename]FROM[TableorTables]
SELECTTable.FieldsINTO[MDB文件种类;DATABASE=MDB文件路径].[MDB文件文件名称]FROM[TableorTables]

至于【MDB文件种类】及【MDB文件路径】,视MDB文件或文件类型之不同而异,详见【注一】。
如果上面说的都清楚了,那我们要开始这一个练习了!

在Form上放置一个CommandButton,加入MicrosoftDAO3.51ObjectLibrary,我们將使用Biblio.mdb的authorsTable,在Command1_Click中加入以下程序代码:

DimdbAsDatabase
Setdb=Workspaces(0).OpenDatabase(App.Path&"\biblio.mdb")
db.execute"SELECTTable.FieldsINTO[dbmstype;DATABASE=path].[unqualifiedfilename]FROM[TableorTables]"

在以上程式中,db.execute指令行之指令依MDB文件或文件的种类说明如下:

一、DBase文件

SQL命令:SELECT*INTO[dBaseIII;DATABASE=MDB文件路径].[dbase文件名称]FROM[authors]
db.Execute"SELECT*INTO[dBaseIII;DATABASE=C:\test].[authors.DBF]FROM[authors]"
注意事項:
1、authors.DBF事先不可存在,否则会产生错误!
2、若您沒有Dbase,您可以使用Access来连結这个Table,以便观察結果!

二、文本文件(.Txt)

SQL命令:SELECT*INTO[Text;DATABASE=文本文件路径].[文本文件名称]FROM[authors]
db.Execute"SELECT*INTO[Text;DATABASE=C:\test].[authors.TXT]FROM[authors]"
注意事項:
1、authors.TXT事先不可存在,否则会产生错误!
2、此命令会产生的文件有二个,第一个就是文本文件authors.TXT,第二个是Schema.ini。
3、文本文件之格式为CSV之文件格式,以逗点分开,实际呈现方式如下:

  "Au_ID","Author","YearBorn"
  1,"Jacobs,Russell",1950
  2,"Metzger,PhilipW.",1942

4、Schema.ini若事先不存在会新产生一个,若已存在,则会在原文件后面直接Append。
5、至于Schema.ini的內容为此次导出的相关资讯,格式同一般的Ini档,详細內容如下:

  [authors.TXT]
  ColNameHeader=True
  CharacterSet=OEM
  Format=CSVDelimited
  Col1=Au_IDInteger
  Col2=AuthorCharWidth50
  Col3="YearBorn"Short

三、Html文件

SQL命令:SELECT*INTO[Excel8.0;DATABASE=Html文件路径].[Html文件名称]FROM[authors]
db.Execute"SELECT*INTO[HTMLExport;DATABASE=C:\test].[authors.HTM]FROM[authors]"
注意事項:
1、authors.HTM事先不可存在,否则会产生错误!
2、此命令会产生的文件有二个,第一个就是文本文件authors.HTM,第二个是Schema.ini。
3、Schema.ini若事先不存在会新产生一个,若已存在,则会在原文件后面直接Append。
4、至于Schema.ini的內容为此次导出的相关资讯,格式同一般的Ini档,详細內容如下:

  [authors.HTM]
  ColNameHeader=True
  CharacterSet=ANSI
  Format=HTML
  Col1=Au_IDInteger
  Col2=AuthorCharWidth50
  Col3="YearBorn"Short

四、Excel文件

SQL命令:SELECT*INTO[Excel8.0;DATABASE=文件路径 档名].[工作表名称]FROM[authors]
db.Execute"SELECT*INTO[Excel8.0;DATABASE=C:\test\authors.XLS].[authors]FROM[authors]"
注意事項:
1、authors.XLS可事先存在,也可以不存在,会自动产生一个。
2、工作表authors事先不可存在,否则会产生错误!

五、Access文件

SQL命令:SELECT*INTO[新MDB文件路径 档名][新表名称]FROM[authors]
导出到同一MDB文件(新Table为authors1)
新Tableauthors1事先不可存在,否则会产生错误!
db.Execute"SELECT*INTO[authors1]FROM[authors]"
导出到不同的MDB文件(新MDB文件为db1,新Table为authors)
新MDB文件db1事先必須存在,否则会产生错误!
但是其中新Tableauthors事先不可存在,否则会产生错误!
db.Execute"SELECT*INTO[C:\test\db1.mdb].[authors]FROM[authors]"



注一:各种可能的MDB文件种类Connect属性設定方式:

MDB文件种类MDB文件宣告方式MDB文件路径(或加上档名)
MicrosoftJetDatabase[database];drive:\path\filename.mdb
dBASEIIIdBASEIII;drive:\path
dBASEIVdBASEIV;drive:\path
dBASE5dBASE5.0;drive:\path
Paradox3.xParadox3.x;drive:\path
Paradox4.xParadox4.x;drive:\path
Paradox5.xParadox5.x;drive:\path
MicrosoftFoxPro2.0FoxPro2.0;drive:\path
MicrosoftFoxPro2.5FoxPro2.5;drive:\path
MicrosoftFoxPro2.6->


文章整理:西部数码--专业提供域名注册虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!
相关主题
文章页数:[1] 
Google
热门文章
·photoshop绘制五颜六色的圣诞彩灯_photoshop教程
·数码照片的photoshop清晰化处理漫谈_photoshop教程
·internet上的文件操作_autocad教程
·矩形阵列、圆角和倒角命令的使用_autocad教程
·php强制对象类型之instanceof操作符_php技巧
·另类玩法 打造个性化的windows xp声音_windows xp
·无敌进程终结法 鲜为人知的进程秘籍两招_windows xp
·ge在有线电视宽带城域网中的应用_视频通信
·教你用photoshop打造美丽龙纹玉佩_photoshop教程
·vb实现按钮浮动效果_visualbasic教程

最新文章
· 网站赚钱秘密
·导航的没落,Web2.0新时代谁将备受青睐?
·做网站是“体力活”?还是“脑力活”?
·不能病毒营销 有道如何占领搜索市场
·文件存储网站BIBIDU发起德与法签名活动
·雅虎邮箱:整合的野心有多大
·专家:08年将成iPhone攻击年 腾讯QQ仍很危险
·Google网络存储空间将达50G 比希捷更赚钱
·Google提示新浪博客含有恶意软件 原因尚不清楚
·微软的Office红旗还能扛多久?


 
 


版权申明:本站文章均来自网络,如有侵权,请联系我们,我们收到后立即删除,谢谢!

特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有。
  打印  刷新  关闭
返回首页 |关于我们 | 联系我们 | 付款方式 | 创业联盟 | 虚拟主机 | 资讯中心 | 友情链接 | 网站地图

版权所有 西部数码(www.west263.com)
CopyRight (c) 2002~2006 west263.com all right reserved.
公司地址:四川成都市万和路90号天象大厦4楼 邮编:610031
电话总机:028-86262244 86263048 86263408 86263960 86264018 86267838
售前咨询:总机转201 202 203 204 206 208
售后服务:总机转211 212 213 214
财务咨询:总机转224 223 传真:028-86264041 财务QQ:点击发送消息给对方635483282
售前咨询QQ:点击发送消息给对方2182518 点击发送消息给对方241975952 点击发送消息给对方275026793 点击发送消息给对方408235859
售后服务QQ:点击发送消息给对方17708515 点击发送消息给对方307742704 点击发送消息给对方287976517 点击发送消息给对方363783715
《中华人民共和国增值电信业务经营许可证》编号:川B2-20030065号