VBA 使用”adodb“在SQL数据库中查询数据问题

Question

刚接触VBA 有个问题不太懂 请教一下。
查询表格界面如图：

代码如下：

Set cnn = CreateObject("adodb.connection")
Set rst = CreateObject("adodb.Recordset")
If Application.Version < 12 Then
Str_cnn = "Provider=SQLOLEDB.1;Password=123456!@#;User ID=sa;Data Source=127.0.0.1,8829;"
Else
Str_cnn = "Provider=SQLOLEDB.1;Password=123456!@#;User ID=sa;Data Source=127.0.0.1,8829;"
End If
i = 2
Do While Range("A" & i) <> ""
cnn.Open Str_cnn
str = ActiveSheet.Range("A" & i).Value
Sql = "Select T0.FG,T0.RM,T0.TOOL,T0.SP,T1.ItemDefine2,T1.ItemStop From WindStocks.dbo.ItemStocksQtybyWhs AS T0  Right OUTER JOIN  WindStocks.dbo.ItemTable AS T1 ON T0.ItemNo=T1.ItemNo Where T0.ItemNo = '" & str & "'"
rst.Open Sql, cnn, 1, 3
Range("B" & i).CopyFromRecordset rst
rst.Close
cnn.Close
i = i + 1
Loop
Set rst = Nothing
Set cnn = Nothing
End Sub

现在想在代码中增加一项功能 ：（一旦在A列单元格输入SQL中没有的记录时 Msgbox 能提示 无记录）
不知道从何下手 请指导一下 给点思路也行
谢谢

Answer 1

你可以取这个数据的行数,然后去判断这个行数是否等于0,如果等于0,则弹窗确认,确认里直接退出正在运行的代码