Excel VBA, connexion ADO, renvoie la date si elle existe ou la date disponible précédente

Question

J'ai ouvert une nouvelle connexion ADODB et définir un nouveau jeu d'enregistrements qui ont des dates dans le premier champ et des valeurs dans le deuxième champ.

• 01/01/2016
• 02/01/2016
• 04/01/2016
• 05/01/2016

Je vais construire la fonction myfunction(mydate) qui devrait renvoyer la date disponible maximale qui est égale ou inférieure (plus tôt) à mydate:

myfunction(mydate as date) 
Dim CurrentDate as Date 

Set rst = cn.Execute("SELECT * FROM tbl1 ORDER BY dates;") 
CurrentDate = worksheetfunction.INDEX(rst.Fields(0),worksheetfunction.MATCH(CDate(CurrentDate),rst.Fields(0), 1)) 

myfunction = CurrentDate 
end function 

Les résultats devraient être

• myfunction ("01/02/2016") = 01/02/2016
• myfunction ("01/03/2016") = 02/01/2016

Cela fonctionne sur Excel Speadsheet, mais il donne une erreur "Impossible d'obtenir la propriété Match de WorksheetFunction". Existe-t-il un autre moyen d'obtenir le résultat en utilisant ce tableau?

Answer 1

Vous pouvez essayer si vous faites plusieurs enregistrements:

Function myfunction(mydate as date) as date 
    Dim CurrentDate as Date 
    Set rst = cn.Execute("SELECT TOP 1 * FROM tbl1 WHERE (dates<=" & Format(mydate, "#mm/dd/yyyy#") & ") ORDER BY tbl1.dates DESC;") 
    if not rst.EOF then 
     CurrentDate = rst.Fields(0) 
    else 
     'No record found 
    endif 
    myfunction = CurrentDate 
end function 

Answer 2

Vous pouvez essayer la méthode de recherche recordset:

rst.movefirst 
rst.find "datecolumnname >= " & mydate 
If rst.BOF = false then 
    myfunction = rst.fields(0) 
Else 
    Set myfunction = nothing 
Endif