Database - tabelle Parameters

Tabelle # parameters !!
nel seguente esempio vengono illustrati gli oggetti parameter e l'insieme parameters mediante la creazione di un oggetto querydef temporaneo ed il recupero dei dati in base alle modifiche apportate all'insieme parameters dell'oggetto querydef. per eseguire questa routine e' necessaria la routine modificaparametri.
sub parameterx()
Dim dbsnorthwind As database
Dim qdfreport As querydef
Dim prminizio As parameter
Dim prmfine As parameter
Set dbsnorthwind = opendatabase("northwind.mdb")
' crea un oggetto querydef temporaneo con

' due parametri.

Set qdfreport = dbsnorthwind.createquerydef("", _
"parameters dteinizio datetime, dtefine datetime; " & _
"select idimpiegato, count(idordine) as numordini " & _
"from ordini where dataspediz between " & _
"[dteinizio] and [dtefine] group by" idimpiegato " & _
"order by idimpiegato")
Set prminizio = qdfreport.parameters!dteinizio
Set prmfine = qdfreport.parameters!dtefine
' stampa il report utilizzando i valori dei parametri specificati.

modificaparametri qdfreport, prminizio, #1/1/95#,_
prmfine, #6/30/95#
modificaparametri qdfreport, prminizio, #7/1/95#,_
prmfine, #12/31/95#
dbsnorthwind.close
End Sub

Sub modificaparametri(qdftemp As querydef, _
prmprimo As parameter, dteprima As date, _
prmultimo As parameter, dteultima As date)
' funzione di report per parameterx.

Dim rsttemp As recordset
Dim fldciclo As field
' imposta il valore dei parametri ed apre il set

' di record dall'oggetto querydef temporaneo.

prmprimo = dteprima
prmultimo = dteultima
Set rsttemp = _
qdftemp.openrecordset(dbopenforwardonly)
debug.print "periodo " & dteprima & " a " & dteultima
' enumera il set di record.

Do While Not rsttemp.eof
' enumera l'insieme fields di recordset.

For Each fldciclo In rsttemp.fields
debug.print " - " & fldciclo.name & " = " & fldciclo;
Next fldciclo
debug.print
rsttemp.movenext
Loop
rsttemp.close
End Sub