| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 1416 人关注过本帖
标题:至少一个参数没有被指定值,是怎么回事
只看楼主 加入收藏
natesc
Rank: 1
等 级:新手上路
帖 子:40
专家分:0
注 册:2013-9-15
结帖率:37.5%
收藏
已结贴  问题点数:20 回复次数:6 
至少一个参数没有被指定值,是怎么回事
程序代码:
Private Sub Command2_Click()

 
    Dim Rs As ADODB.Recordset
    Dim Sql As String
    Dim MsgTxt As String
    Dim NR1 As String
    Dim RQ1 As String
   
    If List3.ListIndex = -1 Then Exit Sub

RQ1 = List1.List(List3.ListIndex)

NR1 = List2.List(List3.ListIndex)

 Sql = "delete * from MYBOOK where RQ=RQ1"
                Set Rs = ExecuteSQL(Sql, MsgTxt)
                
                If InStr(MsgTxt, "错误") Then
                    MsgBox MsgTxt, vbCritical, "错误提示"
                    Exit Sub
                End If
               Text1.Text = ""
              
                i = List3.ListIndex
                  List1.RemoveItem i
                  List2.RemoveItem i
                  List3.RemoveItem i
                    
End Sub

说明ACCESS数据库就2个字段,分别是RQ和NR

[此贴子已经被作者于2017-6-4 12:29编辑过]

搜索更多相关主题的帖子: color 
2017-06-04 12:26
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:275
帖 子:4575
专家分:28392
注 册:2008-10-15
收藏
得分:0 
Sql = "delete * from MYBOOK where RQ=RQ1"
这句错了,RQ1是变量,组合进行需要 使用字符串连接运算。
另外,sql命令里的值,需要根据字段类型加上对应的符号。


授人于鱼,不如授人于渔
早已停用QQ了
2017-06-04 12:38
natesc
Rank: 1
等 级:新手上路
帖 子:40
专家分:0
注 册:2013-9-15
收藏
得分:0 
回复 2楼 风吹过b
两个字段都是备注类型,应当怎么修改,确实是这句话错了,就是不明白如何修改
2017-06-04 13:07
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:0 
“delete * from MYBOOK where RQ=“ & RQ1

无知
2017-06-04 13:51
natesc
Rank: 1
等 级:新手上路
帖 子:40
专家分:0
注 册:2013-9-15
收藏
得分:0 
回复 4楼 Artless
谢谢,可是错误依旧
2017-06-04 15:05
natesc
Rank: 1
等 级:新手上路
帖 子:40
专家分:0
注 册:2013-9-15
收藏
得分:0 
回复 5楼 natesc
附件: 游客没有浏览附件的权限,请 登录注册
2017-06-04 17:55
xzlxzlxzl
Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15
来 自:湖北
等 级:贵宾
威 望:125
帖 子:1091
专家分:5825
注 册:2014-5-3
收藏
得分:20 
修改为:Sql = "delete * from MYBOOK where RQ='" & RQ1 & "'"
2017-06-04 18:43
快速回复:至少一个参数没有被指定值,是怎么回事
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.042972 second(s), 8 queries.
Copyright©2004-2020, BCCN.NET, All Rights Reserved