drop table if exists wrk_simil_compare_methods;

create table wrk_simil_compare_methods(
        value1          varchar
        ,value2         varchar
        ,method         varchar
        ,simil_value    double precision
);


create or replace function generic_simil(
                        field_name      varchar
                        ,value2cmp      varchar
                        ,typeofvalue    varchar
                        ,algorithm      varchar
                        ,threshold      decimal
                        ) returns void as $$
begin
        execute
                'insert into wrk_simil_compare_methods select '
                || '''' || field_name || ''','
                || '''' || value2cmp || ''','
                || '''' || algorithm || ''','
                || algorithm || '('
                || '"' || field_name || '",'
                || '''' || value2cmp || '''' || ')'
                || ' from "tblContacts" where '
                || algorithm || '('
                || '"' || field_name || '",'
                || '''' || value2cmp || '''' || ')'
                || ' > ' || threshold;

end; $$ language 'plpgsql';

select generic_simil('Company', 'Dalibo', 'varchar', 'lev', 0.40);
select generic_simil('Company', 'Diolabo', 'varchar', 'lev', 0.40);
select generic_simil('Company', 'Libido', 'varchar', 'cosine', 0.40);
select generic_simil('Company', 'Oracle', 'varchar', 'cosine', 0.40);

select * from wrk_simil_compare_methods;

' execute SQL on server
Private Sub RunSQLOnServer(SQLStmt As String)

    Dim cnn As ADODB.Connection
    
    Set conn = New ADODB.Connection
    
    conn.ConnectionString = "DSN=PostgreSQL test;"
    
    ' MsgBox ("conn.ConnectionString = " & conn.ConnectionString)
    MsgBox ("SQLStmt sent to the server : " & SQLStmt)
    
    conn.Open

    conn.Execute SQLStmt

    Set conn = Nothing

End Sub