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

gaoyanmiao

1. <p>max_num_SQL = "Select max(索引标识) from 户情统计" </p><p>num.Open max_num_SQL, strConn, 1, 3, 1</p><p>If num.Bof and num.Eof then </p><p>    sybs = 1</p><p>else</p><p>    sybs = num.Fields(0).Value + 1</p><p>end if</p><p>
   
2. </p>

复制代码

这个过程中，num的bof和eof 一直都是false，无法通过这两个属性判断是否为空 ，求助各位老师，是哪里出问题了。版本2007
说明：“索引标识“是id  存在重复

gaoyanmiao

max_num_SQL = "Select max(索引标识) from 户情统计"
num.Open max_num_SQL, strConn, 1, 3, 1
If num.Bof and num.Eof then
    sybs = 1
else
    sybs = num.Fields(0).Value + 1
end if

活在理想的世界

会操作ADODB.Recordset对象吗？
Recordset的RecordCount>0就是有，否则就是无。

gaoyanmiao

活在理想的世界 发表于 2018-7-9 10:48
会操作ADODB.Recordset对象吗？
Recordset的RecordCount>0就是有，否则就是无。

感谢老师神速恢复，不太懂，麻烦老师赐教。

zpy2

聚合函数，就是有一条记录啊，当然不为空了。

gaoyanmiao

zpy2 发表于 2018-7-9 10:53
聚合函数，就是有一条记录啊，当然不为空了。

老师，那要怎么搞啊。，

活在理想的世界

gaoyanmiao 发表于 2018-7-9 10:50
感谢老师神速恢复，不太懂，麻烦老师赐教。

你就是想知道SQL抓取的数据是不是真的有内容对吧？

gaoyanmiao

活在理想的世界 发表于 2018-7-9 10:56
你就是想知道SQL抓取的数据是不是真的有内容对吧？

是的，上面的朋友提醒我了，是聚合函数的问题。可是我不会弄啊

活在理想的世界

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

1. Sub d()
   
2. Dim Rec As New ADODB.Recordset
   
3. Dim Con As New ADODB.Connection
   
4. Dim SQL As String
   
5. Con.Open ("")
   
6. SQL = "SELECT * FROM 表名"
   
7. Rec.Open SQL, Con, 3, 2
   
8. If Rec.RecordCount > 0 Then
   
9.     MsgBox "有数据"
   
10. Else
    
11.     MsgBox "无数据"
    
12. End If
    
13. Con.Close
    
14. End Sub

复制代码

gaoyanmiao

是的，上面的朋友提醒我了，是聚合函数的问题。可是我不会弄啊