请问.EOF 数据库调用 已解决

cekous2010

头都大了，请帮忙看看吧！
--------------------------------------------------
sqlstring = "select * from a "
connstring = "odbc;DSN=aa;UID=a;PWD=b;"
With ActiveSheet.QueryTables.Add(Connection:=connstring, Destination:=Range("a1"), Sql:=sqlstring)
.Refresh
end with
------------------------------------------------这段代码是通过odbc调用数据库的。因为数据一定要通过dsn这里过来。

我想有个记录，判断如果没有数据就报错
With .Recordset
If .EOF And .BOF Then
MsgBox "没有找到您需要的数据!!"
Else
End If
end with

但是就是报错。我知道 Recordset 这里有问题，但是不知道如何改。

[ 本帖最后由 cekous2010 于 2010-9-8 16:57 编辑 ]

wxhnr

If .EOF  Then

lb_bn

If .recordcount = 0 Then

cekous2010

原帖由 lb_bn 于 2010-8-31 10:57 发表
If .recordcount = 0 Then

不行额，

----------------------------------这样还能运行，recordset 前面没点
If Recordset = 1 Then
MsgBox "没有找到您需要的数据!!"
Else

----------------------------------这样不能运行，recordset 前面有点
If .Recordset = 1 Then
MsgBox "没有找到您需要的数据!!"
Else
End If
-----但是报错情况，如图

cekous2010

原帖由 wxhnr 于 2010-8-31 11:00 发表
If .EOF  Then

这个不行哦。。试过了

sunsoncheng

With .Recordset
这个记录集的上一级是什么?

这是别人的与你的也不一样吧?  recordcount
好象是将.EOF那里作出楼上的更改吧？
别人是想说,看看这个记录集有多少条数据,大于0条就表示有罗

意思是没错的,只是我没有用过你的方式

通常是rs.open sql,cnn,1,1,1

with rs.recodcount>0 then

所以才有我刚才说的上一级是什么？因为这个点是表示与上一级相关的吧？

[ 本帖最后由 sunsoncheng 于 2010-8-31 12:17 编辑 ]

wxhnr

Sub aaa()
Dim conn As Object
Dim rst As Object

Set conn = CreateObject("adodb.connection")

sqlstring = "select * from a "
connstring = "DSN=aa;UID=;PWD=;"
conn.Open connstring

Set rst = CreateObject("adodb.recordset")
rst.Open sqlstring, conn, 1, 3
If rst.EOF Then
    MsgBox "没有数据"
Else
    MsgBox "发现记录数：" & rst.RecordCount
End If
Set rst = Nothing
Set conn = Nothing
End Sub

lb_bn

是recordcount不是recordset

cekous2010

原帖由 lb_bn 于 2010-8-31 12:24 发表
是recordcount不是recordset

试过了，还是有问题。。真不知道怎么弄了

lb_bn

rs.open sql,cnn,3,1
建议楼主上传附件.