熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> MySQL >> 正文

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

2013-11-23 20:59:14  來源: 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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.