SQL Server 7.0 的数据迁移到MySQL上的一种方法

作者佚名技术来源 NET编程浏览发布时间 2012-03-16

inyint(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这个巨人的肩膀上！

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!

上一页 1 2

分享到：更多

你可能对下面的文章感兴趣

上一篇: MYSQL初学者使用指南下一篇: MySQL菜鸟入门指南

关于SQL Server 7.0 的数据迁移到MySQL上的一种方法的所有评论

随机推荐