PengLianJun
2022-01-15 20:57
采纳率: 100%
浏览 31

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

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

img

代码如下:

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 能提示 无记录)
不知道从何下手 请指导一下 给点思路也行
谢谢

  • 写回答
  • 好问题 提建议
  • 追加酬金
  • 关注问题
  • 邀请回答

1条回答 默认 最新

  • DarkAthena 2022-01-15 21:51
    最佳回答

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

    评论
    解决 1 无用
    打赏 举报

相关推荐 更多相似问题