查询语句问题

huade 发布于 2008-01-30 17:23， 644 次点击

<%
Dim CP
Dim CP_numRows

Set CP = Server.CreateObject("ADODB.Recordset")
CP.ActiveConnection = MM_connms_STRING
CP.Source = "SELECT * FROM MS_MainCatalog WHERE mctl_name_cht like %" + Replace(CP__aa, "'", "''") + "% or mctl_name_eng like %" + Replace(CP__bb, "'", "''") + "% ORDER BY mcatalog_id ASC"
CP.CursorType = 0
CP.CursorLocation = 2
CP.LockType = 1
CP.Open()

CP_numRows = 0
%>

6 回复

huade2008-01-30 17:24

运行就提示出错是 CP.Open() 这一行，请问是哪里出了问题？

yms1232008-01-30 19:07

把错误信息贴出来看看

yms1232008-01-30 19:08

把错误信息贴出来看看

madpbpl2008-01-30 20:02

CP.Source = "SELECT * FROM MS_MainCatalog WHERE mctl_name_cht like %" + Replace(CP__aa, "'", "''") + "% or mctl_name_eng like %" + Replace(CP__bb, "'", "''") + "% ORDER BY mcatalog_id ASC"
改成
CP.Source = "SELECT * FROM MS_MainCatalog WHERE mctl_name_cht like '%" + Replace(CP__aa, "'", "''") + "%' or mctl_name_eng like '%" + Replace(CP__bb, "'", "''") + "%' ORDER BY mcatalog_id ASC"
试试

huade2008-01-31 17:38

回复 5# 的帖子

谢谢楼上的帮助，问题己解决！

huade2008-01-31 17:40

原来是少了单引号，谢谢高手指点！