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

运用ADO进行数据库表数据互导 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
运用ADO进行数据库表数据互导 -VB资料
南京电信局公共信息产业公司
陈劼
---- 在对数据库操作时,用户往往会碰到多种数据库表格数据的互导,如将SYBASE表中的数据导入WINDOWS的Sql Server表中或是Access的*.mdb表。如果用传统的DB-Libraryf方式:先用select语句读出数据再用insert语句导入数据。这种方法的缺陷是:如果表格的字段太多编程时势必要出错且不易调试;字段数据中有“’”符号时无法用insert将其插入。ADO(Activex Data Objects)很好的解决了这些问题。ADO处在DB-Liberary的上端,Microsoft将其捆在MDAC发布。自今ADO已由ADO1.0,ADO1.5发展到ADO2.0版,ADO1.0以上版本支持大字段(如Access表中的备注)。ADO对字段名即可以直接写出其字段名称也可以用阿拉伯数字代替。我们以ADO1.5为例,VB5.0英文版为编程语言。如果机器里装有ADO,则在Windows 95下在c:\Program Files\ Common Files\ System\ado下有msado15.dll,msador15.dll文件。打开VB5.0,建立一个应用程序,在“Project”菜单中选用“Reference”——> “Microsoft Activex Data Objects 1.5 Library”和 “Microsoft Activex Data Objects Recordset 1.5 Library”

---- 下面是具体的程序:

Dim objconn As ADODB.Connection
Dim objrst As ADODB.Recordset
注:objconn,objrst数据表中已有数据。
Dim cjconn As ADODB.Connection
Dim cjrst As ADODB.Recordset
注:cjconn,cjrst是要从objconn,objrst导入数据
Dim i As Long

Private Sub Command1_Click()
Set objconn = New ADODB.Connection
objconn.Open "servername", "username",
"userpassword"
注:“servername”是用户在“控制面板”
的“ODBC 32”
中建立的数据源、“username”
是用户对数据源(SYBASE)的用户名,
”userpassword” 用户对数据源
(SYBASE)的用户密码。

Set objrst = New ADODB.Recordset
Set objrst.ActiveConnection = objconn
objrst.LockType = adLockOptimistic
objrst.CursorType = adOpenKeyset
objrst.Source = "tablename"
注:“tablename” 数据源中的表名。
objrst.Open

Set cjconn = New ADODB.Connection
cjconn.Open "servername", "username",
"userpassword"
注:“servername”,”username”,
”userpassword”含义同上,
只不过数据源是其他数据库。
Set cjrst = New ADODB.Recordset
Set cjrst.ActiveConnection = cjconn
cjrst.Source = "tablename"
注:“tablename” 含义同上,
该表中的字段类型应
与上面的表中的字段类型一致
cjrst.Open
i = 0
Do While Not cjrst.EOF
i = i + 1
objrst.AddNew
objrst(0) = cjrst(0)
objrst(1) = cjrst(1)
objrst(2) = cjrst(2)
objrst(3) = cjrst(3)
objrst(4) = cjrst(4)
objrst(5) = cjrst(5)
objrst(6) = cjrst(6)
objrst(7) = cjrst(7)
objrst(8) = cjrst(8)
objrst(9) = cjrst(9)
objrst(10) = cjrst(10)
objrst(11) = cjrst(11)
objrst(12) = cjrst(12)
objrst(13) = cjrst(13)
objrst(14) = cjrst(14)
objrst.Update
cjrst.MoveNext
Debug.Print I
注:“I”用于显示已导入了多少条记录。
Loop
End Sub
---- 以上的1到14就是字段的索引值,用起来非常方便。以上的程序不但适用于SYBASE与WINDOWS的Sql server 、Access之间互导;还适用于SYBASE与SYBASE,Sql server与Access之间互导,只要“ODBC 32”中有各自数据源即可。
《近匠》秦时明月:知名IP光环下的生存之道 微软研究院正式发布编程学习游戏Code Hunt 走近讲师:Memblaze刘爱贵讲述云计算中的闪存应用 【云先锋】ClouDil云方案:PB级大数据解决方案 一周消息树:这是要“发”啊?Google Brain之父正式加盟百度 最受欢迎的游戏引擎集结号:小白篇 多盟总设计师邢开捷:四两设计拨千金 Cocos2d-x游戏《Monster Strike》终结《智龙迷城》霸榜神话 高通物联网技术解决方案:从汽车到智慧城市 Arduino携手Atmel 发布Arduino Zero开发板 以色列玫瑰:细数十位科技创新领域的女性佼佼者 8款最佳的开源在线学习CMS系统 在发布站点前,Web开发者需要关注哪些技术细节? TOCC、中航信、高德、北斗平台重磅专家登场 邀您共享ITS技术盛宴 腾讯大数据之TDW计算引擎解析——Shuffle AMD APU14 BEIJING技术创新大会精彩看点 这是云整合时代开始的节奏吗?Rackspace考虑退出 一周热点:如何使用15美元每月的机器实现百万文档检索 黑客获取数据信息的目的和进攻手段及应对之策 Surface Pro 3遭大曝光:799$起、四色可选、12寸屏幕 当软件遇上设计,浅谈敏捷UX VS.精益UX DIY“物联网”——自己动手处理传感器数据 AMD成首家X86+ARM双架构计算 欲寻新蓝海 锤子手机发布:Smartisan T1与其背后的开发团队 第六届中国云计算大会在北京隆重举行 替代笔记本的Surface Pro 3:800g、9.1mm,极致轻薄 PWorld2014:畅谈企业软件向“大平台”+“微应用”变革 微软公司全球资深副总裁张亚勤:云计算引领互联网物理化 亚马逊网络服务全球市场副总裁Ariel Kelman:亚马逊AWS云服务推动创新 终超苹果,谷歌成全球最有价值品牌 高通业务拓展总监沈周全:以软件为基础建立差异化优势 winrunner怎么获取工具条中的按钮对象? 这个update为什么报错?该如何改? 招兼职图片程序员 请大家帮帮忙,简单(送分) 如何在web.config中设置验证登陆??????? 非常奇怪的编译问题 .NET的平台怎么搭建! 退格键的ASCii码值是多少?急。。。。。。。。。。。 请教大家个问题 如何用php下载文件? 求能够交替显示不同颜色的行的表格控件,十万火急! 如何将SQL SERVER 2000中的两个表连接在一起,且其中的记录是一对多? 如何用JavaScript控制验证控件的Enable属性?? 拼音模糊查询 “网上邻居”就打不开了,这是怎么回事?如何处理? 为什么没有delete 掉 使用pro c要用到那些包,如何快速学会pro c? 谢谢 拼音模糊查询 求gif或jpg下图标。详情见内。 昨天,公司通知我晉升,老丈人讓我去見她,第一次,雙喜臨門,散分!!! 看看我们昨天晚上怎么过的中秋吧 拼音模糊查询 XP下断开连接了,怎么总是不断自动拨号啊。 螺旋藻能防辐射,你知道么,给说说吧,有分送 servlet如何实现对文件的删除? 请教PWM DsgnIntf的问题 请问如何让自己的服务可以早点启动(普通服务,不是驱动服务)? 程序员的女人 请教一道网设的题目 请大家介绍几个热门的英文讨论的技术网站给我。 请教一个抽象类的问题 如何在dataset.tabel中将两个表能过双方的两个字段建议关系 高分求高手:jsp中如何获得服务器的网卡地址? 新手,请教C#入门 如何将列表框中所有的值都显示出来,不要有滚动条! 系统软件谁居第一 新人“ gxlxwp1982(我爱Delphi,就像老鼠爱大米)”来了,以后大家多帮忙!!!!1 使用Access数据库的SQL语句问题请教!!!! 谁有软件技术测试报告?给我一份参考一下啦~~~ : [求助]请各位帮帮忙呀! weblogic7.0的端口问题 如何在一个form中使用另一个form? win2kp 如何恢复丢失的桌面? 80年出生的都在干什么? SQL Server7.0升级到SQL Server2000 急需winsock2.h文件 delphi开发的程序在WIN2000,WINXP下运行正常,在WIN98却不行,是怎么回事? 如何在TOMCAT下重定向服务器不存在文件的错误页面 关于JFileChooser中的新建文件夹问题? 请问哪里有sun j2ee 服务器参考实现的源程序下载 “只是”文言文如何表示 若x=a²-2b+1,y=b²-2c+2,z=c²-2a+3.求x+y+z的取值范围 有谁用过红米移动合约机,可以不? 红米有移动合约机吗 移动合约机红米要不要粉码? 红米联通双卡双待的合约机用同时联通卡和移动卡吗? 有诬其子纲请求受金者,亿请自置狱按之,事虽辨,犹降通判大名府.出自宋史,列传第七十四 若a>b>c,则关于x的方程|x-a|+|x-b|+|x-c|=m无解时,m的取值范围是 A.(-∞,a+c-2b) B.(-∞,2a-b-2c)若a>b>c,则关于x的方程|x-a|+|x-b|+|x-c|=m无解时,m的取值范围是A.(-∞,a+c-2b)B.(-∞,2a-b-2c) C.(-∞ 生物试剂与ELISA试剂盒的分别不同在哪?具体一点的 闻一多 祈祷中提到了哪些中国的著名地点? 帮帮忙学霸我英语不好 叙利亚副总理称没有掌握自己被免职消息美国最新型隐身驱逐舰下水 因价格太贵俄罗斯否认疑借助俄礼物窃听G20代表华为称澳政府针对国家宽带网项目未做最国际新闻早报:以色列释放第二批26名迪拜将孔明灯列为危险品:致火灾商铺将中国承建高速路给斯里兰卡带来的社会和泰国或明年起征收入境税 外国游客超三叙利亚副总理贾米勒被解职 为主要反对横跨欧亚大陆 土耳其海底隧道正式启用首条横跨欧亚海底隧道启用 可乘火车从俄国家杜马主席:美国外交政策是中东不美元对多数主要货币汇率7日上涨纽约股市三大股指7日下跌低油价抑制美国原油产能的预期令国际油突尼斯4名士兵遭伏击身亡美国首都华盛顿突发大范围停电图文:共赴春天的约会直面30万师生消费群南湖时尚城步行街南京被虐男童已正常上学图文:不设最低消费 供半份半价菜宅在家里编织毛衣外婆三天累坏颈椎摇曳枭雄黄金天师系统葬神噬灵妖魂弄虚前世道童日在蜀山网游之忽悠的猫冥龙船竞技三国之独孤九剑神魂成仙格根塔拉草原旅游乌鲁木齐美术馆旅游乌鲁木齐人民公园旅游恐龙广场旅游汤山温泉旅游地下倒石林旅游南山牧场旅游姊妹湖旅游康定情歌景区旅游清华大学图书馆旅游三亚梦幻水上乐园旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘