hole in the wall潜点:这是怎么回事?asp

来源:百度文库 编辑:高考问答 时间:2024/04/29 14:17:51
我想把a数据库中的数据添加到b数据库中,
<% dim SMT_news,SMT_title %>
<%
set conn=server.createobject("adodb.connection")
connstr="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("a.mdb")
conn.open connstr
%>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from SMT_news ",conn,1,1
SMT_news=rs("SMT_news")
SMT_title=rs("SMT_title")
rs.close
set rs=nothing
conn.close
%>
<%
set conn=server.createobject("adodb.connection")
connstr="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("b.mdb")
conn.open connstr
%>

<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from SMT_news ",conn,1,3
rs("SMT_news")=SMT_news
rs("SMT_title")=SMT_title
rs.update
rs.close
set rs=nothing
conn.close
%>
可是出现以下错误。
错误类型:
ADODB.Recordset (0x800A0E79)
对象打开时,不允许操作。
/ww/lmn.asp, 第 10 行
我是想把一个表里面的数据完全插入到另一个表。
怎么检查以ACCESS以独占的方式打开?
我的代码发全了

以上代码应该没有错误,除非楼主的代码没有发全。或者检查你的数据库是不是用ACCESS以独占的方式打开了。

另,一楼解释完全错误,在RS对象用set rs=nothing释放后,还怎么会能进行rs.close的操作,肯定会提示错误。

rs.close
set rs=nothing
位置改成

set rs=nothing
rs.close

首先确定一下你的第十行是什么代码

然后了解一下,你具体的目的是什么?是想把一个表里面的数据完全插入?(替换?)到另外一个表里面?
如果是插入,后面的库打开后你要加一个rs.addnew才能开始插入

而且你现在的代码只是取得select出来的第一条

建议把目的说清楚后再帮助你分析代码

set rs1=server.createobject("adodb.recordset")
把上边这个记录集的名字改一下.改成rs1.反正两个recordset名字不要一样.

你上边都建了rs对象.下边还建干什么.要不就直接用.把上边的set rs=nothing 去了.