Question

参数不足，期待是 1

sql = "SELECT sum(HyMoneyLog.DeductBonus) as dBonus,Hy.HyName,Hy.HyCardNo,Hy.HyTel,Hy.HyMobile,Hy.HyOpenBank,Hy.HyOpenBankNo,Hy.HyOpenBankName,Hy.HyProduct,Hy.HyTjNumber,HyClub.HyID,HyClub.HyBuyCount,HyClub.HyNumber,HyClub.wuliunumber FROM HyClub,HyMoneyLog,Hy where HyMoneyLog.HyNumber = HyClub.Hynumber and Hy.ID =HyClub.HyID "
sql =sql & " and dBonus='" & 7200 &"'"
sql = sql & " group by Hy.HyName,Hy.HyCardNo,Hy.HyTel,Hy.HyMobile,Hy.HyOpenBank,Hy.HyOpenBankNo,Hy.HyOpenBankName,Hy.HyProduct,Hy.HyTjNumber,HyClub.HyID,HyClub.HyBuyCount,HyClub.HyNumber,HyClub.wuliunumber "
多表联合查询，查询条件根据一个聚合函数的值来查询。现在报“参数不足，期待是 1”的错误。什么原因？谢谢了

Answer 1

strSql="Delete From 来稿情况与处理 Where 来稿时间=" & "varid"
这句写的有问题
最好改成
strSql="delete from 来稿情况与处理 where 来稿时间='"&varid&"'",rs,1,3
如果varid是int类型，可以不用单引号。
另外，楼主是不是应该创建一个记录集？少了一句：
set res = server.createobject("adodb.recordset")
这样删除记录的程序一般写成：

set conn = server.createobject("adodb.connection")conn.Open "Dbq="&Server.Mappath("sciencetech.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"
set res = server.createobject("adodb.recordset")

varid=Request.QueryString("id")
res.open "delete from 来稿情况与处理 where 来稿时间='"&varid&"'",conn,1,3
res.close
conn.close
-------------------------------------------------
要不然这样写吧：

<%
Response.Buffer=True
'以下连上数据库，建立一个Connection对象实例db
Dim rs
Set rs=Server.CreateObject("ADODB.Connection")
rs.Open "Dbq="&Server.Mappath("sciencetech.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"
'以下删除记录，注意这里是由index.asp传过来的要删除的记录的网站编号
Dim varid,strSql
varid=Request.QueryString("id") '获取要删除的记录网站编号
strSql="Delete From 来稿情况与处理 Where 来稿时间='"&varid&"'
rs.Execute(strSql)
Response.Redirect "laigaocaxun.asp" '删除完毕，重定向回首页
%>
就是条件语句中“来稿时间”等于的那个参数的写法不正确，其它的应该没什么问题，只是建议最好把rs改成conn,这样命名标准一些，rs一般是对记录集命名的。呵呵！仅仅是建议。

希望能帮到你，不行的话咱们再研究。

Answer 2

你用的应该是Access数据库，看看dBonus字段的类型，如果是数值型，Access好像是不允许带单引号的，sql =sql & " and dBonus='" & 7200 &"'"修改一下
sql =sql & " and dBonus=" & 7200 或
sql =sql & " and dBonus=7200 "

Answer 3

这个是你生成的SQL语句不对
SQL语句是不需要加分号的
把Query1.SQL.Add('Where 学生.学号='''+Edit1.Text+''';'); 改为
Query1.SQL.Add('Where 学生.学号='''+Edit1.Text+'''');试试！

其次，把
Query1.SQL.Add('FROM 学生 INNER JOIN (课程 INNER JOIN 选课 ON 课程.选课编号=选课.选课编号) ON 学生.学号=选课.学号 ');
改为：
Query1.SQL.Add('FROM 学生 INNER JOIN 选课 ON 学生.学号=选课.学号 inner join 课程 ON 课程.选课编号=选课.选课编号 ');

Answer 4

若你的软件是英文版的就把引号里面的引号改成英文的，若你的软件是汉语版的就把引号里面的引号改成汉语的

Answer 5

sql =sql & " and dBonus='" & 7200 &"'"
改为
sql =sql & " and dBonus=' 7200 '"