Implement Phonetic ("Sounds-like") Name Searches with Double Metaphone Part I: Introduction & C++ Implementation

VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "VB Word DB Lookup - Double Metaphone Sample"
   ClientHeight    =   3975
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5070
   LinkTopic       =   "Form1"
   ScaleHeight     =   3975
   ScaleWidth      =   5070
   StartUpPosition =   3  'Windows Default
   Begin VB.ListBox lstResults 
      Height          =   2400
      Left            =   240
      TabIndex        =   4
      Top             =   1200
      Width           =   2175
   End
   Begin VB.CommandButton btnFind 
      Caption         =   "Search"
      Height          =   375
      Left            =   3360
      TabIndex        =   2
      Top             =   120
      Width           =   1575
   End
   Begin VB.TextBox txtSearchWord 
      Height          =   285
      Left            =   1200
      TabIndex        =   1
      Top             =   120
      Width           =   1935
   End
   Begin VB.Label Label2 
      Caption         =   "Results:"
      Height          =   255
      Left            =   120
      TabIndex        =   3
      Top             =   600
      Width           =   1335
   End
   Begin VB.Label Label1 
      Caption         =   "Search For:"
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   975
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub btnFind_Click()
    'Perform the search
    Dim searchWord As String
    
    searchWord = Trim(Me.txtSearchWord.Text)
    If Len(searchWord) = 0 Then
        MsgBox "You must enter a search word"
        Exit Sub
    End If
    
    Me.lstResults.Clear
    
    'Compute the double metaphone keys for the search word
    Dim mphone As New MetaphoneCOM.DoubleMetaphoneShort
    Dim primaryKey As Integer
    Dim alternateKey As Integer
    
    mphone.ComputeMetaphoneKeys searchWord, primaryKey, alternateKey
    
    'Search the database
    Dim oConn As New ADODB.Connection
    
    'Use the namelist.mdb Access database in the parent directory
    oConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\..\namelist.mdb"
    oConn.Open
    
    Dim oRS As ADODB.Recordset
    Dim strSql As String
    
    'Select from the Words table, which contains a list of names, and the
    'unsigned short representation of their Double Metaphone keys
    strSql = "select word from Words where"
    strSql = strSql & "(key1 = " & primaryKey & ")"
    strSql = strSql & " or (key2 = " & primaryKey & ")"
    If alternateKey <> MetaphoneKey.Invalid Then
        strSql = strSql & " or (key1 = " & alternateKey & ")"
        strSql = strSql & " or (key2 = " & alternateKey & ")"
    End If
    
    Set oRS = oConn.Execute(strSql)
    
    While Not oRS.EOF
        Me.lstResults.AddItem oRS("word")
        oRS.MoveNext
    Wend
    
    oConn.Close
End Sub