Cacher is the code snippet organizer for pro developers

       Case "btnKSMS"

      ' Local Fuzzy DB
      ' Column addressing not zero based
      ' Column ID zero will search all Columns

      ' Remote Fuzzy DB
      ' Column addressing not possible
      ' Any column ID will search all Columns - additional validation of results required to filter unwanted results.


            Dim sText As String
            sText = InputBox("Value")
            Dim oQueryResultsTMP As New CscXDocField

             'Set oQueryResultsTMP = FuzzyDBQuery(sText, "TBC", Project.Databases.ItemByName("CountryISOData_SMS"), 1)
             'Set oQueryResultsTMP = FuzzyDBQuery(sText, "TBC", Project.Databases.ItemByName("CountryISOData_CSV"), 1)
             Set oQueryResultsTMP = SQLDBQuery(Project.Databases.ItemByName("CountryISOData_SQL"), False, sText, "ISO2")

            If oQueryResultsTMP.Alternatives.Count > 0 Then
               MsgBox "Result Alternatives: " & CStr(oQueryResultsTMP.Alternatives.Count)
            End If