Example 3 — Analysing a recordset

Option Explicit
 
Sub Main
    Dim rs As ADODB.Recordset
    Dim aiHnd As Long
 
    SQL.RunRecordset "SELECT TOP 250 * FROM Klanten WITH (READUNCOMMITTED) " & _
                     "WHERE Admin = 1 AND Deleted = 0", _
                     rs, adOpenKeyset, adLockReadOnly, adUseServer
 
    aiHnd = AI.NewConversation(aiGeneral)
    If aiHnd = 0 Then
        MsgBox "NewConversation failed: " & AI.LastErrorMessage, vbCritical
        Exit Sub
    End If
 
    If Not AI.AttachRecordset(aiHnd, rs, "Customers admin 1", _
                              aiRsAllRows, 1000, Array("Postcode", "Plaats")) Then
        MsgBox "AttachRecordset failed: " & AI.LastErrorMessage, vbCritical
        AI.CloseHandle aiHnd
        Exit Sub
    End If
 
    aiHnd = AI.Ask("Which towns have the most customers? Give a top 5.", , aiHnd)
    If aiHnd = 0 Then
        MsgBox "Submit failed: " & AI.LastErrorMessage, vbCritical
        Exit Sub
    End If
 
    Do
        DoEvents
    Loop Until AI.GetStatus(aiHnd) <> 1
 
    If AI.GetStatus(aiHnd) = 2 Then
        MsgBox AI.GetResultStr(aiHnd), vbInformation, "Analysis"
    Else
        MsgBox "<span style='color: #004080; font-weight: bold;'>Error</span>: " & AI.GetErrorMessage(aiHnd), vbCritical
    End If
 
    AI.CloseHandle aiHnd
    rs.Close
End Sub