|东莞软件销售|东莞.com域名注册|东莞.cn域名注册|东莞雅虎推广|网页开发|域名注册|空间租用|东莞网站开发|东莞企业网站建设|国际内域名注册|石龙虎门中堂|望牛墩麻涌镇石碣镇|--关于将数据成批导入新数据库的程序例子(Access to Sql)

建站必读

网站建设知识

网站推广研究

当前位置：首页 -> 建站必读 -> ASP技术

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

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





<%

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

%>

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

本站关键词：

|东莞软件销售|东莞.com域名注册|东莞.cn域名注册|东莞雅虎推广|网页开发|域名注册|空间租用|东莞网站开发|东莞企业网站建设|国际内域名注册|石龙虎门中堂|望牛墩麻涌镇石碣镇||东莞软件销售|东莞.com域名注册|东莞.cn域名注册|东莞雅虎推广|网页开发|域名注册|空间租用|东莞网站开发|东莞企业网站建设|国际内域名注册|石龙虎门中堂|望牛墩麻涌镇石碣镇||东莞软件销售|东莞.com域名注册|东莞.cn域名注册|东莞雅虎推广|网页开发|域名注册|空间租用|东莞网站开发|东莞企业网站建设|国际内域名注册|石龙虎门中堂|望牛墩麻涌镇石碣镇||东莞软件销售|东莞.com域名注册|东莞.cn域名注册|东莞雅虎推广|网页开发|域名注册|空间租用|东莞网站开发|东莞企业网站建设|国际内域名注册|石龙虎门中堂|望牛墩麻涌镇石碣镇||东莞软件销售|东莞.com域名注册|东莞.cn域名注册|东莞雅虎推广|网页开发|域名注册|空间租用|东莞网站开发|东莞企业网站建设|国际内域名注册|石龙虎门中堂|望牛墩麻涌镇石碣镇||东莞软件销售|东莞.com域名注册|东莞.cn域名注册|东莞雅虎推广|网页开发|域名注册|空间租用|东莞网站开发|东莞企业网站建设|国际内域名注册|石龙虎门中堂|望牛墩麻涌镇石碣镇||东莞软件销售|东莞.com域名注册|东莞.cn域名注册|东莞雅虎推广|网页开发|域名注册|空间租用|东莞网站开发|东莞企业网站建设|国际内域名注册|石龙虎门中堂|望牛墩麻涌镇石碣镇||东莞软件销售|东莞.com域名注册|东莞.cn域名注册|东莞雅虎推广|网页开发|域名注册|空间租用|东莞网站开发|东莞企业网站建设|国际内域名注册|石龙虎门中堂|望牛墩麻涌镇石碣镇||东莞软件销售|东莞.com域名注册|东莞.cn域名注册|东莞雅虎推广|网页开发|域名注册|空间租用|东莞网站开发|东莞企业网站建设|国际内域名注册|石龙虎门中堂|望牛墩麻涌镇石碣镇|