MS SQL7.0的數據遷移到MySQL上的一種方法

　　想必大家都很喜歡用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 ADODBConnection
　　Dim cnMySQL As New ADODBConnection
　　聲明並創建對象 連接
　　Dim rs As New ADODBRecordset 聲明並創建對象 記錄集
　　Dim cm As New ADODBCommand 聲明並創建對象 命令
　　
　　sConnect = dsn=mysql 指定MySQL的數據源名稱
　　cnMySQLOpen sConnect 連接到 mysql
　　
　　sConnect=Provider=SQLOLEDB;Persist Security Info=False;User ID=sa;pwd=;Initial Catalog=softdown;Data Source=ntserver
　　連接到 ms sql server
　　cnMSSQLOpen sConnect
　　
　　sSql = create table softinfo (softNum smallintsoftname varchar()softdesc blob & _
　　softpath varchar()softleng varchar()softclass varchar()softsugest tinyint() & _
　　softdown smallint()) 創建新的MySQL數據表語句
　　sSql = select * from softinfo order by softnum
　　rsOpen sSql cnMSSQL
　　
　　While Not rsEOF
　　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) & )
　　
　　cmActiveConnection = cnMySQL
　　cmCommandType = adCmdText
　　cmCommandText = sSql
　　cmExecute
　　
　　rsMoveNext
　　Wend
　　
　　rsClose
　　Set rs = Nothing
　　
　　cnMySQLClose
　　Set cnMySQL = Nothing
　　
　　cnMSSQLClose
　　Set cnMSSQL = Nothing
　　
　　End Sub
From:http://tw.wingwit.com/Article/program/MySQL/201311/29408.html