vb6 - 如果 SQL 查询在 VB6 中不返回任何内容或超时，如何显示消息

Question

我有一个旧的 VB6 应用程序，我必须在其中优化查询运行时间。我成功地做到了这一点，但我想添加一个字段以在查询不返回任何内容或查询超时时显示消息。
您可以发布链接或显示一些可以提供帮助的示例代码吗？我几乎没有使用 VB6 或 ADO 的经验，因此将不胜感激任何帮助或指导。

这是执行查询的代码。

'Execute the query.
If ADOConnect(moConn, moParms) Then
    Set moRS = moConn.Execute(sSql)
End If

到目前为止，这是我想出的。

'Test if results are null
If IsNull(sSql) Then
    MsgBox "null"

谢谢

Answer 1

关于什么

moConn.ConnectionTimeout = 300
If ADOConnect(moConn, moParms) Then
    Set moRS = moConn.Execute(sSql)
End If

If moRS.RecordCount = 0 Then
    MsgBox "no record"

Answer 2

If moRS.EOF then
    MsgBox "null"
End If

循环遍历它：

Do While Not moRS.EOF
   dim colA = moRS("colA")
   moRs.MoveNext()
Loop