sql2000数据导入MySQL数据库的两种方式

<?
$cnx = odbc_connect('web', 'admin', '123456');

    //'web'是sqlserver中mydb的数据源名，

    'admin'是访问mydb的用户名，'123456'是访问mydb的密码

$cur= odbc_exec( $cnx, 'select * from user' );//打开sql server中mydb数据库的user表

$num_row=0;

$conn=mysql_pconnect("localhost","root","123456");

    // 连接mysql

@mysql_select_db('mydb',$conn) or

die("无法连接到数据库，请与管理员联系！");

    //打开mysql的mydb数据库

while( odbc_fetch_row( $cur ))

    //从sql server的mydb库中的user表逐条取出数据，如果对数据进行选择，可在前面的select语句中加上条件判断
{
$num_row++;

$field1 = odbc_result( $cur, 1 );

    // 这里的参数i(1,2,3..)指的是记录集中的第i个域，

    你可以有所选择地进行选取，fieldi得到对应域的值，然后你可以对fieldi进行操作

$field2 = odbc_result( $cur, 2 );

$field3 = odbc_result( $cur, 3 );

$field4 = odbc_result( $cur, 4 );

$field5 = odbc_result( $cur, 5 );

$field6 = odbc_result( $cur, 6 );

$field5 = timetoint($field5); //这里是对sql server中的datetime类型

    的字段进行相应转换处理，转换成我所需要的int型

$querystring = "

insert into user(id,name,username,password,recdate)

values('$field1','$field2','$field3','$field4','$field5')" ;

mysql_query($querystring,$conn);
}


function timetoint($str){

$arr1=split(" ",$str);

$datestr=$arr1[0];

$timestr=$arr1[1];

$arr_date=split("-",$datestr);

$arr_time=split(":",$timestr);

$year=$arr_date[0];

$month=$arr_date[1];

$day=$arr_date[2];

$hour=$arr_time[0];

$minute=$arr_time[1];

$second=$arr_time[2];

$time_int=mktime($hour,$minute,$second,$month,$day,$year);

return $time_int;

}
?>

<%
set conn=server.createobject("adodb.connection")

conn.open 'web', 'admin', '123456' // 'web'是sqlserver中mydb的数据源名， 'admin'是访问mydb的用户名，'123456'是访问mydb的密码

set rs=server.createobject("adodb.recordset")

sql="select ID,name,username,password,

    datediff(s,'1970-01-01 00:00:00',recdate)-

    8*3600,reid,filename,fileContentType,filevalue from senddate"

    //这条sql语句实现了将datetime类型的recdate字段转化成unix时间戳的int型

rs.open sql,conn,1,3

set conn1=server.createobject("adodb.connection")

conn1.open "myoa","root","q1-d6=7?"

i=1

do while not rs.eof

field1 = rs(0)

field2 = rs(1)

field3 = rs(2)

field4 = rs(3)

field5 = rs(4)

sql1 = "insert into user(ID,name,username,password,recdate)

values("&field1&",'"&field2&"','"&field3&"','"&field4&"',"&field5&")"

conn1.execute sql1

rs.movenext

i=i+1

loop

rs.close

set rs=nothing

conn.close

set conn=nothing

conn1.close

set conn1=nothing

%>

function makeattach(fileContentType,filevalue,i)

select case fileContentType

case "application/msword"

ext="doc"

case "application/vnd.ms-excel"

ext="exl"

case "application/vnd.ms-powerpoint"

ext="pps"

case "application/x-rar-compressed"

ext="rar"

case "application/x-zip-compressed"

ext="zip"

case "image/gif"

ext="gif"

case "image/pjpeg"

ext="jpg"

case "text/plain"

ext="txt"

case else

ext="x"

end select

if ext<>"x" then

set fso=server.createobject("FileSystemObject")

fName="attech"&i&"."&ext

Dir="d:attach"

If fso.FileExists(Dir & fName) Then fso.deletefile Dir & fName

If fName<>"" AND NOT fso.FileExists(Dir & fName) Then

Set strm1=Server.CreateObject("ADODB.Stream")

strm1.Open

strm1.Type=1 'Binary

strm1.Write filevalue

strm1.SaveToFile Dir & fName,2

Set strm1=Nothing

end if

makeattach=fName

end if

end function