Question

asp网页的文本框显示数据库内的一个值

我的是SQL数据库，连接好了
<input type="text" name="T38" size="20" value="%=sS_Eng%" disabled=true>这是文本框的属性
我想让数据库内S_Eng的值能传给这个文本框，在网页显示出来
sID=request("id")
'response.write sID
Set cn1 = Server.CreateObject("ADODB.Connection")
Set rs1 = Server.CreateObject("ADODB.Recordset")
cn1.open ("链接数据库的")
sSql ="select * from Test where Sheet='sID'"
rs1.open sSql,cn1,1,3,1
if not rs1.eof then
response.write "没有符合条件的记录!"
else
sS_Eng=rs1("S_Eng")//14行
end if

Answer 1

定义
dim sS_Eng
sS_Eng=rs("sS_Eng")
定义后的sS_Eng就可以随意引用了

sSql ="select * from Test where Sheet='sID'"
应该是
sSql ="select * from Test where Sheet="&sID
或
sSql ="select * from Test where Sheet='"&sID&"'"

追问

提示没符合条件记录,但是我在数据库里查到了数据的呀,

sID是数字，是从id反馈得到的
我怀疑我的select语句写错了，但是换上你的也不对

追答

sID是数字
sSql ="select * from Test where Sheet="&sID
同时 Sheet字段也应该是数字型

如果Sheet字段不是数字型
sSql ="select * from Test where Sheet='"&sID&"'"

追问

我刚才验证了，select语句没有问题，但是他还是反馈 没有符合条件的记录!，你帮我看看IF语句有什么问题么？

追答

把数据库的连接放到最上端去,不要与查询搅一块
dim sID,rs1,sS_Eng
sID=request("id")
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select S_Eng from [Test] where Sheet="&sID,cn1,1 '查询用1,1,写入才需1,3或1,3,1
if rs1.eof and rs1.bof then
response.write "没有符合条件的记录!"
else
sS_Eng=rs1("S_Eng")
end if
rs1.close

追问

sSql = "select * from Test where Sheet=" & sID
'response.write sSql
rs1.open sSql,cn1
if rs1.eof then
response.write "没有符合条件的记录!"
response.end
else
sS_Eng=rs1("S_Eng")
我这样竟然行了

Answer 2

首先要查询数据库 获得你要输出的字段值
假设你的数据库中含有当前内容的记录字段名是 Eng,查询后
sS_Eng=rs("Eng")
赋值时候这样写即可：
<input type="text" name="T38" size="20" value="<%=sS_Eng%>" disabled=true>

追问

你看看我刚才补充的，它提示：
ADODB.Recordset 错误 '800a0bcd' BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求

Answer 3

<input type="text" name="T38" size="20" value="<%=sS_Eng%>" disabled=true>

sID=request("id")
'response.write sID
Set cn1 = Server.CreateObject("ADODB.Connection")
Set rs1 = Server.CreateObject("ADODB.Recordset")
cn1.open ("链接数据库的")
sSql ="select * from Test where Sheet='sID'"
rs1.open sSql,cn1,1,3
if rs1.eof then
response.write "没有符合条件的记录!"
response.end
else
sS_Eng=rs1("S_Eng")
end if

追问

它提示：
ADODB.Recordset 错误 '800a0bcd' BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求

追答

sID=request("id")
'response.write sID
Set cn1 = Server.CreateObject("ADODB.Connection")
Set rs1 = Server.CreateObject("ADODB.Recordset")
cn1.open ("链接数据库的")
sSql = "select * from Test where Sheet=" & sID
rs1.open sSql,cn1,1,3
if rs1.eof then
   response.write "没有符合条件的记录!"
   response.end
else
   sS_Eng=rs1("S_Eng")
end if

你有按我说的代码修改吗？

Answer 4

笑了