如何把access中的A字段的数据写入B字段中。

代码:

<!--#include file="conn.asp"-->
<% dim xx,yy
strsql="select * from PE_Article"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn, 1, 2
while not rs.eof 
    rs("intro")=left(rs("title"),100)
    rs.update 
    rs.movenext
wend
rs.close
%>

你在循环中建立 Recordset 对象，同外层的 Recordset 对象名一样，当然会出错。

 

<!--#include file="conn.asp"-->
<% dim xx,yy
set rs=server.CreateObject("adodb.recordset")
sqlstr="SELECT * PE_Article where ArticleID=rs(ArticleID)"
rs.open sqlstr,conn,1,3
while not rs.eof
xx=left(rs("title"),100)
rs("intro")=xx
rs.update
rs.movenext
loop
rs.close
set rs=nothing
%>

这样不知道是否符合程序功能要求

 

直接在数据库access里建立查询，执行下面的SQL语句，完成。

update PE_Article Set intro=left(title,100)


啊哦，，楼上两大虾，，不如我的一句，，嘎嘎。。

 

温馨提示：回答问题，要看提问人的“语法环境”。

 

可以实现哦，，，他的记录本来就存在的，你只要建立一个新的查询就ok了。

 

我的意思是尽可能按照他的思路去指导——他使用的是 ADO ，你却要告诉他在 Access 中用查询。

 

那还不一样！？

 

绝对不一样哦

 

肯定不一样啦
一个是ADO的方法
一个是ACCESS的方法。。

不过我都不懂。哇哈哈

 

<!--#include file="conn.asp"-->
exec="select * form 表A "
set objrs=server.createobject("adodb.recordset")
objrs.open exec,1,1
Do while not objrs.eof
xx=left(字段A,100)
objrs("字段B")=xx
objrs.addnew
objrs.movenext
Loop
response.write "数据转移完成!"
objrs.close
set objrs=nothing
conn.close
set conn=nothing


凑合着吧。。不知有米有用

 

<!--#include file="conn.asp"-->
<%
conn.Execute("Update PE_Article Set intro=left(title,100)")
conn.Close
Set conn=Nothing
%>

 

yes，，俺不会的。。

 

不错不错，集思广益。