首页 新闻 论坛 群组 Blog 文档 下载 读书 Tag 网摘 搜索 .NET Java 游戏 视频 人才 外包 培训 数据库 书店 程序员
中国软件网
欢迎您:游客 | 登录 注册 帮助
    • 实时错误‘-2147217904（80040e10）’：至少一个参数没有被指定值，谁知道怎么解决？ [已结贴,结贴人:lijie005168]
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • lijie005168
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    • 揭贴率：
    发表于：2008-08-19 11:32:12 楼主
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Private Sub Command1_Click()
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dm.mdb;Persist Security Info=False"
    cn.CursorLocation = adUseClient
    cn.Open
    Dim sql As String
    sql = "select * from sbjbztb where " & Combo1.Text & " =  " & Text1.Text & ""
    rs.Open sql, cn, adopenkdyset, adLockOptimistic
    If rs.RecordCount > 0 Then
    Set DataGrid1.DataSource = rs
    DataGrid1.Refresh
    Else
    MsgBox "未发现此资产 "
    End If
    rs.Close
    cn.Close
    End Sub


    这是我写的一个查询的语句，用datagrid控件来显示查询出来的结果，可是一执行，就出现“实时错误‘-2147217904（80040e10)':至少一个参数没有被指定值”的错语，我已经改了两天了，也没改对，哪位大侠帮帮我，十分感谢。在线等。
    20  修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • jhone99
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-19 11:47:061楼 得分:0
    Combo1做什么？
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • jhone99
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-19 11:56:062楼 得分:0
    试一试

    Private Sub Command1_Click()
        Dim cn As New ADODB.Connection
        Dim rs As New ADODB.Recordset
        Dim sql As String
       
        cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dm.mdb;Persist Security Info=False"
        cn.CursorLocation = adUseClient
        cn.Open
       
       
        sql = "select * from sbjbztb where " & Combo1.Text & " =  '" & Text1.Text & "' "
        rs.Open sql, cn, adopenkdyset, adLockOptimistic
        If rs.RecordCount > 0 Then
            Set DataGrid1.DataSource = rs
            DataGrid1.Refresh
        Else
            MsgBox "未发现此资产 "
        End If
       
        rs.Close
        cn.Close
    End Sub
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • lijie005168
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-19 12:04:253楼 得分:0

    这个查询里，combo1是用来输入查询条件，比如说设备的型号、或者是数量等等，后面的text1是输入条件的具体值。
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • lijie005168
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-19 12:08:084楼 得分:0

    谢谢jhone99,我试过了，还是不行，还出现那个错误。
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • vbman2003
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-19 12:26:205楼 得分:0
    可能是字段数据类型造成的错误,你debug.print sql,看一下......
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • vbman2003
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-19 12:27:516楼 得分:0
    还有一个可能就是字段名称用了数据库关健字......
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • zuibunan
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-19 12:32:187楼 得分:0
    " & Combo1.Text & " =  '" & Text1.Text & "' " 中" & Combo1.Text & "应该是sbjbztb表里的一个字段，可能是你
    没有设置Combo1.ListIndex = 0,导致编译时Combo1控件中没有数值即等于“”，从而" & Combo1.Text & "为空，你那下拉列表框属性是不是即可以输入又可以下拉选择的？可以试图用Combo1.AddItem ("型号")....等先进行填充！
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • zuibunan
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-19 12:41:488楼 得分:0
    补充一下， " & Combo1.Text & " =  " & Text1.Text & "应该是这样： '" & Combo1.Text & " '=  '" & Text1.Text & "'
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • jhone99
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-19 13:02:009楼 得分:0
    引用 8 楼 zuibunan 的回复:
    补充一下， " & Combo1.Text & " =  " & Text1.Text & "应该是这样： '" & Combo1.Text & " '=  '" & Text1.Text & "'


    '" & Combo1.Text & " '字段两边不能加“'”
    '" & Text1.Text & "'这个加就可以了
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • zuibunan
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-19 13:04:2710楼 得分:0
    噢！谢谢指点！
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • fvflove
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：

    • 2
    发表于：2008-08-19 13:06:5511楼 得分:15
    VB code
    
'主要的原因是因为Combo1.Text 与他的表不配.
'也就是说, Combo1.Text 中的值.在表中没有此项.
'比如:表是这样的表
'表名:用户信息
'表里面的内容 : 用户ID  用户名  密码
'而 Combo1.Text 为 : 新项目  
'他的表中根本就没有"新项目" 这个字段,就出现问题了.

'解决办法: 确认 combo1 下拉列表框中的内容与否与表中的字段相配.
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • jhone99
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-19 13:09:4312楼 得分:5
        rs.Open sql, cn, adopenkdyset, adLockOptimistic

    adopenkdyset 改为 adopenkeyset
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • lijie005168
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-19 13:29:1413楼 得分:0
    谢谢你们，知道怎么改了。
    修改 删除 举报 引用 回复
    网站简介－广告服务－网站地图－帮助－联系方式－诚聘英才－English－ 问题报告
    北京创新乐知广告有限公司 版权所有 京 ICP 证 070598 号
    世纪乐知(北京)网络技术有限公司 提供技术支持
    Copyright © 2000-2008, CSDN.NET, All Rights Reserved