ASP记录集查询判断问题,请教高手
省略其它代码////////////////////////////////////////////////////////////////////out_trade_n...
省略其它代码////////////////////////////////////////////////////////////////////
out_trade_no = Request.Form("out_trade_no")'商户订单号 例如123
省略其它代码////////////////////////////////////////////////////////////////////
Dim Recordset2
Dim Recordset2_cmd
Dim Recordset2_numRows
Set Recordset2_cmd = Server.CreateObject ("ADODB.Command")
Recordset2_cmd.ActiveConnection = MM_conn_STRING
Recordset2_cmd.CommandText = "SELECT * FROM dbo.ce_cz_biao WHERE ce_cz_ddbh = '"&out_trade_no&"'" 问题位置==============================
Recordset2_cmd.Prepared = true
Set Recordset2 = Recordset2_cmd.Execute
Recordset2_numRows = 0
if Recordset2.EOF And Recordset2.BOF Then '判断数据是否为空
Response.Write "不存在"
Else
Response.Write "存在"
end if
使用工具:Adobe Dreamweaver CS4 程序语言:ASP+SQL
说明:通过记录集进行查询数据库表内容是否存在,如果存在则说明存在,如果不存在就提示不存在!
存在问题:以上代码记录集查询不知哪个地方写错了,数据库明明存在,而系统测试还是说不存在!请教高手帮忙解决!谢谢
问题片段: 记录集问题 通过表的值
Recordset2_cmd.CommandText = "SELECT * FROM dbo.ce_cz_biao WHERE ce_cz_ddbh = '"&out_trade_no&"'" 展开
out_trade_no = Request.Form("out_trade_no")'商户订单号 例如123
省略其它代码////////////////////////////////////////////////////////////////////
Dim Recordset2
Dim Recordset2_cmd
Dim Recordset2_numRows
Set Recordset2_cmd = Server.CreateObject ("ADODB.Command")
Recordset2_cmd.ActiveConnection = MM_conn_STRING
Recordset2_cmd.CommandText = "SELECT * FROM dbo.ce_cz_biao WHERE ce_cz_ddbh = '"&out_trade_no&"'" 问题位置==============================
Recordset2_cmd.Prepared = true
Set Recordset2 = Recordset2_cmd.Execute
Recordset2_numRows = 0
if Recordset2.EOF And Recordset2.BOF Then '判断数据是否为空
Response.Write "不存在"
Else
Response.Write "存在"
end if
使用工具:Adobe Dreamweaver CS4 程序语言:ASP+SQL
说明:通过记录集进行查询数据库表内容是否存在,如果存在则说明存在,如果不存在就提示不存在!
存在问题:以上代码记录集查询不知哪个地方写错了,数据库明明存在,而系统测试还是说不存在!请教高手帮忙解决!谢谢
问题片段: 记录集问题 通过表的值
Recordset2_cmd.CommandText = "SELECT * FROM dbo.ce_cz_biao WHERE ce_cz_ddbh = '"&out_trade_no&"'" 展开
1个回答
2015-03-06
展开全部
<%
Dim DB, Conn, ConnStr
DB = "数据库路径名称"
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( DB )
Set Conn = server.createobject("ADODB.connection")
Conn.open ConnStr
if err then
Response.write "数据库连接失败,请检查数据库路径"
Response.end()
end if
Dim out_trade_no
out_trade_no = Request.form("out_trade_no")
if out_trade_no = "" then
Response.write "订单号不能为空"
Response.end()
end if
Dim Rs
Set Rs = Server.CreateObject ("ADODB.Command")
Rs.open "select * from ce_cz_biao where ce_cz_ddbh = " & out_trade_no, Conn, 1, 1
if not ( Rs.eof and Rs.bof ) then
Response.write "存在"
else
Response.write "不存在"
end if
Rs.close
Set Rs = nothing
Conn.close
Set Conn = nothing
%>
代码纯手工打的,未借助任何工具!
请测试!
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询