IT貓撲網(wǎng):您身邊最放心的安全下載站! 最新更新|軟件分類|軟件專題|手機版|論壇轉(zhuǎn)貼|軟件發(fā)布

您當前所在位置:首頁數(shù)據(jù)庫MYSQL → MS SQL7.0的數(shù)據(jù)遷移到MySQL上的一種方法

MS SQL7.0的數(shù)據(jù)遷移到MySQL上的一種方法

時間:2015/6/28來源:IT貓撲網(wǎng)作者:網(wǎng)管聯(lián)盟我要評論(0)

想必大家都很喜歡用word打字,用excel進行計算和規(guī)劃,用PowerPoint作幻燈片進行展示…,但是這只用到了office系列產(chǎn)品的很少的一部分功能。據(jù)調(diào)查,絕大部分用戶只用到了Office產(chǎn)品的20%的功能,很少有人注意到Visual Basic for Application。實際上,熟悉掌握vbA的功能可以使你的工作事半功倍,尤其對會計、金融等專業(yè)來說,作出一套好的宏,幾乎可以作到一勞永逸!最近,autocad中也加入了VBA的功能,這不能不說這是一個趨勢!
VBA的功能決不只是讓病毒制造者用來制造麻煩的,VBA能被用來制造病毒的同時也正說明了其功能的強大與易用!利用ADO對象,可以很方便的進行數(shù)據(jù)庫操作!下面就是一個簡單的數(shù)據(jù)交換的例子:

由于ADO對象不直接支持mysql,所以必須先安裝MyODBC, 后者也是一個免費產(chǎn)品,在www.mysql.org上有下載,安裝好了MyODBC, 就可以在ODBC數(shù)據(jù)源管理中配置一個數(shù)據(jù)源名稱,把它指向你想連接的MySQL數(shù)據(jù)庫。代碼如下:

以下為引用的內(nèi)容:

  Sub connectMySQL()
  '通過MyODBC去連接MySQL數(shù)據(jù)庫,并將Microsoft sql server 7
  '的數(shù)據(jù)轉(zhuǎn)進mysql中
  Dim sConnect As String, sSql As String, i As Long
  Dim cnMSSQL As New ADODB.Connection
  Dim cnMySQL As New ADODB.Connection
  '聲明并創(chuàng)建對象 連接
  Dim rs As New ADODB.Recordset '聲明并創(chuàng)建對象 記錄集
  Dim cm As New ADODB.Command '聲明并創(chuàng)建對象 命令
  
  sConnect = "dsn=mysql1" '指定MySQL的數(shù)據(jù)源名稱
  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))" '創(chuàng)建新的MySQL數(shù)據(jù)表語句
  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

關鍵詞標簽:方法,遷移,數(shù)據(jù)p,rs,T

相關閱讀

文章評論
發(fā)表評論

熱門文章 10款MySQL數(shù)據(jù)庫客戶端圖形界面管理工具推薦10款MySQL數(shù)據(jù)庫客戶端圖形界面管理工具推薦MySQL常用維護管理工具MySQL常用維護管理工具Linux VPS/服務器上輕松導入、導出MySQL數(shù)據(jù)Linux VPS/服務器上輕松導入、導出MySQL數(shù)據(jù)MySQL復制的概述、安裝、故障、技巧、工具MySQL復制的概述、安裝、故障、技巧、工具

相關下載

人氣排行 MySQL數(shù)據(jù)庫啟動失敗1067進程意外終止的解決辦法總結Mysql 1045錯誤解決辦法10款MySQL數(shù)據(jù)庫客戶端圖形界面管理工具推薦MySQL服務器進程CPU占用100%解決辦法MySQL導出導入命令的用例MySQL無法啟動、無法停止各種解決方法總結三種常用的MySQL建表語句Mysql清空表的實現(xiàn)方法