Pergunta : Fazer uma seleção baseada na idade calculada da data de nascimento

Olá! os peritos,

I've começ uma tabela chamada “povos” em minha base de dados de MySQL que tem um campo chamado “data de nascimento” que as propriedades para este campo são “Vchar” e o formato é o dateformat europeu dd-milímetro-yyyy (ou 23-05-1964).

In minha relação que do PHP eu gostaria de dar ao usuário duas caixas da seleção onde pode escolher duas idades que funcionam de 6 a 16 jears velhos e submeter sobre a pergunta deve mostrar que somente os povos que combinam esse condition.

Can isto estejam feitos?  E como devo eu fazer este? a funcionalidade do

The é para uma relação que torne possível selecionar os membros da juventude baseados no theire para os envelhecer e mover em um team.

Thanks,

class= do

Resposta : Fazer uma seleção baseada na idade calculada da data de nascimento

Supor que todos os campos que o usuário poderia selecionar de cada um destas tabelas são o texto, tentativa:

strApply = “[” & strField & “] = """ & strFilter & """"

Se todos os campos que poderiam ser selecionados não são texto, a seguir você está indo ter que figurar para fora uma maneira de determinar o datatype do campo antes de criar strApply.  Você poderia usar uma função como o seguinte:

Função pública FieldType (TableName como a corda, Fieldname como a corda) como o inteiro

    strSQL não ofuscante como a corda
    Rs não ofuscantes como DAO.Recordset
   
    o strSQL = “SELECIONA [” & Fieldname & “] DE [” & TableName & “] ONDE falso”
    o strSQL = substitui (substituir (strSQL, “[[”, “["), “]]”, “] ")
   
    Ajustar rs = CurrentDb.OpenRecordset (strSQL, o dbfailonerror)
   
    FieldType = rs. Campos (0). Tipo
    rs. Fim
    Ajustar rs = nada
   
Terminar a função

E fazer então algo como:

intFieldType = FieldType (strReport, strField)
SELECIONAR o intFieldType do caso
    Encaixotar o dbBigInt, dbBoolean, dbByte, cbCurrency, dbDecimal, dbDouble, dbFload, dbInteger, dbLong, dbNumeric
        strApply = “[” & strField & “] =” & strFilter
    Caso dbChar, cbText, dbMemo
        strApply = “[” & strField & “] = """ & strFilter & """"
    dbDate do caso, dbTime
        strApply = “[” & strField & “] = #” & strFilter & “#”
    Caso mais
        msgbox “tipo de dados inesperado =” & intFieldType
        'Este deve incluir todos os valores
        strApply = ""
Extremidade seleta

me.subReport.Report.Filter = strApply
me.subReport.Report.FilterOn = (strApply <> "")