下面的那段程序我是想从一表的内容集中到另一个表的一个名称里面,但是它总是不听使,运行不了!!

Dadimamiilove 2009-08-12 01:44:27
<!--#include file="conn.asp"-->
<body>
<%
Set rs= Server.CreateObject ("ADODB.Command")
set rs=conn.execute("SELECT * FROM 材料清单 ")
While ((not rs.bof) AND (NOT rs.EOF))
conn.execute("INSERT INTO 读取表 (名称) VALUES ('"&rs("产品编号")&"')")
conn.execute("INSERT INTO 读取表 (名称) VALUES ('"&rs("名称")&"')")
conn.execute("INSERT INTO 读取表 (名称) VALUES ('"&rs("类型")&"')")
conn.execute("INSERT INTO 读取表 (名称) VALUES ('"&rs("规格")&"')")
conn.execute("INSERT INTO 读取表 (名称) VALUES ('"&rs("材质")&"')")
conn.execute("INSERT INTO 读取表 (名称) VALUES ('"&rs("单位")&"')")
rs.MoveNext()
wend
%>
</body>
...全文
54 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
Dadimamiilove 2009-08-12
  • 打赏
  • 举报
回复
我把分给你们鸟~~谢谢~~
Dadimamiilove 2009-08-12
  • 打赏
  • 举报
回复
好的,谢谢你们~~剩下的我找找吧~~谢谢
hookee 2009-08-12
  • 打赏
  • 举报
回复
sql语句直接在数据库环境下执行看看数据类型是否有错

conn.asp 最后改成如下,让他报错,看看是什么错

...
conn.Open connstr
If Err.Number<>0 Then
Set Conn = Nothing
Response.Write Err.Description
Response.End
End If
Dadimamiilove 2009-08-12
  • 打赏
  • 举报
回复
toury
你的也一样啊,数据库里没反应啊~~~
Dadimamiilove 2009-08-12
  • 打赏
  • 举报
回复
这是我的conn.asp
<%
On Error Resume Next
dim conn
dim connstr
dim db
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=SQLOLEDB;Data Source=(local);Initial Catalog=好来数据库;User ID=sa;Password=sa;"
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "fuck!"
Response.End
End If
%>


Dadimamiilove 2009-08-12
  • 打赏
  • 举报
回复
hookee
你的那个也一样,数据库里没法应,还是空白的,数据插不了啊
toury 2009-08-12
  • 打赏
  • 举报
回复
<!--#include file="conn.asp"-->
<body>
<%
Set rs= Server.CreateObject ("ADODB.Command")
set rs=conn.execute("SELECT * FROM 材料清单")
do while not rs.bof
conn.execute("INSERT INTO 读取表 (名称) VALUES ('"&validchk(rs("产品编号")&"")&"')")
conn.execute("INSERT INTO 读取表 (名称) VALUES ('"&validchk(rs("名称")&"")&"')")
conn.execute("INSERT INTO 读取表 (名称) VALUES ('"&validchk(rs("类型")&"")&"')")
conn.execute("INSERT INTO 读取表 (名称) VALUES ('"&validchk(rs("规格")&"")&"')")
conn.execute("INSERT INTO 读取表 (名称) VALUES ('"&validchk(rs("材质")&"")&"')")
conn.execute("INSERT INTO 读取表 (名称) VALUES ('"&validchk(rs("单位")&"")&"')")
rs.MoveNext()
loop

function validchk(f)
validchk=replace(f,"'",",")
end function
%>
</body>
hookee 2009-08-12
  • 打赏
  • 举报
回复
数据类型都是文本的话

<!--#include file="conn.asp"-->
<body>
<%
sql = "INSERT INTO 读取表(名称) SELECT 产品编号 FROM 材料清单;" &_
"INSERT INTO 读取表(名称) SELECT 名称 FROM 材料清单;" &_
"INSERT INTO 读取表(名称) SELECT 类型 FROM 材料清单;" &_
"INSERT INTO 读取表(名称) SELECT 规格 FROM 材料清单;" &_
"INSERT INTO 读取表(名称) SELECT 材质 FROM 材料清单;" &_
"INSERT INTO 读取表(名称) SELECT 单位 FROM 材料清单;"
conn.execute sql
conn.close
%>
</body>

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧