国产一级毛片久久AV,一级黄色影片,国产精品亚洲国产三区

您當前所在位置：首頁 → 數(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

相關閱讀

文章評論

查看所有0條評論>>