如何判断ADO有没有抓到数据

hxw0204

    sql = "select * from [" & Left(Split(fi.Name, ".")(0), 31) & "$] where 乡='XX镇'"
    conn.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=" & mypath & fi.Name & ";extended properties=""excel 12.0;HDR=YES"""
    conn.Execute (sql)

    If conn.Count > 0 Then Cells(k, 2) = 1

    conn.Close

if判断那里，请问如何判断conn有没有抓到记录？

ivccav

conn.Count =0就是没有查询到数据，这么明显的问题为什么要发问呢？

hxw0204

ivccav 发表于 2022-11-16 19:25
conn.Count =0就是没有查询到数据，这么明显的问题为什么要发问呢？

conn.Count =0是不行的

hxw0204

在兰色幻想VBA中找到方法了   
......
sql = "select * from [" & Left(Split(fi.Name, ".")(0), 31) & "$] where 乡='XX镇'"
conn.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=" & mypath & fi.Name & ";extended properties=""excel 12.0;HDR=YES"""
rst.Open sql, conn, adOpenKeyset, adLockOptimistic
If rst.RecordCount > 0 Then Sheet1.Cells(k, 2) = 1
rst.Close
conn.Close
......

ivccav

hxw0204 发表于 2022-11-16 20:31
conn.Count =0是不行的

被你带沟里了，原来你是瞎写的。不是小孩了，最简单的问题自己看看帮助是最好的，提高自学能力。

WANT-T

一般是这样判定的：
1、先看state,state=0,标识对象压根没有打开
2、再看eof或者bof,eof或bof=0,表示没有数据，或者，已经指针move到最后了；
3、最后再看recordcount

morpheus126

ivccav 发表于 2022-11-17 08:39
被你带沟里了，原来你是瞎写的。不是小孩了，最简单的问题自己看看帮助是最好的，提高自学能力。

可否分享一下这个手册，谢谢

ivccav

morpheus126 发表于 2022-11-17 13:19
可否分享一下这个手册，谢谢

Microsoft ActiveX Data Objects (ADO) 中文帮助.rar (1.37 MB, 下载次数: 5)

2022-11-17 14:11 上传

点击文件名下载附件

hxw0204

WANT-T 发表于 2022-11-17 09:35
一般是这样判定的：
1、先看state,state=0,标识对象压根没有打开
2、再看eof或者bof,eof或bof=0,表示没有 ...

按你的方法试了试，bof=0时表示有数据。如果只是判断有没有数据，请问是不是到这步就可以了？

WANT-T

hxw0204 发表于 2022-11-17 20:12
按你的方法试了试，bof=0时表示有数据。如果只是判断有没有数据，请问是不是到这步就可以了？

eof或者bof是true和false
if not rst.eof  or not rst.bof then

end if