|
头都大了,请帮忙看看吧!
--------------------------------------------------
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 编辑 ] |
|