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

运用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”中有各自数据源即可。
CES 2014:GPS供应商Garmin推健康腕带Vivofit 《近匠》第05期:移动开发工具访谈,个推——有节操的push 【Hadoop技术博客推荐】Hive的那些事 Twitter联合创始人推社交搜索应用Jelly 马云“食言”进军手游分成比例8:2,开发者可拿7成 CodeCombat游戏全面开源:玩游戏也能学编程 Netflix首席云架构师Adrian Cockcroft加盟Battery Ventures Android 4.3附体:RIBX发布FB/Ti 互联网手表 IE11界面布局的秘密武器:Quero Toolbar 【开源专访】Node-Webkit作者王文睿:桌面应用的全新开发方式 CentOS归属红帽:企业级Linux领域社区与商业的融合 印度初创公司Little Eye Labs证实已被Facebook收购 雅虎收购Aviate:重在提升用户体验 SDN领域硝烟再起,Oracle将Corente收入囊中 Hadoop科普文——常见的45个问题解答 CES 2014:奥迪下一代汽车将采用NVIDIA的芯片! Cocos 3.0 Beta发布:更易用、更友好 开拓新兴市场?诺基亚或推Android手机,UI界面遭泄露 预测2014大数据值得关注的8个发展方向 霸主地位再临挑战?Salesforce CEO,我们不只有Oracle LBS应用新星、“司机好助手”微车借力移动互联网,志在打造车主的个人移动门户 新一代IDE Light Table开源:让编程工作更简单 图片应用也能高大上,看Cooliris如何玩转无人机 拥抱Spark,机遇无限——Spark Summit 2013精彩回顾 1月10日:改变世界的iPhone七岁了,你是传奇! 同洲电子推出首款手机操作系统960OS 免费授权使用 如何在Windows 8.1的IE11中打开同步选项卡? 25年老对手评价微软:换CEO可行,但是太迟了 【PPT集萃】十位一线专家分享Spark现状与未来(三) 万元奖品等你拿!2014创客118新年大Party! Firefox OS的2013回顾和2014展望 enhydra4.0+jbuilder4.0+kelp4.0. 类型不匹配? 请教各位高手关于对象序列化的问题! 现在很急切,多谢各位!-- 请问这条select语句(包含compute)的结果如何显示在屏幕上? cn类型不匹配? 请问高手: 如何在VB.NET中调用象GetObject那样的函数 300分!!急急急!!各位大虾有提供关于报表的控件带源码的 请问各位大侠,怎么用批处理的方式开启一个后台服务程序? 如何对access文件加密!!!! 再次送分:如何求一个已打开ADO记录集中当前记录的行号或索引? 急!急!在用户界面线程中,如何接收其它窗口发送的消息? 我的toolbar潜入一个对话筐怎么是灰的???? :)请问:网上能不能找到破解了的Pro-e2000(中文版)啊? 关于退格键! java与C的问题,怎么办? VC里如何调用std里的operator new和operator delete 有沒辦法使成員函數只供指定的 class 呼叫! 关于DELPHI中的DBGRID控件 关于enhydra4.0+kelp4.0+jbuilder4.0。 能不能用Mscomm控制并口,如果行,应该怎样将一串ASCII值发送到并口;如果不行,能用其它方式吗?(最好能提供例程)多谢了。 求救,请教ado中有关事务的问题。 异想天开的问题???,进来就给分!!!! 请教高手,我如何将*.swf文件从网下摘下? 集线器与交换机怎样级联? 请问如何用RasDial 类似冰河“搜索主机”的功能怎么实现啊? 如何利用socket截获80端口数据?请给出源代码。 水晶报表的问题 Help的窗口 送分:关于数据库中的数据在前台显示的问题,敬请高手指教 请问一下各位PB FANS,PB中的自定义事件中的extenal选项有何作用? Label的小问题,以后给分,现在确实没分了。 测试a 有沒辦法使成員函數只供指定的 class 呼叫! 请问如何给listview添加鼠标拖拽功能,如从本视图中拖走一行? Jbuild and Visual Age for Java 只使用数据库表单如何不带环境? 为什么在Cmd.exe 下可以运行,但是在ASP里面却没有办法写进数据???斑竹怎么只提供4页的讨论内容呢?? 救急,启动winNT时候inetinfo.exe总是共享冲突,该咋解决? 如何防止内存泄漏 帮忙看诊断一下遇到的问题。 Fatal error C1010: unexpected end of file while looking for precompiled header directive是什么意思?怎么改正? 关于数据窗口 D3D8的疑問 作动态连接库链接时出错? rLabel的小问题,以后给分. WebSphere 4.0中是否已经直接实现了connection pool CSDN的bug报告:您不能给自己加分...... ORACLE里的中文字符集怎么解决?高分求救!!! 身为一个程序员,谈谈这些年里你所拥有的成功经历!见识一下CSDN牛人总汇! 这是怎么回事呀? 食品干燥剂遇水真的会爆炸吗 在化学实验室,主要是要跟三氯,甲醇,苯这些化学物质,我想知道,带个什么样的防毒面具能把这些都防了哪位朋友要是知到,最好能给推荐下, 浓硫酸可将亚铁离子氧化为铁离子吗? 各价态的铬离子的颜色及化学式是?求可靠回答. 哪两种无色液体混合会生成有色的?液体是没有毒的哦! 一道化学基本实验操作题若用镊子直接将固体药品投入试管,会有什么后果? 求各个价态的铬的化合物或离子的颜色例如(Cr2O7)2- 为橙色等等越多越好,谢过了 急:无色变有色的液体有没有,对人体无害并且无色无味的液体?当我加入别的什么东西时,它会变色?我想用这种液体,写一些别人看不到的字.当我想看时,用别的什么东西一擦,字迹就会呈现出来. 被氧化的铁与稀硫酸反应的化学方程式?急用 二价铬是什么颜色 三价铬与六价铬有什么区别 亚铁离子如何被氧化为铁离子?写出一个化学方程式. 铬酸根离子什么颜色 化学试验操作视频那里有?1.自制过滤器10毫升粗食盐水 2.众核反应试验 3.探究溶解过程中的吸热预防热现象 4.二氧化碳的制备 5.配置60克5%的氯化钠容液 6.氧化铜与硫酸反应 三氧化硫与磷的化学反应方程式能反应的话...化学方程式写下.(要配平的) 干燥剂和水的反应.急用! 科技创新创意方案 化学中颜色反应的实验操作过程是什么?说一下实验流程即可打错啦是焰色反应 向下排空气法的适用条件除了对气体密度有要求外,对试验装置是否也有要求?是不是只有如图的装置才能用?如果把如图装置旋转180°,是不是就不能用向下排空气法了? 求一个初中物理创新实验方案 实验操作有错吗? 三、初中化学:提出实验方案?设计一个实验,能通过清晰可见的现象,除去氯化钙溶液中的少量稀盐酸,请写出实验操作过程、现象和结论? 水发电是什么原理?无色无味,还可以喝,红色液体不会导电,手摸了也没事.大哥大姐们,帮一下,解答一下. 以下说法中能证明无色透明液体是纯净水的是A.测得该液体pH=7B.电解该液体得到氢气和氧气,且其体积比为2:1C.向其中投入金属钠,钠于液面上迅速游动,并发出丝丝声D.在l.0l×105Pa压强下 如何针对初中化学总复习制定方案? 请问水是无色无味液体这句话对吗? 下列实验操作正确的是A.不慎将浓硫酸粘到皮肤上,立即用大量的水冲洗B.在食盐溶液蒸发结晶的过程中,当蒸发皿中出现较多固体时即停止加热C.先在天平托盘上放一张洁净的纸,再把氢氧化钠 盐酸可以用来分离三价铁离子和铝离子么? 水在常温下是无色无味的液体 水分子是无色透明液体RT 为什么铁与盐酸反应生成二价铁,铝与盐酸反应却生成三价铝?不是具有强氧化性,才能从零价氧化成三价? 水是一种无色无味的液体,水还有什么性质?(1条就够) 水是无色透明液体,水分子也是无色透明液体.这句话对吗?为什么 三价铝离子与水反应的方程式 为什么水是无色无味透明的液体?一种固体物质既不吸收也不散射光,那么这种物质看起来就是透明的.纯硅对光具有极强的吸收力:这是因为纯硅中的电子吸收了可见光而实现了能级跃迁.固体 三价铬在pH等于多少时开始生成氢氧化铬沉淀? 什么和什么离子对铝片和盐酸反应无影响 什么是六抓六防 三价的铬离子水解的PH是多少? 干燥剂遇水多长时间爆炸 三价铬离子有何特征反应请问如何检验溶液中是否含有三价铬离子,(万分火急) 使三价铬完全沉淀的最低PH值多少? 初中化学 这几个都要 化学实验室为什么用棕色瓶防光照而不用其他的颜色? 化学试验操作的注意事项---急急急!过滤水的实验 正一价钠离子和负三价的氮离子谁的半径大 怎样定性检验三价铬离子?要用什么试剂? 下列实验操作或对实验事实叙述正确的是(化学)(1)下列实验操作或对实验事实叙述正确的是① 用稀硝酸清洗做过银镜反应实验的试管;② 配制浓硫酸和浓硝酸的混合酸时,将浓硫酸沿器 初中化学,谢谢谢谢谢谢 为什么化学实验室防倒吸用四氯化碳和水是不是四氯化碳吧气体吸收了? 下列实验操作中错误的是( ) 下列实验操作中错误的是( )A.蒸发操作时,应使混合物中的水分完全蒸干后,才能停止加热B.蒸馏操作时,应使温度计水银球靠近蒸馏烧瓶的支管口处C.分液 钠离子与氮离子哪个半径大 求问怎样定性检验三价铬离子?要用什么试剂? 铁氰化钾中的三价铁离子能氧化金属单质钴吗 氮离子有哪些价态 狮王陶瓷的u+六防瓷砖是什么意思 三价铁离子加什么可变成铁单质 "Na3N中钠离子与氮离子半径相等"为什么错 如何检验铬离子?铬及其它含铬的物质是什么颜色? 三价铁离子如何到铁单质?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn