 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
前两天一位朋友在论坛中问到怎样把数据库成批倒入另外的数据库，当时只是简朴的回答了一下用循环就可以了，正好在我论坛改版遇到原来精华贴子需要倒入到新的数据库中，于是就写了下面一段程序来实现，很简朴，大家参考一下吧~！ <!--#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 %> 返回类别: 教程 上一教程: 在ASP中使用数据库 下一教程: 关于ADODB.STREAM的写数据库数据到客户端文件的实践 您可以阅读与"关于将数据成批导入新数据库的程序例子(ACCESS TO SQL)"相关的教程: · ASP操作ACCESS数据库的程序 · 数组数据排序的程序例子 · 介绍一个用ASP来压缩ACCESS数据库的例子 · 用ASP自动生成SQL数据库的安装源程序 · 在ASP中通过OO4O连接ORACLE数据库的例子 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
