Vraag : Maak een selectie die op leeftijd wordt gebaseerd die vanaf geboortedatum wordt berekend

Hallo hebben de Deskundigen,

I een lijst genoemd „mensen“ in mijn gegevensbestand MySQL dat een gebied genoemd „geboortedatum heeft“ de eigenschappen voor dit gebied „Vchar“ zijn en het formaat Europese dd-mm-yyyy dateformat (of 23-05-1964) is.

In mijn PHP interface die ik zou willen om de gebruiker twee selectiedozen geven waar hij kan twee leeftijden plukken die van van 6 tot 16 oude jears lopen en de vraag voorleggen zou moeten slechts mensen tonen die dat condition.

Can aanpassen dit wordt gedaan?  En hoe zou ik dit moeten doen? de functionaliteit

The is voor een interface die mogelijk het om de jeugdleden maakt te selecteren op theireleeftijd worden gebaseerd en hen te bewegen die in een team.

Thanks,

Antwoord : Maak een selectie die op leeftijd wordt gebaseerd die vanaf geboortedatum wordt berekend

Veronderstellend dat alle gebieden de gebruiker waaruit in elk van deze lijsten kon selecteren tekst zijn, probeer:

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

Als alle gebieden die zouden kunnen worden geselecteerd geen tekst zijn, dan gaat u een manier moeten berekenen om datatype van het gebied te bepalen alvorens strApply tot te leiden.  U kon een functie als het volgende gebruiken:

Overheidsfunctie FieldType (TableName als Koord, Fieldname als Koord) als Geheel

    Schemerige strSQL als Koord
    Schemerige rs als DAO.Recordset
   
    strSQL = „SELECTEER [“ & Fieldname & „] VAN [“ & TableName & „] WAAR Vals“
    strSQL = vervang (vervang (strSQL, „[[“, „[“), „]]“, „]“)
   
    Plaats rs = CurrentDb.OpenRecordset (strSQL, dbfailonerror)
   
    FieldType = rs. Gebieden (0). Type
    rs. Sluit
    Plaats rs = niets
   
Beëindig Functie

En doe dan iets als:

intFieldType = FieldType (strReport, strField)
SELECTEER Geval intFieldType
    Geval dbBigInt, dbBoolean, dbByte, dbNumeric dbDouble cbCurrency, dbDecimal, dbFload, dbInteger, dbLong,
        strApply = „[“ & strField & „] =“ & strFilter
    dbChar geval, cbText, dbMemo
        strApply = „[“ & strField & „] = """ & strFilter & """"
    Geval dbDate, dbTime
        strApply = „[“ & strField & „] = #“ & strFilter & „#“
    Geval anders
        msgbox „Onverwacht gegevenstype =“ & intFieldType
        'Dit men zou alle waarden moeten omvatten
        strApply = ""
Uitgezocht eind

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