citas

private Function posiblesParejasEnProvincia(pBuscador as Double, codProd as Double, sexoBuscado as Integer) as Double
Dim result as Double
Dim rsPersona as Recordset
Dim strCriterio as String

set rsPersona = oDB.OpenRecordset("Persona", dbOpenDynaset)

strCriterio = "per_Codigo <>" & pBuscador & "AND per_Provincia =" & codProd & "AND per_Sexo =" & sexoBuscado &"AND " &
buscarSexo(pBuscador) & "=" & "per_SexoBuscado AND " & "per_activo =" & "true"


result = 0

rsPersona.findfirst strCriterio

Do while not rs.Persona.noMatch strCriterio
    result = result + 1
    rsPersona.findNext strCriterio
loop

rsPersona.close

set rsPersona = nothing

posiblesParejasEnprovincia = result

end Function

private Function buscarSexo (pBuscador as Double) as Double
Dim rsPersona as Recordset
Dim strCriterio as String
Dim result as Double

set rsPersona = oDB.OpenRecordset("Persona", dbOpenDynaset)

strCriterio = "pBuscador =" & per_Codigo

rsPersona.findfirst strCriterio

if not rsPersona.noMatch then
    result = rsPersona(per_Sexo)
end if

rsPersona.close

set rsPersona = nothing

buscarSexo = result

End Function



private sub obtenerAmigosPorNombre(pBuscador as Double, strNombre as String, indicador as Boolean, lstAmigos as ListBox)
dim strCriterio as String
dim rsPersona as Recordset

set rsPersona = oDB.OpenRecordset("Persona",dbOpenDynaset)

If indicador = true Then
    strCriterio = esAmigo(pBuscador,per_Codigo) "AND per_Nombre like 'strNombre & '*' AND" & "per_Activo =" & "true"
    else
    strCriterio = "per_Nombre like 'strNombre & '*' AND" & "per_Activo =" & "true"
End If

rsPersona.findfirst strCriterio

lstAmigos.clear

Do While not rsPersona.noMatch
    lstAmigos.AddItem rsPersona("per_Nombre")
    lstAmigos.ItemData(lstAmigos.newIndex) = rsPersona("per_Codigo")
    rsPersona.findNext strCriterio
Loop

rsPersona.close

set rsPersona = nothing

end sub


private Function esAmigo(pBuscador as Double, perCodigo as Double) as Boolean

dim rsAmistades as Recordset
dim strCriterio as String
dim result as Boolear


set rsAmistades = oDB.OpenRecordset("Amistades", dbOpenDynaset)

strCriterio = "(ami_origen = " & pBuscador & " AND" " ami_destino = " & perCodigo & ") OR (ami_origen = " & perCodigo & " AND " & "ami_destino = "
& pBuscador & ")"

rsAmistades.findfirst strCriterio

Do While not rsAmistades.noMatch
    result = true
    rsAmistades.findNext strCriterio
Loop

rsAmistades.close

set rsAmistades = nothing

esAmigo = result

End Function