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

运用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”中有各自数据源即可。
英特尔与腾讯创立游戏创新实验室 推进RealSense技术 《近匠》系列沙龙之探寻绝密武器:移动跨平台开发 iOS走向开放:苹果新推iAd Workbench广告服务 腾讯薛伟:快速模型更新在精准广告推荐中的应用 微软Build2014第一天要点精华汇总(组图) Windows 8.1 Update 1五大改变:任务栏回归,增强鼠标支持(图) 【十大院士】怀进鹏:全球的计算模式可能重新形成 微软Build2014第一天应了解的15件事 TypeScript1.0发布,完美支持Visual Studio系列产品 欲与Android展开价格战,微软宣布在移动设备上免费开放Windows 2014深圳英特尔信息技术峰会次日要点汇总 4月4日:微软39周岁,生日快乐! 正式进军硬件市场 Atlassian发布可穿戴设备Bitband 云计算时代IT专业人员需具备的10项技能 【走近院士】李德毅:大数据是连接虚拟和现实世界的桥梁 微软Build2014大会第二天干货总结 Microsoft Azure拥抱Puppet、Chef、MongoDB... 唏嘘不已!Brendan Eich上任Mozilla CEO仅十天即因歧视同性恋被迫辞职 最火HTML5 JavaScript游戏引擎:国外篇(一) Facebook发布PlanOut 开源部分A/B测试源码 一周消息树:6款Java转C#的最佳工具、Web开发者必备的9个软技能 对话“宙斯杯”获奖代表:依托京东云平台,打造精品电商CRM 关于微软开源WinJS,开发者必须知道的5件事 告别丑陋banner条,InMobi联合开发者尝试原生广告 免费游戏开发经验谈:第一印象很重要 《近匠》小旭音乐:游戏音乐金牌匠人的练级之路 日600亿消息,月4.65亿用户——WhatsApp的Erlang世界 一周热点:Cloudera新一轮融资总额已达9亿美元 【走近院士】李未:实现云服务的有效方法是群体软件工程 大神云集 大型创客聚会2014深圳Maker Faire盛大开幕 直击Maker Faire,将精彩“一网打尽”! 电池革命:超级充电器来袭,30秒为手机充满电 [HELP]辞职问题:杭州的GGJJ们来帮帮我 谁有windows 95的下载地址? ADO与本地数据库问题,看来是高难问题啊,怎么没人接招呢? tell me why??有关jdbc for sqlserver 2维数组按某一列进行排序,内详,求救? 关于在Oracle数据库服务器如何提供下载一个excel文件型的大对象到本地?十万火急!三根鸡毛! 怎样得到数据库里某字段里没出现过、而且还是最小的数字呢? 请问大家这种数据表怎样设计最好??? 关于ID3V2?请大家帮帮忙 <<VC技术内幕(第四版)>>中应用程序框架示例的程序要怎样才能运行? Win2K的远程访问出现身份验证问题 关于TMediaPlayer缩放,请您赐教 如何显示一个库中所有的表以及显示一个表的结构 能不能使自己画的一个图形,响应鼠标事件? 如何取得数据库某字段中从未出现过的、而且还是最小的数字呢? 关于终端服务器的打印问题!!!!在线等,解决立即给分 怎样才可以在WIN2000下隐藏你的程序 急,请问把一个控件上的内容拖到LISTVIEW1上时,在LISTVIEW1上的一个ITEM上释放,此时如何获得ITEM的caption??? .pdg 类型文件怎么打开? 大家不妨说说二层应用程序转向三层应用的一些经验以及注意事项 为何看不到网络邻居上其它计算机的共享文件夹? 请问大家这种数据表怎样设计最好??? 用listbox绑定数据库的某个字段后,如何通过点击取得相应的值 dbgrid中的mousedown事件怎么触发不了 系统日志的错误信息,谁给分析一下?分不够还可以加 tell me why??有关jdbc for sqlserver VC录音问题 内存分配问题! 我安装上.net后,运行一个asp.net程序,可是出现了下载index.aspx文件的对话框? 菜单总被下拉列表框盖住的问题? 有谁知道Base64编码的规定?十万火急!!! 如何用Filter来过滤时间呢!!! 菜单总被下拉列表框盖住的问题? 一个带变量的JS语句 如何使用jBrokerWeb来做Java Web Service win95下的DLL注册的问题。。。?????? 急!急!关于<form runat=server>的@@@@@ 请进~~~~~~~~~~~~~~(急。。。答出者高分相送) 一个AnsiString 和内存的问题。 极为特殊linux的组网问题!!! 大家都来看看这是为什么? 菜单总被下拉列表框盖住的问题? 请教:如何使用windows定义的打印机打印文件 我安装上.net后,运行一个asp.net程序,可是出现了下载index.aspx文件的对话框? 怎样读文件和写文件?3Q!! 有湖北宜昌去TOP面试了的吗? 火速求助 关于终端服务器的打印问题!!!!在线等,解决立即给分 jbuilder7+WebLogic7 的配置,各位帮忙看一下,急,在线等。 ATL组件注册问题,请指教,不胜感激 新手愚问:为什么我Tquery检索数据库中的数据时,它弹出“××is not a valid component name ”.其中××是所检索出来的值。 弹出确定后 快啦,中午就要用, 一种利用声音传播规律制成的探测装置安放在船上的控制室内,利用它就可以及时发现冰山或暗礁的存在的装置电影《泰坦尼克号》,描述的是1912年一艘名叫“泰坦尼克号”的大海轮跟冰山相 一篇很长的英语作文 不限题材 王昌龄的《从军行》作者提到了三个地名,分别是~ 利用超声波探测海中的冰山和暗礁的装置的名称,和它的原理 求英语作文一篇,题材不限,60词左右 大家帮忙找找王昌龄的所有,和其表达的情感. 科学家利用超声波的传播规律发明了一种探测装置.把这种装置安装在船上,船员能及时发现暗礁.超声波在海水中的传播速度是1500米/秒,某船向海底发出超声波,经1秒后接收到返回的超声波,求 求那件小事激励着我作文题材要新颖, 把《天净沙·秋思》改成50字左右的散文50~150字散文! 2010语文期末试卷高一阅读 草木之情 韩少功 力求一篇英语作文80字的,题材不限 登山人中无所畏惧是什么意思 王昌龄的《从军行》其二琵琶起舞换新声,总是关山旧别情.撩乱边愁听不尽,高高秋月照长城.本诗第三句中“听不尽”三字在情感的表达上最富有表现力,请做简要分析.网上的解析看过了,希望 《从军行》表达了作者怎样的思想感情? 请问一个男人约女人晚上去爬山,是什么意思?表面说是还有其他朋友,但大家说这个男人就真的没什么目的吗? 从军行(其四) 王昌龄写了怎样的景?有什么作用? 李白的《从军行》表达了怎样的思想感情?就一句话 不要发一大段 赏析什么的网上都有 只发思想感情 登山人 文中哪句话最深刻?你是怎样理解这句话的 从军行 从军行的解释.这首诗是:烽火城西百尺楼,黄昏独坐海风秋.更吹羌笛关山月,无那金闺万里愁.(30-40分) 从军行4表达作者怎样的思想感情 五四新文化运动中发表文章要求用白话文代替文言文的是谁 A;胡适 B;鲁迅 C;陈独秀我知道鲁迅曾在新青年上连载过白话文的 狂人日记还是 阿Q正传,但不太确定BC选项 父子情作文600字不要文言文 王昌龄的《从军行》(其四)表达了她怎样的思想感情? 在山的那边里面,爬上山顶有什么象征意义 作者真的听到海在喧腾吗?这反映了作者怎样的心理?急 量词 是什么?湖山星星用哪个量词描下面的词的数量湖山星星 分析《从军行》中作者所表达的思想感情 从军行这首诗表达了诗人什么样的思想感情? 一个关于父子情的作文 江苏版 《在山的那边》作者是谁? cc作为量词是什么意思? 急! 写一篇关于"如何理解马克思主义的中国化以及中国化的马克思主义"的见解文章,字数400字左右谢谢了啦,急啊 在山的那边里面,攀爬上山顶有什么象征意义 急 过了极限就是机械是什么意思,是说人运动吗? 《真诚的谢谢你》作文 200字左右 古诗《从军行》古诗的完整意思要写好,作者、每句的意思也要,而且要王昌龄.(快、、) 为什么说 要想生活过得去 头上就得顶点绿啊?意思是不是说这个社会不戴绿帽子的人 就out了? “满纸荒唐言”这句话的的诗名是谁 从军行的 古诗 他的事迹表明,人是可以向命运挑战的.(改为双重否定句)我不会改. 用历尽磨难的诗句造一段话 从军行 古诗 从军行其四 隆中对中诸葛亮给刘备提出了怎样的战略方针三个空 怎么发表文章? 从军行 其二王昌龄琵琶起舞换新声,总是关山旧别情.撩乱边愁听不尽,高高秋月照长城.一、二两句中的“新”和“旧”是否矛盾?请简要回答高高秋月照长城.这句景物描写有何作用? 仿写句子:初一下册语文书第一课得第二段,不少于100字,要有不必说……也不必说……单是……这几个关键词 我怎么在这上面发表文章? 从军行翻译 从军行其4 王昌龄 主题 哪位能帮帮奥运在我心中作文怎么写啊 从军行有几首? 从军行主要内容用几句话概括内容 《父子情》舒乙 文章是通过那几件事来表现父子情的?1.作者的父亲是个怎样的人?用原文语句概括.2.文章第六段主要运用了什么描写?有何作用?3.结尾为什么说“我很悲伤,也很幸运. 初一下册语文第一课,你是如何看待三味书屋的? 什么叫做联合国?是一个国家 还是地区?别怪我没水平 没文化 这就是不读书的下场我承认我后悔过 急需一篇名为“父子情”的作文~ 从军行 其]四 联合国的会微有什么意思
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘