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

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

2 个答案: