关于将数据成批导入新数据库的程序例子(Access to Sql)

前两天一位朋友在论坛中问到怎样把数据库成批倒入另外的数据库，当时只是简单的回答了一下用循环就可以了，正好在我论坛改版碰到原来精华贴子需要倒入到新的数据库中，于是就写了下面一段程序来实现，很简单，大家参考一下吧~！

<!——把所有精华贴子加入新数据库good v0.1———->

<!–#include file="conn.asp"–>

<%

dim announceid

dim username

dim useremail

dim boardid

dim topic

dim body

dim dateandtime

dim hits

dim length

dim expression

rem 打开access数据库

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

dbpath = server.mappath("club.mdb")

uconn.open "driver={microsoft access driver (*.mdb)};dbq=" & dbpath

rem 打开sql数据库

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

connstr="dsn=aspsky;uid=sa;pwd="

conn.open connstr

set urs=uconn.execute("select * from bbs1 where isbest=1 order by announceid")

do while not urs.eof

announceid=urs("announceid")

username=trim(urs("username"))

useremail=trim(urs("useremail"))

boardid=urs("boardid")

topic=trim(urs("topic"))

body=trim(urs("body"))

dateandtime=urs("dateandtime")

hits=urs("hits")

length=urs("length")

expression=urs("expression")

dim cmdtemp

dim insertcursor

dim dataconn

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

dataconn.open connstr

set cmdtemp = server.createobject("adodb.command")

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

cmdtemp.commandtext="select * from good where (username is null)"

cmdtemp.commandtype = 1

set cmdtemp.activeconnection = dataconn

insertcursor.open cmdtemp, , 1, 3

insertcursor.addnew

insertcursor("boardid")=boardid

insertcursor("username")=username

insertcursor("useremail")=useremail

insertcursor("topic")=topic

insertcursor("body")=body

insertcursor("dateandtime")=dateandtime

insertcursor("hits")=hits

insertcursor("length")=length

insertcursor("expression")=expression

insertcursor.update

response.write "转化纪录"&announceid&"成功<br>"

urs.movenext

loop

urs.close

rs.close

set conn=nothing

set uconn=nothing

%>

作者：沙滩小子，转载请注明出处动网先锋