MS SQL7.0的数据迁移到MySQL上的一种方法

tznktg · 发表于 2008-11-3 15:30:45

想必大家都很喜欢用Word打字，用Excel进行计算和规划，用PowerPoint作幻灯片进行展示…，但是这只用到了Office系列产品的很少的一部分功能。据调查，绝大部分用户只用到了Office产品的20%的功能，很少有人注意到Visual Basic for Application。实际上，熟悉掌握VBA的功能可以使你的工作事半功倍，尤其对会计、金融等专业来说，作出一套好的宏，几乎可以作到一劳永逸！最近，AutoCAD中也加入了VBA的功能，这不能不说这是一个趋势！
VBA的功能决不只是让病毒制造者用来制造麻烦的，VBA能被用来制造病毒的同时也正说明了其功能的强大与易用！利用ADO对象，可以很方便的进行数据库操作！下面就是一个简单的数据交换的例子：

由于ADO对象不直接支持MySQL,所以必须先安装MyODBC, 后者也是一个免费产品，在www.mysql.org上有下载，安装好了MyODBC, 就可以在ODBC数据源管理中配置一个数据源名称，把它指向你想连接的MySQL数据库。代码如下：

以下为引用的内容：
　　Sub connectMySQL()
　　'通过MyODBC去连接MySQL数据库，并将Microsoft SQL Server 7
　　'的数据转进mysql中
　　Dim sConnect As String, sSql As String, i As Long
　　Dim cnMSSQL As New ADODB.Connection
　　Dim cnMySQL As New ADODB.Connection
　　'声明并创建对象连接
　　Dim rs As New ADODB.Recordset '声明并创建对象记录集
　　Dim cm As New ADODB.Command '声明并创建对象命令
　　
　　sConnect = "dsn=mysql1" '指定MySQL的数据源名称
　　cnMySQL.Open sConnect '连接到 mysql
　　
　　sConnect="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=123456;Initial Catalog=softdown;Data Source=ntserver"
　　'连接到 ms sql server 7
　　cnMSSQL.Open sConnect
　　
　　'sSql = "create table softinfo (softNum smallint,softname varchar(70),softdesc blob," & _
　　"softpath varchar(30),softleng varchar(10),softclass varchar(10),softsugest tinyint(1)," & _
　　"softdown smallint(4))" '创建新的MySQL数据表语句
　　sSql = "select * from softinfo order by softnum"
　　rs.Open sSql, cnMSSQL, 1, 1
　　
　　While Not rs.EOF
　　sSql = "insert into softinfo values (" & Trim(rs(0).Value) & ",'" & Trim(rs(1).Value) & _
　　"','" & Trim(rs(2).Value) & "','" & Trim(rs(3).Value) & "','" & Trim(rs(4).Value) & _
　　"','" & Trim(rs(5).Value) & "'," & Trim(rs(6).Value) & "," & Trim(rs(7).Value) & ")"
　　
　　cm.ActiveConnection = cnMySQL
　　cm.CommandType = adCmdText
　　cm.CommandText = sSql
　　cm.Execute
　　
　　rs.MoveNext
　　Wend
　　
　　rs.Close
　　Set rs = Nothing
　　
　　cnMySQL.Close
　　Set cnMySQL = Nothing
　　
　　cnMSSQL.Close
　　Set cnMSSQL = Nothing
　　
　　End Sub

		自动登录	找回密码
密码			注册

全国各地医院查询	重量转换换算	RGB颜色查询	交通标志大全	各类快递查询
简体繁体转换	黄金价格实时走势	万年历查询	实时汇率转换	列车时刻查询
在线翻译工具	CSS中文手册	HTML学习教程	MySQL中文手册	JavaScript中文手册
PHP安全基础手册	PHP5面向对象编程教程	正则表达式系统教程	SQL Server精华	Apache 2.2 中文手册
DOS命令全集指南	windows脚本技术中文版	股票行情查询	历史上的今天	邮编区号查询
长度转换换算	货币汇率转换	常用电话号码	体育彩票查询	手机位置查询
域名Whois信息查询	谷歌PR值查询	台州网站建设	台州网站开发	台州域名注册
天气预报查询	长度转换换算器	在线电子地图	车牌号码查询	中国百家姓查询