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

Dadimamiilove 2009-08-12 01:44:27

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

...全文

39 8 打赏收藏举报

写回复

8 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

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

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