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

运用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”中有各自数据源即可。
Delphi3.0中复活节彩蛋及实现 Delphi数据库应用程序开发中图像数据的存取技巧 DELPHI图形编辑技巧二则 DELPHI显示JPEG图像文件 Delphi中CANVAS使用三例 Delphi中的图形显示技巧 DELPHI中画布应用技巧 Delphi中控件深度投影及阴影效果的实现 DELPHI中利用对象的常用属性制作动画 Form生成时的事件次序-Delphi资料 LED数码管仿真显示程序-Delphi资料 TPaintBox与TImage的比较-Delphi资料 WINDOWS基于调色板的图像消隐-Delphi资料 改变图片效果-Delphi资料 改造HINT的输出方式-Delphi资料 基于Delphi的图像漫游 将BMP放入Paradox的BLOB的字段中-Delphi资料 界面色彩渐变效果的实现-Delphi资料 如何查阅可视窗口标题-Delphi资料 如何得到Timage控件的DC-Delphi资料 如何关闭一个MDI子窗口-Delphi资料 如何检测鼠标击了哪一个对象-Delphi资料 如何将鼠标锁定在固定范围内-Delphi资料 如何使你的窗口Stay on Top-Delphi资料 如何在ListView控件中绘底图-Delphi资料 如何在屏幕上移动Image图象-Delphi资料 软件中复活节彩蛋的实现-Delphi资料 实现图象局部放大的原理和方法-Delphi资料 使用Delphi实现滚动式面板窗口 通用的MsgBox-Delphi资料 图象放大镜——实现图象局部放大的原理和方法-Delphi资料 怎样让对话框总在最前? 今天一个女孩脸红的对我说声谢谢 为什么dll调试跟踪不进去 菜鸟提问:请解释一下.vbs好吗?里面可以放那些东西,怎么引用.......等等 Delphi 2 BCB的问题:BCB中的"::", ".","->"有什么区别? *.idc不能运行了,请问这是为什么?谢谢 简单的数据库问题 CFileDialog()函数的参数问题????? php ed3.0 为什么不好使 大散分,快来答,答者有分! access 表中的datetime型字段在delphi中如何使用? 有谁看过《Visual C#.NET开发实践》?? 怎样改变按钮标题的颜色? 请大家帮忙测试一下这段winsocket代码,为什么接受不到字符串 数据库问题 如何理解COM中的自动化?跟贴有分!!! 怎么样才能实现对音量的控制,最好能达到有下脚喇叭的功能 phpmyadmin之前的密码认真是怎么回事呀(配置问题) 谁能帮忙介绍工作? 请介绍几个现在还提供免费个人主页的地方 IIS运行起来后,不能访问http://localhost是什么原因? 谁能帮忙介绍工作? 关于控件数组 急需收发文系统的完整代码,谢谢! 我想用VB写一个com分页读出tif中的多幅图像,请高手指点! 请教sql查询 情介绍一个数据库编程的好书! 请教:JBuilder中要调用MapXtreme 的bean,怎么搞,定给分 为什么TOP不能限制数据集的数目???见者有分!!! 找高手解决问题!! sql 2000的一个存储过程,有些问题, 谁能帮忙介绍工作? golive6,如何解决中文问题???在源码中无法显示中文,如何解决??? 请看看这两条代码是否一样? 寻---陈建春之<visual C++高级编程技术---开发实例剖析> 想学学UML…… 现在工作好烦!!!!!! 关于combobox很简单的问题 各位大夏,我用JBUILDER做EJB时已经编译了,可是为什么那个TOOL菜单里面的EJB DEPLOYMENT子菜单是灰的啊?也就是我怎么生成部署描述设置 教材 谁看了《我的野蛮女友了》,是不是和《不见不散》有点像阿 怎样定义自己的消息? 菜鸟问题:有关vs7.0与vs6.0的Session传递问题.(来者有分) 如何改变窗口的图标? 都有哪些方法? 报表的格式化问题? 英文win 2000 +英文IIS 联接 中文win 2000 +中文Sql Server 出现乱码的问题,在线等待 哪位有realplayer 8.0的序列号?是否可告知小妹:) 各位大侠,我想把网站的部分链接放到局域网的其他机子上,需要怎么设置 我要租房(深圳华侨城附近,1000元之内,30分钟车程之内) 请教各位,系统如何自动获取编号 转贴:回忆最有人缘的28个电视人物(1) 买6,5千克豆角付出20元找回1,8元没千克豆角多少元 坚强作文的开头怎样写 修建一个直径是10米得圆形花坛,在花坛的周边上每隔1米在一棵花,最多可以在多少棵?在这个花坛里种上绿草,中绿草的面积是多少 在一个直径40米的圆形花坛边每离5米种一棵树,一共种了几棵? 数学必修2几何体积表面积三视图计算画下立体几何图 修建一个直径是10米的圆形花坛,在花坛的周边每隔1米栽一棵花,最少可以栽多少棵?在这个花坛里种上绿草种绿草的面积是多少 修建一个直径是的10米的圆形花坛,在花坛的周边每隔1米栽一棵花,最多可以栽多少棵?在这个花坛里种上绿草,种绿草的面积多少?园林处买来菊花,一串红和海棠花,它们的数量情况如下表所示: 门 女 宝盖头口黑 石白分,连,查、录、土、于、市、眉、皿、水.怎样写?(连线助词)把莲子前面的连后面的寨主尘字 某天,一蔬菜经营户用120元钱从素菜批发市场批了西红柿和豆角共80㎏到菜市场去卖,西红柿和豆角这天的批发与零售价如下表 品名 西红柿 豆角批发价(单位:元/㎏) 1.2 1.6 零售价(单位: 修建一个直径是10米的圆形花坛,在花坛的周边每隔1米在一棵花,最多可以栽多少棵花? 急需一篇以“聚会月球”为题的作文!300字以上...谢谢! 观察平面镜成像,你会发现像与物体的大小是( ).当你远离平面镜时,像会( )平面镜. 关于月亮的作文300到500字就是看到月亮想到什么,有什么感受== 注意是300到500字, 蔬菜经营户用60元从批发市场批了西红柿和豆角共40千克,到菜市场去买,西红柿的批发价是1.2元\千克,零售价为1.8元\千克,豆角的批发价为1.6元\千克,零售价为2.5元\千克,问他当天买完这些东西 8千克豆角、9千克西红柿共值16.8元,9千克豆角、8千克西红柿共值17.2元,求豆角和西红柿单价个是多少式子 我们就应该怎样布置教室 某天,一蔬菜经营户用60元钱从蔬菜批发市场批了西红柿和豆角共40kg,到菜市场去卖,西红柿和豆角这天的批发到菜市场去卖,西红柿和豆角这天的批发价与零售价如下表所示.问:他当天卖完这 某天,一蔬菜经营户用144元从蔬菜批发市场购进西红柿和豆角共100千克(用二元一次方程解,具体解题过程)某天,一蔬菜经营户用144元从蔬菜批发市场购进西红柿和豆角共100千克,到菜市场出售 家长如何布置教室的 在一个圆形花坛的四周每隔1.57米种1棵小树,共种了50棵小树,这个圆形花坛的面积是多少平方米? 元旦节布置教室,我想自制一些既简单又环保的,东东, 到菜园劳动,摘黄瓜460千克,比摘的豆角重量的3倍少千克,豆角?千克(请简写理由)…少14千克.不好意思,漏了. 在一个圆形花坛的周围修一条甬路,路宽1米,花坛的周长是125.6米,这 国庆见闻作文300字 参加数学建模竞赛要有什么基础知识? 关于平面镜成像,下列说法中正确的是:()A平面镜所成的像一定是虚像B比平面镜大的物不能在平面镜中成完整的像C在平面镜后的物体会挡住物体的像D平面镜可成虚像也可成实像 数学建模要学些什么东西 急!同学们到菜园劳动,摘黄瓜的重量比豆角的3倍少20千克.豆角比黄瓜少160千克.摘豆角多少千克?列方程 关于平面镜成像,下列说法正确的是( ) A.本身不发光的物体在平面镜中不能成像 B.物体通过平面镜(不借关于平面镜成像,下列说法正确的是( ) A.本身不发光的物体在平面镜中不能成像 B. 求一篇国庆见闻文章!300字 数学建模具体要学会什么基本的知识 关于平面镜成像,下列说法中正确的是() A 平面镜中的像是····关于平面镜成像,下列说法中正确的是() A 平面镜中的像是实际光线形成的,可以用光屏接到B比平面镜大的物体不能在镜中成完整 五年级上册语文第七单元作文(读后感)(最好是红楼梦的)我十一岁 写得好加十分最好是红楼梦的 同学们到菜园劳动,摘黄瓜的重量比豆角的3倍少20千克.豆角比黄瓜少160千克.摘豆角多少千克?急 关于平面镜成像,下列说法正确的是A.物体越大,所成的像越大B.物体越小,所成的像越大C.物体离平面镜越近,所成的像越大D.平面镜越哒,所成的像越大 初三办新年联欢会,布置教室要有点创意,都买那些东西啊?大约要多少钱? 同学们到菜园劳动,摘黄瓜460千克,比摘豆角的3倍少14千克.摘豆角多少千克? 圆柱的表面积为S,当圆柱体积最大时,圆柱的高为()答案是根号6πs/3π 星期天,妈妈去菜场买了2.1千克的豇豆,每千克6.46元.买豇豆需要付多少钱? 做数学建模需要哪些方面的知识? 语文北大清华校园草坪上的温馨提示语烦告诉 作文 家乡的冬至 250字左右 数学建模要做哪些准备,基础的知识要那些,请具体点数值分析 需要看看吗?对“相关的数学知识必须很熟悉” 具体是那些啊? 爱护花草树木的温馨提示 “冬至”作文不少于400字别有费话(限大家1~2天交) 需《挫折伴我成长》的中学作文 石家庄哪里有买草坪温馨提示牌的石家庄哪里有买草坪上面装的温馨提示牌?如果知道更清楚的话,希望把提示牌的材料以及价格报一下.急. 关于冬至的四百字以上作文 要自己写的 差不多就行 初中挫折作文 仿写:校园草坪边广告牌上写有一则温馨提示:“柔弱小草,何忍践踏?”请你模仿这则提示,为防止向莲花池乱丢垃圾拟写一句话. 冬至作文 1000字关于冬至的由来,那天发生的故事,需1000字作文 作文 作文 急需有关“挫折”的中学作文有关挫折的作文,600字以内,最好是记叙文,质量要好, 温馨提示语 草坪中的下一句是什么 我们能在平面镜中看到物体___立______大的_____像,这是由光的_______现象形成的. 高中作文--挫折以大人口吻来写的,不涉及身边人和事 一个直径是10米的圆形花坛,花坛周边每隔1米载一科花,最多可以载几科?花坛里种上草,草的面积是多少? 数学建模大赛需要哪些预备知识? 跟挫折有关作文(高中)要现实一点的,不要那种很深奥的文字.800字左右.很急~~明天早上10点前.不要给我那种高考作文,更不要很多作文书都有的. 一个直径是10米的圆形花坛,在花坛的周边每隔1米栽一棵花,最多栽多少棵?这个花坛里种上绿草,面积多少? 3.大圆形花坛的直径为15米,在它的圆周上隔了30厘米种上一棵冬青树,一共种了几棵
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘