下面是从多个数据库查询读出来的数据,在input文本框里显示出来的编号    PK团队  总分数   本周PK人数  平均分数 
复选框      1    196     文本框空值      
复选框      2     59     文本框空值 
复选框      3    100     文本框空值   
          当点击提交上面表单时,可以同时插入以上循环读出来的数据(N多条)到table1表格
而且本周PK人数文本框可以填写,当第一条数据PK人数写10  平均分数自动显示19.6,也可以在后台执行算出平均分再插入表格。
小弟以下插入代码 没用,请高手看看。
Set rs = Server.CreateObject("ADODB.Recordset")for   i=1 to request.form("id").count   
UserLevel(PK团队)=request.form("UserLevel")(i)
TotalPoint(总分数)=request.form("TotalPoint")(i)
sql="insert into TotalAvg(UserLevel,TotalPoint) values('"&UserLevel&"','"&TotalPoint&"')"
rs.open sql,conn,1,3
next
rs.close
set rs=nothing
 

解决方案 »

  1.   

    insert into TotalAvg(UserLevel,TotalPoint) select .....应该是一样的效果
      

  2.   

    我想知道sql语句怎么写啊,放这里也没错吧。
      

  3.   

    <%
    '在此前应有打开连接的语句
    'Set rs = Server.CreateObject("ADODB.Recordset")for i=1 to request.form("id").count   
    UserLevel(PK团队)=request.form("UserLevel")(i)
    TotalPoint(总分数)=request.form("TotalPoint")(i)
    sql="insert into TotalAvg(UserLevel,TotalPoint) values('"&UserLevel&"','"&TotalPoint&"')"
    conn.execute(sql)
    next
    'rs.close
    'set rs=nothing
    %>
      

  4.   

    --假如request.form("id").count等10  
    --UserLevel(PK团队)=request.form("UserLevel")(i)
    --TotalPoint(总分数)=request.form("TotalPoint")(i)
    declare @count int,@i intset @count=10
    set @i=0
    while @i<@count
    begin
    insert into TotalAvg(UserLevel,TotalPoint) values('"&UserLevel&"','"&TotalPoint&"')
    set @count=@count+1
    end 
      

  5.   

    那代码是没有问题,是我大意忘记在HTML页面选择复选框了,现在的问题是平均分 不知道怎么算了。
      

  6.   

    呵呵,lz竟然用for循环结果集
    vb里一般都是loop循环哇,看起来怪怪的,哈哈