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

运用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”中有各自数据源即可。
HashSet的equals和hashCode重写问题 PendingIntent实现原理和代码 IntentService实现原理及内部代码 AsyncTask实现原理和内部代码 Neither user nor current process错误 ListView的右边滚动滑块启用方法 Live Wallpaper动态壁纸开发 控制软键盘显示和隐藏 设置Activity大小不再全屏原理 Android面试题,看看你基础如何? Android Canvas绘图抗锯齿解决方法 Android xliff和字符串资源 android.hardware.USB类介绍 Android开发经验谈之应用间数据共享 android_asset这个URL详细使用方法 Android 2.3系统自带高清UI图标下载 设置ScrollView滚动条的颜色 WakeLock使用方法示例代码 Concurrent并发库常见问题总结 Android数据库SQLite性能优化技巧 Android开发之Java设计模式基础篇 Android开发之Java设计模式入门篇 Android开发之Java设计模式 Android开发之Java并发包集合类性能分析 Android开发之Java集合类性能分析 Android开发之Java虚拟机原理和内存分配 Android开发之Java基础系列教程目录 Android Theme主题样式开发注意点 Android 3.0开发用的平板推荐 android.resource://这个Uri你知道吗 ADT插件的10.0.1必须要Eclipse 3.5才能升级 唉,弄了好几天了,如何解决?????????????? 请问哪里有免费的PHP+MYSQL主页空间呀! 大家快来帮忙:数据库的一个小问题 我现在想学一门新技术,不知道是学VC++,JAVA,还是刚刚出来的。NET技术呢?请高手指点呀。 高分征解:一个动态提示窗口的问题,给出答案必定给分!!!求救我啊!! 在这里赚分真不容易呀! 怎样检查FORM中CHECKBOX和RADIO的值呢 那里有在asp中操作word对象的详细教程? 请问:如何得到TForm的窗口句柄? authorware中的按钮。 哪里有发送mail成功的php程序!! 关于上传数据的一个特殊问题,有点难 怎么用OLE实现与手机的通讯?? 汉语分词算法 grid显示问题 成为Delphi高手须看哪方面的书籍,请高高手指教? 关于属性页的小问题? 为水园增加点正气: 大家都是斯文人吗,呵呵||||| 诗经国风2001版----之桃夭 高手高手教教我 +++++++++++++一个很奇怪的问题************* 请问:有没有专门介绍C++函数使用的书籍? 提個有點難度的問題.看問題的有獎. 高手请看:这语句错在哪? 哪儿有dos的原代码? 谁能平息这几天水园的争端^^^^^^^^^^一个详和的水园^^^^^^^^^^^我只能拿分支持 为何显示黑乎乎的一片,chick!!!!!!! 原来女人也好色,欢迎MM。 心芯蕊~来拿分~~~~MM要分能不给吗??砸锅卖铁也要给啊!~~~~55555,可怜我的分啊~~~~~~~~~~~ 着急??一小段代码!!谁来看一下?? 男子汉说到做到,我在此特地向一位女士道歉 高分求救!急急! ! ! ! 奇怪,编译DIRECTX例子正常,新建一工程后改写主文件后运行BltFast函数为何这样? 急求高人!不简单:关于common dialogbox控件的问题? 怎样学可视化编程? 用Jmail收信后,为什么WORD之类的附件打开总是乱码?? 请问如何使用BCB中的PageControl创建Wizard? 别人跟的帖子也应该能回复呀! Rational Rose2000 Enterprise Edition的License Key是什么? 哪位好兄弟肯给我一个Jbuilder4的序列号? 就有两个月了,还没怎么看书,不知道能不能过高程!!! -------我和我MM系列(转)几乎是完全版 有MM和没MM的都来看看吧 当然MM也可以看~~ 建议:在此开设一个程序之家聊天室。 请教一个简单问题!! 请问各位:如何显示GIF图像??? 最近水园很没劲,看样子是要离开的时候了,虽然我来的时间不是很长。唉,为什么会这样? 这几天晚上我都会在263战网 谁能 提供超大空间 用于上传PB80光盘 月末,大富翁银行将作月结,如果跟本银行还有业务关系,速来通知 用ado怎么连接excel文件,不用odbc行吗? 软驱自动保存是怎么一回事情 请问各位大虾,在VB中,怎样才能改变PictureBox或Imagebox的形状,让它可以容纳圆形的图片.或者用其它方法实现对不规则图片的操作.比如我编了个网络象棋程序,怎样用一个PictureBox来容纳一个圆形的棋子. KClO3受热分解用氧化还原的思路配平它. k2cr2o7+naoh 颜色为什么不发生明显变化 _K2Cr2O7+_H2SO4+_FeSO4=>_Fe2(SO4)3+_K2SO4+_Cr2(SO4)3+_H2O 加热氯酸钾和二氧化锰混和物的化学式 h2so4环境下,k2cr2o7氧化h2o2颜色变化过程我做实验时逐滴加入H2O2,溶液先变暗绿色,渐变成亮绿色.应该是三价铬吧?为什么会不同颜色? C+K2Cr2O7+H2SO4 ------ CO2+Cr2(SO4)3+K2SO4+H2O 配平 加热氯酸钾和二氧化锰混合物出来的是什么? 为什么K2Cr2O7,KMnO4颜色比CuSO4,FeCl3等深得多?(K2MnO4的灰绿色颜色也很深,但经不起稀释会歧化)我一浴缸水加了几粒KMnO4(不超过0.1g)结果整浴缸水都变成紫红色了K2Cr2O7,差一点,但稀释10000倍还有 K2Cr2O7+ H2C2O4+ H2SO4 — K2SO4+ Cr2(SO4)3+ CO2+ H2O 氯酸钾和二氧化锰混合加热支取氧气的化学式那个加热还有二氧化锰不是要写在等号上面吗? K2Cr2O7+Na2SO3生成什么 K2CR2O7在反应中得电子怎么算啊详细点 K2Cr2O7+H2C2O7+H2SO4-----K2SO4+Cr2(SO4)3+CO2+H2O求高手配平...小弟拜谢...最好带过程... KCLO3和MnO2的反应化学式 K2Cr2O7怎么读?有奖征询,奖积分,走过看过,不要错过望各位大侠,助小女一臂之力,大恩大德,没齿难忘 Cr,K2Cr2O7,Cr2(SO4)3,CrCl2,Cr2O3,ZnCrO4这六种物质中铬元素显化合价的有哪些?请说明理由, kclO3是什么的化学式 化学问题K2Cr2O7读什么?2和7都是下标 与K2Cr2O7的Cr的化合价相同的氯化物的化学式是什么 KClO3 Kmn2O4是什么的化学式 高中化学.k2cr2o7怎么念?了 KMnO4求化合价Mn H2O2、O3、SO2、HClO中漂白品红原理与其余三种不同的是 化学方程式配平:()K2Cr2O7+()Fe3O4+()H2SO4 与K2CR2O7中的CR的化合价相同的氧化物化学式 Cl2,ClO2,O3,H2O2中氧化性最强的是咋算的呢?( ⊙o⊙ K2Cr2O7+H2SO4+(NH)2Fe(SO4)2-->请帮忙完成反应方程式并配平 如SO4 CO3 NO3 PO4 CLO3 SO3 这类是否有方法记忆其化合价 背了好久还没背出举个例子就行如SO4如何记忆 Cl2,O3,H2O2的氧化性比较RT,并且如果要是夹在常见的氧化物里面,如何加进去? 配平K2Cr2O7+KI+H2SO4---K2SO4+I2+Cr2(SO4)3+H2OK2Cr2O7+KI+H2SO4---K2SO4+I2+Cr2(SO4)3+H2O OH,NO3 NH4 SO4 CO3 PO4 MnO4 ClO3 是什麼根?我只知道 MnO4 是锰酸根. 过氧化钠、过氧化氢、NaClO、HClO、ClO2、SO2、O3、活性炭等物质与漂白粉的漂白原 配平 k2cr2o7 + ki + h2so4---k2so4+ cr2(so4)3+ i2+ h2o 某透明的溶液,其中只可能含有大量的K+,Cu2+,OH-,SO3 2-,Cl-,CO3 2-,HCO3 -,MnO4 -,SO4 2-①测定溶液的pH,溶液显强碱性;②取少量溶液加入稀盐酸至溶液呈酸性,产生无刺激性、能使澄清石灰水变浑浊的气 HCLO氧化性强于HCLO4,怎么讲呢? 要配制浓度为0.02mol/L的K2Cr2O7溶液1L,应准确称取K2Cr2O7基准物多少克?(K=39.1,Cr=52.0,O=16)请写出计算过程. 写出下列元素及原子团的化合价 H,K,NA,Ag,O,Ca,Ba,Mg,Zn,Al,OH,SO4,CO3,NO3,NH4,PO4 氯酸钾(KCLO3)在二氧化锰催化剂并加热的条件下能较快的分解生成氯化钾和氧气,试写出化学反应方程式要得到8g氧气,需分解氯酸钾多少克? HClO4和HNO3 反应?方程式有不? 例:如K2Cr2O7标准溶液浓度为0.02150mol/L,问TFe/K2Cr2O7=?g/mL?TFe/K2Cr2O7=0.007192g/mL谁能告诉我怎么解的么. 科学兴趣小组学习了二氧化锰(MnO2)催化分解过氧化氢的实验后,进行如下实验.(一)选择装置并检查气密性.(二)称取0.1克的二氧化锰粉末加入容器中.(三)量取50毫升溶质质量分数 为什么HClO的氧化性比HClO4强 怎样将0.1000的硫代硫酸钠标准溶液稀释成0.01 mol/L这是书上的解释硫代硫酸钠标准滴定液:c(Na2S2O3)=0.01mol/L。移取1000mL刚标定过的硫代硫酸钠标准溶液0.1000mol/L于100mL棕色容量瓶中,用水稀 只有MnO2才能对过氧化氢的分解起到催化作用吗? 用化学方程式证明KMnO4氧化性比MnO2强 若用a、b、c分别表示有理数a、b、c,0为原点如图所示.已知a H2O2被FeCl3,CuO,MnO2催化原理并说明哪些物质能做催化剂为什么要化学方程式还有CuSO4 为什么Cr2O7-的氧化性大于SO2能说明 K2Cr2O7能将Na2DO3氧化成Na2SO4? K2Cr2O7中的Cr的化合价怎么求? MnO2催化H2O2我猜的是MnO2+H2O2=H2MnO4.2H2MnO4=2MnO2↓+2H2O+O2↑纯属猜测...呵呵..我是根据高锰酸不稳定猜的...不对的话请指教下....我想知道的是MnO2催化H2O2分解的机理... 如何证明一个物质的氧化性比另一个的强?如何证明一个物质的氧化性(或还原性)比另一个物质的强?还有在酸性或碱性条件下.(可以举例)还有什么是极性键和非级性键?怎么区分? 重铬酸钾(K2Cr2O7)中铬元素(Cr)的化合价明天就要考试了... h2o2用MnO2催化分解是否需要加热? k2cr2o7与k2cro4的氧化性谁强? K2Cr2O7 铬元素的化合价是多少 求得KCLO3的分解率想探究是否只有MnO2能催化KClO3受热分解?CuO、Fe2O3、Cr2O3等对氯酸钾的受热分解有没有催化作用?已知投入氯酸钾为0.6克,投入氧化铜作催化剂,产生气体为67.2ml(已折算为标况) 求 试比较KMNO4,MNO2,O2氧化性如何进行比较的呢 12个Na2So3恰好与4个K2Cr2O7完全反应,则元素Cr在被还原的产物中的化合价为 KCLO3的分解百分率是什么意思 k2cr2o7加硫酸颜色变 化学方程式配平K2Cr2O7+C+H2SO4→Cr2(SO4)3+K2SO4+CO2+H2OCr从+6→+3,C从0→+4 ,如果按照最小公倍数K2Cr2O7前面是4,C前面是3啊,为什么K2Cr2O7前面是2呢?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn