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