公布SQL Server 7.0 的数据迁徙到MySQL上的一种办法

人们常说“成功孕育成功”，这种说法明显非常适合MySQL的情况。MySQL学习教程这个开源数据库号称在全世界有超过110万份的完全安装。Microsoft SQL Server 7.0 的数据迁徙到MySQL上的办法
Zhbforce

   想必人人都很喜好用Word打字，用Excel停止盘算和计划，用Powerpoint作幻灯片停止展现…，然而这只用到了Office系列产物的很少的一局部功效。据查询拜访，绝大局部用户只用到了Office产物的20%的功效，很少有人注重到Visual Basic for application。实践上，熟习把握VBA的功效可使你的任务事半功倍，特别对管帐、金融等专业来讲，作出一套好的宏，几近可以作到与日俱增！比来，AutoCAD中也到场了VBA的功效，这不克不及不说这是一个趋向！
   VBA的功效决不只是让病毒制作者用来制作费事的，VBA能被用来制作病毒的同时也正申明了其功效的壮大与易用！使用ADO对象，可以很便利的停止数据库操作！上面就是一个复杂的数据互换的例子：
   因为ADO对象不直接撑持MySQL,所以必需先装置MyODBC, 后者也是一个收费产物，在www.mysql.org上有下载，装置好了MyODBC, 就能够在ODBC数据源办理中设置装备摆设一个数据源称号，把它指向你想毗连的MySQL数据库。代码以下：

Sub connectMySQL()
   '经由过程MyODBC去毗连MySQL数据库，并将Microsoft SQL Server 7
   '的数据转进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=mysql1" '指定MySQL的数据源称号
   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))" '创立新的MySQL数据表语句
    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
   
   好了，想必人人对VBA有所懂得了，一样，假如要在任务表中援用MySQL中的数据也是一样的复杂，一旦宏作好了，想生成报表的话，用户要作的任务只是点一下鼠标就好了，使用Excel停止二次开辟，效力可以超越任何用户自行开辟的报表体系,由于咱们站在Microsoft这个伟人的肩膀上！

这些过程被存储和运行在数据库服务器上，以减少在客户端的处理过程，从而最大限度地提高了处理能力，因为通常情况下数据库服务器会运行地更快。存储过程并不是MySQL独有的功能，但是这个最近新增加的功能使得这个数据库比以前更具吸引力了。