| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 852 人关注过本帖
标题:查询时,出现 实时错误-2147467259的提示
只看楼主 加入收藏
kent73
Rank: 1
等 级:新手上路
帖 子:61
专家分:5
注 册:2009-3-4
结帖率:46.67%
收藏
 问题点数:0 回复次数:1 
查询时,出现 实时错误-2147467259的提示
用如下代码查询数据,在“If rs.RecordCount = 0 Then”上出现如图所示错误,请问代码哪里有问题?

Dim sql
 Dim rs As New ADODB.Recordset, cn As New ADODB.Connection
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
   
If rs.State = adStateOpen Then rs.Close
cn.CursorLocation = adUseClient
      cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Jet OLEDB:Database Password=;Persist Security Info=False;"

sql = "SELECT Tb_yongliang.hetonghao, Tb_yongliang.chanpinhao, Tb_yongliang.yuanliaochanpinhao, Tb_yongliang.yuanliaosehao, Tb_yongliang.aigoufangshi, Format(int(Tb_yongliang.yingyongliang),'#,##0.00') as yingyongliang, format(cInt(IIf(IsNull(Tb_huansuanlv.huansuanlv),Tb_yongliang.yingyongliang,Tb_yongliang.yingyongliang/Tb_huansuanlv.huansuanlv)),'#,##0.00') AS caigoushuliang FROM Tb_yongliang LEFT JOIN Tb_huansuanlv ON Tb_yongliang.yuanliaochanpinhao = Tb_huansuanlv.chanpinhao where TB_yongliang.hetonghao='" & & "'"
        rs.Open sql, cn, 1, 1
        Set Me.DataGrid1.DataSource = Nothing
        Set Me.DataGrid1.DataSource = rs
        
 '设定DataGrid1的列宽
 DataGrid1.Columns(0).Width = 1000
 DataGrid1.Columns(1).Width = 1500
 DataGrid1.Columns(2).Width = 1500
 DataGrid1.Columns(3).Width = 800
 DataGrid1.Columns(4).Width = 800
 DataGrid1.Columns(5).Width = 2000
 DataGrid1.Columns(6).Width = 2000
 DataGrid1.Refresh
 
 If rs.RecordCount = 0 Then
MsgBox "没有找到符合条件的数据!", vbExclamation, "提示"
Exit Sub
End If

图片附件: 游客没有浏览图片的权限,请 登录注册
搜索更多相关主题的帖子: 实时 提示 查询 
2010-11-12 08:55
kent73
Rank: 1
等 级:新手上路
帖 子:61
专家分:5
注 册:2009-3-4
收藏
得分:0 
问题已查明
2010-11-12 13:06
快速回复:查询时,出现 实时错误-2147467259的提示
数据加载中...
 
   



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

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