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

运用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”中有各自数据源即可。
在服务器与交换机定制之后,谷歌着手量子计算机CPU设计 电信天翼开放平台鲍占斌:优质能力 分成比例高 艾格拉斯副总裁王晓波:手游定价如何设计 Xcode 6 Beta 7发布:语法定、内库改,Swift何时完善? 干货来袭:由22个联邦机构分享的6482个数据集 Phablet出货量今年将超移动PC,明年再超平板 如何提高Web服务端并发效率的异步编程技术? 改改改!让应用通过审核出人头地的10个方法 正益无线CEO王国春:AppCan如何获得50万开发者青睐 在收购Xtreme Labs之后,Pivotal推出PaaS移动服务 .NET开发者必备的11款免费工具 .NET开发不可错过的25款高效工具 Docker最佳实践!尽在2014 Container技术大会 pflua:用Lua编写的高性能网络包过滤工具箱 掌上明珠张磊:如何设计手游付费体系 云游科技何千军:游戏开发和后端逻辑经验 《近匠》Highway1:孵化,不只是简单的帮助 嘉宾来了 MDCC 2014首批演讲嘉宾名单公布 前雅虎CTO:Hadoop扩展过程中的7个危险信号 【云先锋】星环TDH:性能大幅领先于开源Hadoop2的技术架构赏析 一周消息树:我想创业,但不懂技术怎么办? GitHub迁移数据库,借助MySQL大行其道! 实例亲授:教你如何创建AR应用 iOS七年,苹果都为开发者准备了哪些工具? TIOBE 2014年9月编程语言排行榜:Java、C++跌至历史最低点 如何甄别具有软实力的IT应聘者? 避免关注底层硬件,Nvidia将机器学习与GPU绑定 盘点MIT Demo Day上4个最有前途的创业点子 IDF 2014第一天纵览:智能设备唱主角 时尚化才是可穿戴的未来 ASP.NET之父Scott Guthrie:借技术之力铺平未来之路 两年测试,NSA或将让其数据中心洗上油浴 怎样改变MC的颜色。 病毒邮件。请问有什么办法解决 帮帮我这个菜鸟! PCI Device 驱动程序? 救我吧. link的时候提示cannot open file "mfc42u.lib"的问题。怎么解决? 如何才能上网呢 请问如何重绘一个应用程序的窗体或内部 Object 的边缘,就像 SPY++ 的 FindWindow Tool 实现的样式?? 救救我,给100分 NT4.0为主域控制器,有办法降级为独立服务器吗? VBA 如何调用 DotNet's WebService ?? dbexpress为什么在插入带自增长字段时候出错? 为什么不同的查询语句会有不同的效率? 我现在要开发一个游戏大厅,谁能帮我提供一些技术参数>?在线等待。 不是水贴:请求帮助,有上海师范大学的请进 紧急!那位有clearcase winnt 4.2 的注册码,高分相送!!!!! 论坛的表格要在注意什么?《我是个菜》 大家帮忙介绍一本书 帮帮我怎么把系统还原占用的空间还给我——老鸟们帮忙! 过滤问题:Query需要先选择一个表(通过ComboBox)然后从2个Edit内输入两个条件 关于stringgrid的翻页问题 寻找电脑方面的朋友 大家好,帮忙做做这题 大家如何保存自己地提问?? JTable怎样一行一行地显示? 我的程序 无边框窗口显示问题 求教各位大虾 VB数据库 如何知道某字段有这个姓名记录? 我想学一种C++的集成环境,是C++BUILDER还是VC 我完全没基础,请帮我走出第一步:汇编工具在哪下载?我想试试那个“两只老虎” 如何在还原Cookie中的中文字? 制做彩色立体阴影怎么做啊! 我的程序 请问有没有这样的公司? 2000 server 无法使用ADSL????? 我要和她分手。。。。。。。。 一个不错的网站,进来看一下吧! map 使用的几个小问题 請大家幫我做這個的標準譯文,謝謝!!! 就像做考題一樣,不要只說它在概意思! 新手上路第一问!Hello World都不能运行 这样的SQL语句怎样转化成能在mysql下运行的 学汇编,应用在什么地方?单从功能来说,汇编强大还是C++强大 replace语句的使用方法: 一个不错的网站,进来看一下吧! 关于软加密的问题???? 请高手,两个简单的问题?在线等待???急急!!! 关于ADOQuery1.refresh的问题 我的程序 一个不错的网站,进来看一下吧! 石灰水和氯化铜溶液反应的离子方程式详细过程, 表2是从表1中截取的一部分,则a=多少 电离生成_____ 或 _____ 和的化合物叫做盐,例 _____和 _____ 与维持内环境稳态无关的A.剧烈运动时血液中的乳酸上升B.干渴时尿量明显减少C.人少量失血后,血量很快恢复正常D.炎热的夏天,人体内产生的热引起发汗而使体温不至于上升我们老师说选A,可 地球怎么会产升呢?我们生活在地球上,但奇怪的是,为什么地球一开始就存在呢? 可以说 电离时生成金属离子的化合物是盐吗反例? 自己怎么区别到底是藏银还是925银呢? 电影 造地球我在电视上看过一点,就是地球上的人都死了,就有一个人还活着,然后发生一系列的事情最后有个人又重造了地球,这是什么电影啊 雨水口连接管一般采用多少坡度 那本规范上可以看到 藏银、苗银、925银有什么区别?哪一种好一些?怎样知道是否是真货? 在造一个地球 有色金属冶炼锡会产出那些有害物质火法精炼. 在任意三角形ABC中有一点P使得2AP+BP+CP最小最好有图.. 盐溶液的电离程度大小怎么判断? 万智牌求讲解那位大神给个红白人类(打群殴)套牌用的法术,最好有防清场的. 在等腰直角三角形ABC中,∠BAC=90°,连接AD,求证BP的平方+CP的平方=2AP的平方P在B,C之间 万智牌 什么算生物咒语 万智牌 重力井 怎么用如题 澄清石灰水与氯化铜反应离子方程式 地球是谁造的? 我以后想做翻译,请问学哪个小语种好? 石灰水与氯化铜的反应有离子方程式吗 谁在作业帮上有财富值? 2012年电池的年产量约为多少亿只?是中国的年产量一共有多少亿个! 氯化铜溶液为什么不能和氢氧化铁反应 作业帮答题采纳给的财富值一般是多少 2011年产量比2012年多200千克,这句话中有哪几个数量?今天晚上要! 一道题问xxx的化合价为_____.这个时候,这个空需要些是+?价,还是直接写+?,加不加‘’价”这个字? 作业.作业.急…财富值没有了,求帮忙啊一位作家曾经说过,世上有四种话最有力量:朴实的话,真实的话,知心的话,不同的话.你同意他的观点吗?你有这方面的体会吗?请选择其中一个角度,谈谈 有机细胞是什么 氯化铜和盐酸化学反应式 氢氧化铁和氢气化学反应式A+HCl→CuCl2+H2O 这里A是什么? 作业帮的财富值有什么用 万智牌的转化什么意思 化合价基本练习题Na2FP03.已知F为-1价那么P的化合价为多少怎么做的详细点.讲得好的另外加分,一定要说明白点本人很笨.还有不是说化合价和不为零就交叉拉化合价吗? 我们常说的铁丝中米丝的具体规格参数请问铁丝中我们常说用8#铁丝,10#铁丝.这个是不是对应美标8GA,10GA?另外,我们常说的米丝是哪个规格的? 万智牌"康"是什么意思 关于化合价的试题 甲基苯并三氮唑的 唑字一般是念发cuo 的音还是zuo的音回答哪种的都有,我当然知道字典上的发音是zuo,我是想问人们一般是发成什莫音,就像山东乐(lao) 凌乐的发音。 寄生生物离开宿主多久会死还有裂头呦离开宿主会死吗?怎么才可以杀死它呢在我们日常的生活环境。为什么没人说裂头呦额。 问几个化合价亚硝酸根 亚硫酸根 的化合价 、(2002·上海高考题)全年对太阳能量的利用率,森林生态系统远大于农田和态系统,主要原因是前者( )A、以木本植物为主 B、土壤肥沃C、不施农药 D、植物群体有分层结构为 如果一个动物将其卵注入另一动物体内导致宿主死亡则他们的关系是寄生还是捕食? 1、氯元素有多种化合价,他在高氯酸中线最高价,则高氯酸的化学式为2、下列5种物质中均含有碘元素,他们按下列顺序排列,(1)KI (2)I2 (3)HIO (4)X (5)NAiO4根据这种排列规律A、Agl B、NA 中和反应中化合物_______ 符合复分解反应条件,生成物中_____ 是复分解反应 关于病毒寄生问题 病毒“寄生”于人体内,最后会导致人体死亡.但是寄生是不能使宿主死亡的.有一种叫做关于病毒寄生问题病毒“寄生”于人体内,最后会导致人体死亡.但是寄生是不能使宿 收入分配改革方案什么意思内容详解. 最全面的小语种紫金矿业翻译,金矿有资源的翻译优先. 血液的颜色取决于红细胞吗? 细胞凋亡对内环境稳态的影响为什么说细胞凋亡能保证内环境稳态?稳态的概念是通过调节作用啊? 最全面的小语种五矿翻译,五矿又指的是什么 化学中能不能制取钾,怎么制取 PH计不稳定怎么弄 全数字式助听器有什么特点 怎么制取钾和钙 人体内对内环境稳态起调节作用的系统是 【化学】问一个有关化合价的问题今天看重难点手册 看到这样一个化合物 O3F2(二氟化三氧?) 不是O和F都没正价么?那这个化学式的化合价怎么回师呀? 想知道什么是数字式助听器 请从下列词语中至少选用四个以上的词语,写一段以“云”为话题的文字,要求用上一种修辞手法(50字以内)峰峦 预兆 轻盈 匀称 崩塌 弥漫 一霎间 姿态万千 变化无常 PH计不稳定,数值老变,怎么办?就是PH计不管是测蒸馏水还是其他的标准溶液还是样品溶液都不稳定 ,数值一直变动…… 中国唯一最强的小语种地质工程翻译 “岩浆行星”震惊科学家:它本不该存在韩称中国学生“弃日择韩” 赴韩留学人盟友也要区别对待 日本德国仍是美国监白宫:叙利亚一空军基地遭以色列空军袭肯尼亚16岁少女遭轮奸疑犯仅被罚剪草日本最先进潜艇“黑龙”举行下水仪式(中国水土流失面积占国土面积30.7%美国务卿回应监听活动:某些方面“太过美街头现旭日旗壁画 当地韩裔忧军国主澳数学家获“总理科学奖” 曾用数学办“岩浆行星”震惊科学家:它本不该存在罗马教皇被指坠入美监控网 美国安局极中国首届艺术财富峰会在杭召开 发布诚第二届全国诚信浙商公示投票反响热烈万圣节小礼物:地图显示你喜爱的恐怖电酒香不怕巷子深——中国图书在阿尔及利张杰:中国要做全球贸易体系的捍卫者印尼强烈抗议美国监听 指其违反外交准智利沿海发生6.6级地震 未引发海啸中国珠算进入2013年联合国人类非物德国议员说斯诺登愿赴德协助调查监听事中纪委禁公款购年历 商家称多起订单被李嘉诚加快海外并购 长和系156亿竞环保部\"重典\"治霾 31省区市月雾霾天健康饮食 冰糖红枣雪梨汤大熊猫“张想”被放归自然 独自“野外隐性收入没了 资深导游纷纷转行 路在女子用绳子绑住脖子寻短 奄奄一息被送鄱阳湖持续逼近8米极枯水位 致百余万北京东路两座大院里 不少“国保”值得郑州车展出狠招 美女车模比基尼身上写世纪游轮扬帆起航 13航次倾亲奉献杭州地铁明年或将实现“无人驾驶” 由鹿头中箭仍然行动自如 闯入新泽西民居机构发布全球租金最贵办公点 北京上海高圆圆私密视频流出,娱乐圈惊现“湿剃北京今天开始点火试供暖 点火率将达5“大黄鸭”降临金城火山灰铺天盖地 印尼数千人撤离沪通铁路明年开工 建成后南通到上海只《爸爸去哪儿》囧爸被突袭 张亮林志颖北斗系统将服务长江口导航定位 精度达
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘