È possibile passare i parametri a livello di programmazione in una query di aggiornamento di Microsoft Access?

Question

Ho una query piuttosto ampia, che unisce più di una dozzina di tabelle e desidero ritirare i record in base a un campo ID (ad esempio: between nStartID and nEndID).

Ho creato due parametri e li ho testati come criteri e funzionano bene.

Il problema è che ho bisogno di eseguire una query di inserimento da questa query principale, e ho bisogno dei parametri dove sono, nella query principale. Quindi, ho bisogno di passare i parametri ad esso a livello di programmazione.

Qualcuno ha idea di come questo può essere fatto?

Grazie.

Answer 1

Ho appena provato questo e funziona in Access 2010.

Diciamo che avete una query di selezione con i parametri:

PARAMETERS startID Long, endID Long; 
SELECT Members.* 
FROM Members 
WHERE (((Members.memberID) Between [startID] And [endID])); 

Si esegue la query in modo interattivo e vi verrà chiesto di [startID] e [ endID]. Funziona, quindi si salva quella query come [MemberSubset].

Ora si crea una query di aggiornamento basata su quella query:

UPDATE Members SET Members.age = [age]+1 
WHERE (((Members.memberID) In (SELECT memberID FROM [MemberSubset]))); 

Si esegue la query in modo interattivo e di nuovo viene richiesta [startID] e [endID] e funziona bene, quindi si salva come [MemberSubsetUpdate].

È possibile eseguire [MemberSubsetUpdate] dal codice VBA specificando i valori [startID] e [endID] come parametri su [MemberSubsetUpdate], anche se in realtà sono parametri di [MemberSubset]. Quei valori dei parametri "trickle down" per cui sono necessari, e la query non funzionano senza l'intervento umano:

Sub paramTest() 
    Dim qdf As DAO.QueryDef 
    Set qdf = CurrentDb.QueryDefs("MemberSubsetUpdate") 
    qdf!startID = 1 ' specify 
    qdf!endID = 2 '  parameters 
    qdf.Execute 
    Set qdf = Nothing 
End Sub 

Answer 2

Molte grazie per le informazioni sull'utilizzo del QueryDefs! Mi sono chiesto questo per un po '.

Ho fatto un modo diverso, senza utilizzare VBA, utilizzando una tabella contenente i parametri di query.

Esempio: SELEZIONA a_table.a_field DA queryparameters, a_table DOVE a_table.a_field TRA QueryParameters.a_field_min E QueryParameters.a_field_max

Dove queryparameters è una tabella con due campi, a_field_min e a_field_max

Si può anche essere utilizzato con GROUP BY, se si includono i campi del parametro di query nella clausola GROUP BY e l'operatore FIRST nei campi dei parametri nella clausola HAVING.

Answer 3

Provare a utilizzare QueryDefs. Crea la query con i parametri. Quindi usa qualcosa del tipo:

Dim dbs As DAO.Database 
Dim qdf As DAO.QueryDef 

Set dbs = CurrentDb 
Set qdf = dbs.QueryDefs("Your Query Name") 

qdf.Parameters("Parameter 1").Value = "Parameter Value" 
qdf.Parameters("Parameter 2").Value = "Parameter Value" 
qdf.Execute 
qdf.Close 

Set qdf = Nothing 
Set dbs = Nothing 

Answer 4

Puoi anche usare TempVars - nota '!' la sintassi è essenziale