[非常求助]菜单列表连接到数据库做个查询结果页面

#2

yuan01212007-08-28 09:39

他提示说[microsoft][ODBC Microsoft access Driver]参数不足，期待是1。

#3

yuan01212007-08-28 09:48

有哪位大哥啊大姐啊加我一下QQ啊 79677593 我发贴说不清楚 55555555555

#4

craft001wen2007-08-28 10:00

这种写法倒是少见,你用这个试试
<%
Dim cplb
Dim cplb_numRows
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("..\index\database\1.mdb")
Set MM_naer_STRING= Server.CreateObject("ADODB.Connection")
MM_naer_STRING.open ConnStr
Set cplb = Server.CreateObject("ADODB.Recordset")

cplb.open"SELECT 产品系列 FROM sbsj WHERE 产品系列 like '" & Replace(cplb__varcpxl, "'", "''") &"'",MM_naer_STRING,1

%>

#5

yuan01212007-08-28 10:09

有点迷糊了，问个问题，我现在有个表单叶也就是有菜单列表的页面，然后一会得做出个列表模板的页面（结果显示页），但是是不是中间还得有什么页面才行啊
迷糊等待中。。。。。。。。。。。。。。。。。

#6

天涯听雨2007-08-28 11:08

请不要利用DW的功能来自动生成源代码。。还是自己试着写一些简单的源代码

简单的查询语句也请先看一些书籍，或者教程的介绍。

Set rs = Server.CreateObject("ADODB.Recordset")

strsql="select * from table1"

rs.open strsql conn,1,1

明白红色地方的参数意义，许多教程有介绍

#7

yuan01212007-08-28 12:49

就是为了冲冲门面，我学的不系统，这个先做好，然后慢慢吸收吧。我现在都不知道该问什么问题

#8

yuan01212007-08-28 16:24

非常感谢天涯听雨兄弟的帮忙

这个页面还是有错误提示，已经蒙灯了！！！！！！！！！！1
<%
Dim cplb
Dim cplb_numRows
cplb__varcpxl=trim(request.QueryString("CodeKey"))

if cplb__varcpxl="" then
response.write "请进行后退选择关键字"
response.end
end if

ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("..\index\database\1.mdb")
Set MM_naer_STRING= Server.CreateObject("ADODB.Connection")
MM_naer_STRING.open ConnStr
Set cplb = Server.CreateObject("ADODB.Recordset")
cplb.open"SELECT 产品系列 FROM sbsj WHERE 产品系列 like '%"&Replace(sbsj__xilie, "'", "''")&"%'",MM_naer_STRING,1,1--------------------------第25行
%>
<body>
</body>
</html>
<%
lb.Close()
Set cplb = Nothing
%>

Microsoft JET Database Engine 错误 '80040e10'

至少一个参数没有被指定值。

/lb.asp，行 25

[此贴子已经被作者于2007-8-28 16:25:56编辑过]

#9

jamesxiaoyao2007-08-28 16:33

select ... Replace(sbsj__xilie）...

#10

madpbpl2007-08-28 22:03

ＤＷ生成的代码看起来就是不舒服，sbsj__xilie哪来的

[非常求助]菜单列表连接到数据库 做个查询结果页面