[VB.NET] Utilizzare una funzione all'interno di una query di selezione...

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra

Module Algoritmo
    Function Min3(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer) As Integer
        Dim temp As Integer
        temp = a
        If b < temp Then temp = b
        If c < temp Then temp = c
        Min3 = temp
    End Function

    'algoritmo di Levenshtein per calcolare la similitudine tra due stringhe
    Public Function Levenshtein(ByVal a As String, ByVal b As String) As Integer
        Dim d(,) As Integer
        Dim i As Integer, j As Integer
        Dim c As Integer


        If Len(a) = 0 Then
            Levenshtein = Len(b)
            Exit Function
        End If

        If Len(b) = 0 Then
            Levenshtein = Len(a)
            Exit Function
        End If

        ReDim d(0 To Len(a), 0 To Len(b))

        For i = 0 To Len(a)
            d(i, 0) = i
        Next i

        For j = 0 To Len(b)
            d(0, j) = j
        Next j

        For i = 1 To Len(a)
            For j = 1 To Len(b)
                If Mid$(a, i, 1) = Mid$(b, j, 1) Then
                    c = 0
                Else
                    c = 1
                End If
                d(i, j) = Min3(d(i - 1, j) + 1, d(i, j - 1) + 1, d(i - 1, j - 1) + c)
            Next j
        Next i
        Levenshtein = d(Len(a), Len(b))
    End Function

End Module

cmd.ExecuteNonQuery()