Question

sqlserver2000数据库如何将数据转到mysql数据库中？

Answer 1

Sub connectMySQL(和PHP搭配之最佳组合)() '通过MyODBC去连接MySQL(和PHP搭配之最佳组合)数据库，并将Microsoft sql server(WINDOWS平台上强大的数据库平台) 7 '的数据转进MySQL(和PHP搭配之最佳组合)中 Dim sConnect As String, sSql As String, i As Long Dim cnmssql(WINDOWS平台上强大的数据库平台) As New ADODB.Connection Dim cnMySQL(和PHP搭配之最佳组合) As New ADODB.Connection '声明并创建对象 连接 Dim rs As New ADODB.Recordset '声明并创建对象 记录集 Dim cm As New ADODB.Command '声明并创建对象 命令 sConnect = "dsn=MySQL(和PHP搭配之最佳组合)1" '指定MySQL(和PHP搭配之最佳组合)的数据源名称 cnMySQL(和PHP搭配之最佳组合).Open sConnect '连接到 MySQL(和PHP搭配之最佳组合) sConnect="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=123456;Initial Catalog=softdown;Data Source=ntserver" '连接到 ms sql server(WINDOWS平台上强大的数据库平台) 7 cnmssql(WINDOWS平台上强大的数据库平台).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(和PHP搭配之最佳组合)数据表语句 sSql = "select * from softinfo order by softnum" rs.Open sSql, cnmssql(WINDOWS平台上强大的数据库平台), 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(和PHP搭配之最佳组合) cm.CommandType = adCmdText cm.CommandText = sSql cm.Execute rs.MoveNext Wend rs.Close Set rs = Nothing cnMySQL(和PHP搭配之最佳组合).Close Set cnMySQL(和PHP搭配之最佳组合) = Nothing cnmssql(WINDOWS平台上强大的数据库平台).Close Set cnmssql(WINDOWS平台上强大的数据库平台) = Nothing End Sub