标题: 公布SQL Server 7.0 的数据迁徙到MySQL上的一种办法 [打印本页] 作者: 不帅 时间: 2015-2-16 00:23 标题: 公布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
