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

Posted 2022-07-15 知

篇首语：也许就是那么一颗不甘服输的心带着我奋斗下去!本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 MS SQL7.0的数据迁移到MySQL上的一种方法相关的知识，希望对你有一定的参考价值。

MS SQL7.0的数据迁移到MySQL上的一种方法 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　想必大家都很喜欢用Word打字用Excel进行计算和规划用PowerPoint作幻灯片进行展示… 但是这只用到了Office系列产品的很少的一部分功能据调查绝大部分用户只用到了Office产品的 %的功能很少有人注意到Visual Basic for Application 实际上熟悉掌握VBA的功能可以使你的工作事半功倍尤其对会计金融等专业来说作出一套好的宏几乎可以作到一劳永逸！最近 AutoCAD中也加入了VBA的功能这不能不说这是一个趋势！　　VBA的功能决不只是让病毒制造者用来制造麻烦的 VBA能被用来制造病毒的同时也正说明了其功能的强大与易用！利用ADO对象可以很方便的进行数据库操作！下面就是一个简单的数据交换的例子　　由于ADO对象不直接支持MySQL 所以必须先安装MyODBC 后者也是一个免费产品在上有下载安装好了MyODBC 就可以在ODBC数据源管理中配置一个数据源名称把它指向你想连接的MySQL数据库代码如下　　　　Sub connectMySQL() 　　通过MyODBC去连接MySQL数据库并将Microsoft SQL Server 　　的数据转进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=mysql 指定MySQL的数据源名称　　cnMySQL Open sConnect 连接到 mysql 　　　　sConnect= Provider=SQLOLEDB ;Persist Security Info=False;User ID=sa;pwd= ;Initial Catalog=softdown;Data Source=ntserver 　　连接到 ms sql server 　　cnMSSQL Open sConnect 　　　　 sSql = create table softinfo (softNum smallint softname varchar( ) softdesc blob & _ 　　 softpath varchar( ) softleng varchar( ) softclass varchar( ) softsugest tinyint( ) & _ 　　 softdown smallint( )) 创建新的MySQL数据表语句　　sSql = select * from softinfo order by softnum 　　rs Open sSql cnMSSQL 　　　　While Not rs EOF 　　sSql = insert into softinfo values ( & Trim(rs( ) Value) & & Trim(rs( ) Value) & _ 　　 & Trim(rs( ) Value) & & Trim(rs( ) Value) & & Trim(rs( ) Value) & _ 　　 & Trim(rs( ) Value) & & Trim(rs( ) Value) & & Trim(rs( ) 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 cha138/Article/program/MySQL/201311/29408