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

运用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”中有各自数据源即可。
前Google员工发布无痕搜索产品,阻老东家财路 VMware推出vCloud Suite及vSphere新版:可用性及性能双丰收 TIOBE 2013年10月编程语言排行榜:Groovy首次挤进Top 20 Cookie时代将结束:微软将开发跨PC、移动和Xbox跟踪技术 Web设计里需要避免的八大糟糕趋势 Groupon从ROR迁移至Node.js,响应速度大幅提升 腾讯云的Container实现 专为物联网打造的数据库TempoDB获得320万美元投资 MongoDB成为首位10亿美元初创,功臣可归功于Oracle? 程序员遇到Bug后的30种常见反应 扎克伯格豪掷3000万美元购四套房 梅耶尔和拉里佩奇也居于此 IBM研究人员:仅200条微博 就可构建人格剖析图 MDCC重磅讲师:Pebble CEO Eric Migicovsky 历届中国大数据技术大会PPT精粹(一) 通讯也“跨界”:几行代码,API+SDK,用PaaS实现移动互联 MIT风景线:丝绸雕塑、VR代码、机器人、智能按钮及保时捷 深度学习新算法,完成字里行间的情绪识别 如何在开发项目里和难缠的程序员合作? 移动周报:七大无需编程的DIY开发工具 手把手教学,用jQuery Mobile创建Web App 别惊讶,Android绿色机器人标志灵感来自于卫生间标识 Google TV更名为Android TV 智能电视的路不好走 CTO如何避免决策失控(四)——通盘考虑 做到技术业务不分家 重塑世界!历届MDCC重磅嘉宾演讲大回顾 从贝佐斯的14句言论看商业成功之道 5大宠物可穿戴式设备 Google CIO Ben Fried谈内部工具文化 【开源专访】Fourinone创始人彭渊:打造多合一的分布式并行计算框架 API优先架构或者胖瘦服务器之争 Windows Phone 8迎来Update3更新:支持更大屏幕 更多磁贴 AMD院士站台 异构计算与OpenCL编程师资培训首站清华开讲 高手们请进来看看引用WEB SERVICE的出错! asp空间~?? 什么是EJB等等 关于某些考试中的概念问题,基本上是菜鸟级的 关于next_premutation的算法,欢迎进来讨论 徐州的朋友进来,留下联系方式,交流交流。 jw领分 jw领分 jw领分 View 的使用会不会降低查询速度 索引超出了数组界限 为何自己用vb开发的ActiveX组件不能在asp页中运行 kvm & Redhat8.0, 移植问题??? 高手或有兴趣的朋友看一下,谢谢。(一) kvm & Redhat8.0, 移植问题??? 高手或有兴趣的朋友看一下,谢谢。(二) kvm & Redhat8.0, 移植问题??? 高手或有兴趣的朋友看一下,谢谢。(三) 有谁可以给我介绍一本比较好的介绍算法的书 她是我的初恋,半年前我们再次相遇,我对她说我一直爱她,她似乎也爱我,但现在她说她有男朋友了,不是很久,我想和她断绝联系,她又说会 如何防止多个程序实例同时运行? Interface not supported,Delphi作Com+服务时,有客户端报此错,紧急求助!! 难道《80X86汇编语言程序设计教程》保护模式部分的例子没人试过吗? Canvas.StretchDraw在WinMe有效,但在Win2000无效?!得如何解决? 本人急求《深度探索C++对象模型》一书完整E版 寻《深度探索C++对象模型》一书完整E版! 想从C++转到DELPHI,请前辈们指点一二 请问那里有.NET基类的详细介绍?提供者给分。 网页上的图片都是怎么切割的? 什么叫hr? 求教组网方案!有实践经验者请进 帮助看看用什么控件比较好。 OLE打开Excel文件的问题 关于c远程调用 这个病毒太狠了! 如何将IE打印功能去掉?禁止别人打印网页? 请教关于TImageList中存储多幅图片的问题 100分赠送 寻架构? 请教高手:如何在VB开发的程序中准确判断用户的可用内存? 用jb怎么在另一个类中控制frame中的一个label的text的实时的变化?多谢 如何制作PB应用程序的安装程序?高分求救。 WinXP里怎样备份norton antivirs的升级数据? 我只是给自己加点分啦 快救救我吧,我的存储过程返回值有问题?? 日文原码想在中文环境中运行可不可能 JBoss高手看过来! 下面的js执行错误,请看看 请教高手:如何当一个程序被反复调用时利用command$? 声明游标时可否用变量? 能不能提供几个漂亮的repeater控件的模版? dbs.Execute "SELECT * INTO 在校学生 FROM [Excel 8.0;DATABASE=" & App.Path & "\MyExcel.xls].[WorkSheet1] "报错,在线等待 有没有什么工具或办法可以将Tc 下的程序移植到linux下运行? 求助! 太阳旁边的为什么有光圈有 出现幻觉是什么样子的. 主动运输一定要从低浓度到高浓度么 没有这样的条件是不是主动运输就不能进行了呢 太阳上有一个大光圈今天中午回家时发现以太阳为中心有一个特大的光圈,光圈边上是彩色,光圈里呈灰色,太阳和往常一样亮.周围云彩比较多.最近没刮过风、下过雨.这是怎么回事啊? 幻觉是怎么产生的 物质跨膜运输中,发生主动运输的条件是? 今天太阳出现了日环,这是怎么回事?怎么会有这种现象呢? 物质燃烧一定是放热反应吗? 为什么在无氧条件下也能进行主动运输 如何用CAD矢量化平面地形图? 这个为什么是主动运输 有机磷穿过细胞膜是被动运输还是主动运输?都需要什么条件? 旗形树的树冠为什么像一面旗帜 关于主动运输的问题某一细胞能通过细胞膜从环境中吸收M物质,进行实验得到以下结果:1、当细胞中M物质浓度高于溶液中M物质浓度时,也会发生M物质的吸收2、只有在氧气存在的条件下才会 9、甲、乙、丙三位学生用计算机联网学习数学,每天上课后独立完成6道自我检测题,甲答及格的概率为0 .8乙答及格的概率为0.6 ,丙及格的概率为0.7.三人各答一次,则三人中只有一人答及格的概 正五棱椎的斜二测画法丶带正五棱锥的原几何图 以下哪一实例是生物对环境的适应 A.仙人掌叶退化成刺 B.千里之堤,毁于蚁穴 C.大树底下好乘凉以下哪一实例是生物对环境的适应A.仙人掌叶退化成刺B.千里之堤,毁于蚁穴C.大树底下好乘凉D.万 主动运输需要什么呢 8.It’s not a good line.I __________ you well.A.can hear B.can listen to C.can’t hear D.can 请问太阳周围的一圈光圈是什么, 关于主动运输我在整理笔记的时候发现了老师说过核糖体进入小肠上皮细胞是主动运输 可是核糖体能在小肠里出现么? 英语翻译 Good line you wife?可能是口语,只要知道是什么意思就行了………… 太阳外部的光圈是什么 继发性主动运输是协同运输吗? 生物有丝分裂与减数分裂识图甲是什么时期,感觉跟下面的图一个都对不上! 大学里哪几门课教授 比如一点透视 两点透视这一类 几何画法中三面投影里怎么判断两条直线是否垂直?只用V,H面 1.it's not polite to cut in line(改为同义句)()()()()is()2.I made a big meal.I didn't go to the restaurant (合并为一句)I made a big meal()()going to the restaurant 求几张典型的一点透视图和两点透视图 在画法几何中投影可分为 投影 投影 初中英语题:I can not stand it ___ people cut in line 请速回答我填的是that,答案是when,为什么我的不行? 总T细胞,细胞毒性T细胞,辅助T/细胞毒T低是怎么回事 燃烧反应一定是放热反应吗?为什么? 粉刷墙壁,有n段墙,每连续的m段墙壁中至少有两块被粉刷,现在已知粉刷每一段墙壁的费用.求最小的费用.用动归啊,方程怎样呢?听说还能用单调队列的. 主动运输的速率与什么有关(答案限于高一上学期) 心率偏高有什么危害吗? 何为稳定传热状态?为什么在该状态下,通过维护结构的传热量也就是通过该围护结构中任一层的传热量不变? 花红粉 对人有害 含花草、数字的古诗都有哪些?急用 表面活性剂形成胶束是否就具有增溶作用?表面活性剂在一定的HLB值,如15-18内是否都能形成胶束,形成胶束后是否就都能够增溶?增溶能力的大小以什么作为判断标准? 地球上有没有比如花更美的女人 动物生理为什么深而慢的呼吸气体交换效率高于浅而快的呼吸谢谢了,大神帮忙啊 氧气和葡萄糖由体外进入体内参与胳臂肌肉组织细胞的有氧呼吸,分别需要穿过多少层磷脂双分子层,..氧气和葡萄糖由体外进入体内参与胳臂肌肉组织细胞的有氧呼吸,分别需要穿过多少层磷 如何加强校园内的安全防范一千字作文 形容轻视别人,对别人没有礼貌的词语或成语 《三亚落日》中感染的意思 什么叫胶束?有什么用途?感觉介绍的不详细啊,有谁推荐一本书看看啊! 形容极度轻视、瞧不起的样子的词语 为什么围护结构的传热阻与厚度成正比 会产生错觉吗?呼吸时,鼻粘膜感到发凉,此时会感觉嗅觉下降了,是感觉上的错觉吧.谁能帮我分析一下. 形容轻视小看的两个字词语 有关危害地球的原因八百里加急? 喜欢丹顶鹤的女孩是什么性格 形容不值得回头去看一看,形容很轻视.写词语 建筑物围护结构最小传热阻有何意义?怎样检验内表面是否结露? 仙鹤吃青蛙吗?无 谁知道形容轻视的诗词?请多写点, 今天12:40左右,太阳的四周出现了一圈光圈,里红,外青.这种自然现象是什么现象?是不是预示这什么? 丹顶鹤 性格 主动运输的实现需要哪些条件? 39岁女子当选日本年度美魔女 分享美女子坚持每天喝3升水 4周后外貌似年索契冬奥会召开在即 格鲁吉亚警告称别国际晚班车:中方严重关切美监听活动中国留学生救日本小学生感动日本 安倍外交部:外国驻华机构和人员不得从事危7国专家学者将聚首天津探讨东北亚和平王家瑞会见新西兰国家党代表团尼日尔沙漠一移民车抛锚 现场发现92律师称斯诺登将开始在俄罗斯某大型网站46名中国与印度非法采金者在加纳被捕律师称斯诺登将从11月起在俄大型网站美国曾要求日本修宪 欲促日帮忙越战奥巴马医改网站安全漏洞细节曝光 内测联合国计划成立预警机构 防范小行星撞俄罗斯称政府内部系统可防止领导人电话日本解密文件称日本曾希望拥有核武器 律师称斯诺登将开始在俄罗斯某大型网站中方严重关切美监听活动报道 要求美方英一座百年恐怖古宅 神秘红衣等了主人澳洲使馆被指替美监听亚洲 北京河内均2012彩票公益金20亿元分配给体育套牌的士仍跑得欢超女要帮快男唱游医私自手术,子宫穿孔险出人命国产片靠类型 进口片靠特效中国大陆三高校进百强创维获最佳上市企业50强白露时节应防露防燥本期看点名校配套促名盘热卖天天小贴士灰汤一夜“地铁物业”先走一步星城房贷一贷难求加拿大海岸警卫队科研破冰船载直升机坠动力煤期货亮相在即就是路上跑的少小号无敌有孝心就给父母买保险?音乐与设计结合设计师们玩乐弄潮我来当乡村小学教师
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘