DIM rs,C,E
gh=Trim(Request.Form("gh0"))
zl=Trim(Request.Form("zl0"))
ks=Trim(Request.Form("ks0"))
houd=Trim(Request.Form("houd0"))
kd=Trim(Request.Form("kd0"))
cd=Trim(Request.Form("cd0"))
set orasession=createobject("OracleInprocServer.XOraSession")
set oradatabase=orasession.dbopendatabase("mes","erp/erp",0)
sSql="SELECT * FROM mesapp.erp_xhkc where rownum <= 15"If gh<>"" Then sSql=sSql&" 钢号='"&gh0&"' AND"
If zl<>"" Then sSql=sSql&" 重量='"&zl0&"' AND"
If ks<>"" Then sSql=sSql&" 块数='"&ks0&"' AND"
If houd<>"" Then sSql=sSql&" 厚度='"&houd0&"' AND"
If kd<>"" Then sSql=sSql&" 宽度='"&kd0&"' AND"
If cd<>"" Then sSql=sSql&" 长度='"&cd0&"' AND"sSql=sSql&" ORDER BY 块数 DESC"
oradatabase.dbEXECUTESQL(sSql)
set rs=oradatabase.dbcreatedynaset(sSql,0)
''''response.Write(sSql)
C="_"
if rs.eof and rs.bof then
response.Write("没有任何数据可输出!")
else
do while not rs.eof%>
请问大家这段语句有什么错误吗?新手,麻烦大家了。
gh=Trim(Request.Form("gh0"))
zl=Trim(Request.Form("zl0"))
ks=Trim(Request.Form("ks0"))
houd=Trim(Request.Form("houd0"))
kd=Trim(Request.Form("kd0"))
cd=Trim(Request.Form("cd0"))
set orasession=createobject("OracleInprocServer.XOraSession")
set oradatabase=orasession.dbopendatabase("mes","erp/erp",0)
sSql="SELECT * FROM mesapp.erp_xhkc where rownum <= 15"If gh<>"" Then sSql=sSql&" 钢号='"&gh0&"' AND"
If zl<>"" Then sSql=sSql&" 重量='"&zl0&"' AND"
If ks<>"" Then sSql=sSql&" 块数='"&ks0&"' AND"
If houd<>"" Then sSql=sSql&" 厚度='"&houd0&"' AND"
If kd<>"" Then sSql=sSql&" 宽度='"&kd0&"' AND"
If cd<>"" Then sSql=sSql&" 长度='"&cd0&"' AND"sSql=sSql&" ORDER BY 块数 DESC"
oradatabase.dbEXECUTESQL(sSql)
set rs=oradatabase.dbcreatedynaset(sSql,0)
''''response.Write(sSql)
C="_"
if rs.eof and rs.bof then
response.Write("没有任何数据可输出!")
else
do while not rs.eof%>
请问大家这段语句有什么错误吗?新手,麻烦大家了。
解决方案 »
- vb 远程数据库链接字符串
- VB导入收藏夹的代码怎么写?
- 问一个很简单的问题,路过的请帮我回答,,非常感谢!vb中的savefiledlalog 和openFiledialog控件在哪儿,我怎么找不到?请大家告诉我谢
- 关于调用com组建的问题,大家救我啊!!!(在线等待)
- 请教关于算法优化问题,急!
- [十万火急]100分代码优化!!
- 如何使用mschart控件实现动态显示温度变化曲线?
- 如何获得数据库服务器的机器名称?
- 请教在VB程序中实现long类型移位操作,谢谢!!!
- 如何将.xls 文件中的单元格中的数据用一个循环读出来呢!! 问题如解决,100分立时送上!!
- 求高手帮忙....急!
- 键盘Hook报毒
错误类型:
Oracle Automation (0x800A01B8)
SQL execution error, ORA-00933: SQL command not properly ended
/index.asp, 第 64 行就是这一行。oradatabase.dbEXECUTESQL(sSql)