一表单中能否输入完一个文本框后，其他指定的几个文本框能从SQL记录中返回相应的记录值？？ - ASP技术论坛

已结贴√ 问题点数：3 回复次数：4

一表单中能否输入完一个文本框后，其他指定的几个文本框能从SQL记录中返回相应的记录值？？

比如在一表单中，有几个文本框，
  在一个文本框(wldm)是填：物料代码，
  一个文本框(mcgg)要填：物料名称，
  一个文本框(ys)要填：颜色，
  一个文本框(dw)要填：单位
  这些文本框内容都是对应一个数据库的表的字段内容,  (物料名称对应的字段为"名称规格色别"  )

要求:在打开这个数据库记录集的前提下，输入完物料代码文本框后（也没有按提交按钮），要在其他文本框内，自动从记录集中弹出相应的字段内容值。
    比如下面代码,我是想当输入完物料代码(文本框TEXTFILDS为:wldm)后,只要物料名称文本框获得焦点后,就执行onchange事件 ser("wldm"), 输出值.ser函数的代码如下:

<% Function ser(wldm2)
   Dim conn,connstr,exec,rs
   connstr=" PROVIDER=SQLOLEDB;DATA SOURCE=(local);UID=sa;PWD=;DATABASE=456"
   set conn=server.CreateObject("ADODB.connection")
   conn.open connstr
   exec="select * from 结存 where 代码='"&wldm2&"'"
   Set rs=server.CreateObject("adodb.recordset")
   rs.open exec,conn,1,1

  If rs.Eof And rs.Bof Then
   ser = ""
  Else
   ser = rs("名称规格色别")
   return ser
  End If
  rs.Close
  Set rs = nothing
  conn.close
  Set conn = nothing
End Function       %>

但测试结果,是毫无反应,不知是错在哪里??请高手指教
谢谢!

搜索更多相关主题的帖子: SQL　表单　文本　记录　输入　

第 2 楼

得分:0

我发现是没有赋值给物料名称文本框了,我将代码改为了以下的:

<Script language="javascript">
  function cc(ser)
{ document.form1.mcgg.value=ser}
</script>

</head>

<body>
<% Function ser(wldm2)
   Dim conn1,connstr1,rs3,exec3
   connstr1=" PROVIDER=SQLOLEDB;DATA SOURCE=(local);UID=sa;PWD=;DATABASE=456"
   set conn1=server.CreateObject("ADODB.connection")
   conn1.open connstr1
   exec3="select * from 结存 where 代码='"&wldm2&"'"
   Set rs3=server.CreateObject("adodb.recordset")
   rs3.open exec,conn,1,1

  If rs3.Eof And rs3.Bof Then
   ser = "无"
   Else
   ser = rs("名称规格色别")
  End If
   cc(ser)
   rs.Close
   Set rs = nothing
   conn.close
   Set conn = nothing
End Function
  %>
......
   <input name="wldm" type="text" id="wldm" onchange="ser('wldm')" />
....
但测试结果,是毫无反应,不知是错在哪里??请高手指教
谢谢!