● 关于将数据成批导入新数据库的程序例子(Access - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: baty (新一代懒人), 信区: Database
标  题: 关于将数据成批导入新数据库的程序例子(Access to Sq
发信站: BBS 荔园晨风站 (Tue Nov 21 21:56:57 2000), 转信



<%
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
%>

--
      我是懒人我怕谁！！

             我总有一种想为你而死的冲动

                          因为我不知如何才能把你打动

※ 来源:·BBS 荔园晨风站 bbs.szu.edu.cn·[FROM: 192.168.18.238]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店