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

2016-01-29 16:12 6 1 收藏

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

【 tulaoshi.com - SQLServer 】

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

 

来源:http://www.tulaoshi.com/n/20160129/1497846.html

延伸阅读
标签: SQLServer
查询速度慢的原因很多,常见如下几种: 1、没有索引或者没有用到索引(这是查询慢最常见的问题,是程序设计的缺陷) 2、I/O吞吐量小,形成了瓶颈效应。 3、没有创建计算列导致查询不优化。 4、内存不足 5、网络速度慢 6、查询出的数据量过大(可以采用多次查询,其他的方法降低数据量) ...
标签: SQLServer
  【「Microsoft SQL Server 7.0」以下简称「SQL Server 7.0」】 在SQL Server 7.0中如何不重启SQL Server服务,即可循环errorlog(错误日志)?(New) 在SQL Server 7.0中如果要cycle errorlog,(即重新产生一个新的errorlog,errorlog变成errorlog.1,errorlog.1变成errorlog.2,...)但不重新激活SQL Server Service,在SQL Server 7.0...
标签: SQLServer
SQL Server 6.X使用设备(device)存储数据库,每个设备为操作系统上的一个磁盘文件, SQL Server 7.0是否也是这样? 不是。SQL Server 7.0的数据库不再使用设备存储, SQL Server 7.0每个数据库至少需要两个文件(数据和日志),数据和日志无法共享一个文件,并且每个文件只能给一个数据库使用,无法共享。 存放SQL Server 7.0数据库的磁...
在建设网站的过程中,经常要处理一些数据的导入及导出。在mysql数据库中,有两种方法来处理数据的导出(一般)。 1. 使用select * from table_name into outfile "file_name"; 2. 使用mysqldump实用程序 下面我们来举例说明: 假设我们的数据库中有一个库为samp_db,一个表为samp_table。现在要把samp_table的数据导出。则我们可以利用以...
标签: SQLServer
  管理文本和图像数据        文本和图像数据类型列可以象其它列一样包含在SELECT语句的Select_list中。通过SELECT语句检索的最大文本大小由TEXTSIZE设置来控制。默认的TEXTSIZE的值是4096字节,使用SET TEXTSIZE语句可重新设置。当前的TEXTSIZE设置的值存放在全局变量@@TEXTSIZE中。   &nb...

经验教程

711

收藏

14
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部