Excel + access 判断数据集是否为空 问题求助

活在理想的世界

gaoyanmiao 发表于 2018-7-9 10:57
是的，上面的朋友提醒我了，是聚合函数的问题。可是我不会弄啊

9楼的代码就是个大概意思（ADODB是前期绑定的），你改一下吧。

活在理想的世界

刚才写错了，是：Rec.RecordCount > 0不是>1。。。

这一点请注意。

zpy2

Select 索引标识 from 户情统计 where 1<>1
应该是记录集为空，

gaoyanmiao

活在理想的世界 发表于 2018-7-9 11:00
刚才写错了，是：Rec.RecordCount > 0不是>1。。。

这一点请注意。

老师，我的recordcount 一直是1，不管数据集有没有数据都是1

gaoyanmiao

zpy2 发表于 2018-7-9 11:09
Select 索引标识 from 户情统计 where 11
应该是记录集为空，

谢谢老师，我懂了。

gaoyanmiao

Select 索引标识 from 户情统计 where 1<>1
if 数据集为空
    sybs = 1
else
    max_num_SQL = "Select max(索引标识) from 户情统计"
    sybs = num.Fields(0).Value + 1

活在理想的世界

gaoyanmiao 发表于 2018-7-9 13:54
老师，我的recordcount 一直是1，不管数据集有没有数据都是1

那是见了鬼啦?怎么可能？没有记录竟然有1行数据？难道是你的数据库有问题？
这是成熟的判断方法，不止你一个人用的。

活在理想的世界

gaoyanmiao 发表于 2018-7-9 13:54
老师，我的recordcount 一直是1，不管数据集有没有数据都是1

recordcount>0就一定有数据在里面的。

你是用什么方法赋值给单元格或者对象的？

siliconxu

gaoyanmiao 发表于 2018-7-9 14:04
Select 索引标识 from 户情统计 where 11
if 数据集为空
    sybs = 1

Select 索引标识 from 户情统计 where 1<>1
这个是什么意思？这个where的条件不是永远都是false吗？

gaoyanmiao

siliconxu 发表于 2018-7-9 15:02
Select 索引标识 from 户情统计 where 11
这个是什么意思？这个where的条件不是永远都是false吗？

num_SQL = "select 索引标识 from 户情统计"
        num_sel.Open num_SQL, strConn, 1, 3, 1
        If num_sel.RecordCount = 0 Then
            sybs = 1
        Else
            max_num_SQL = "Select max(索引标识) from 户情统计" '索引标识
            num.Open max_num_SQL, strConn, 1, 3, 1
            sybs = num.Fields(0).Value + 1
        End If

这么写就对了，哈哈