ASP判断问题(判断数据库中是否存在)
Setcnn=Server.CreateObject("ADODB.Connection")Setrst=Server.CreateObject("ADODB.Recor...
Set cnn = Server.CreateObject("ADODB.Connection")
Set rst = Server.CreateObject("ADODB.Recordset")
cnn.ConnectionString = "PROVIDER=microsoft.jet.oledb.4.0;DATA SOURCE=" & server.mappath("a.mdb")
cnn.Open
sSQL = "SELECT num FROM Dr WHERE num='" & txtnum & "'"
Set rst = cnn.Execute(sSQL, , adCmdText)
'从这里开始如何判断rst("num")是否与txtnum有重复 应该怎么写?
If txtnum=rst("num") Then
Response.Write "<P>编号“" & rst("num") & "”已经存在,请重新输入!</P>"
报错:
技术信息(用于支持人员)
错误类型:
(0x80020009)
发生意外。
/date/saveInfo.asp, 第 77 行
浏览器类型:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon)
网页:
POST 366 ??? /date/saveInfo.asp
POST Data:
txtnum=00&txtinname=00&optsex=%C4%D0&txtinaddr=&txtinpostalcode=&txttheme=&txtinphone=&txtinhospital=&txtinemail=&txtindate=&txtinbirthdate=&txtcheckname=&txtcheckhospital=&txtcheckaddr=&txtcheckposta . . .
时间:
2007年3月26日, 14:41:59
详细信息:
Microsoft 支持 展开
Set rst = Server.CreateObject("ADODB.Recordset")
cnn.ConnectionString = "PROVIDER=microsoft.jet.oledb.4.0;DATA SOURCE=" & server.mappath("a.mdb")
cnn.Open
sSQL = "SELECT num FROM Dr WHERE num='" & txtnum & "'"
Set rst = cnn.Execute(sSQL, , adCmdText)
'从这里开始如何判断rst("num")是否与txtnum有重复 应该怎么写?
If txtnum=rst("num") Then
Response.Write "<P>编号“" & rst("num") & "”已经存在,请重新输入!</P>"
报错:
技术信息(用于支持人员)
错误类型:
(0x80020009)
发生意外。
/date/saveInfo.asp, 第 77 行
浏览器类型:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon)
网页:
POST 366 ??? /date/saveInfo.asp
POST Data:
txtnum=00&txtinname=00&optsex=%C4%D0&txtinaddr=&txtinpostalcode=&txttheme=&txtinphone=&txtinhospital=&txtinemail=&txtindate=&txtinbirthdate=&txtcheckname=&txtcheckhospital=&txtcheckaddr=&txtcheckposta . . .
时间:
2007年3月26日, 14:41:59
详细信息:
Microsoft 支持 展开
1个回答
2007-03-26
展开全部
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from table where a=b"
if not rs.eof then
response.write "存在"
else
response.write "不存在"
end if
rs.close : set rs=nothing
sql="select * from table where a=b"
if not rs.eof then
response.write "存在"
else
response.write "不存在"
end if
rs.close : set rs=nothing
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询