Automatizzare l'inserimento di recordset mediante procedure

[dreaman74]

Devo inserire circa 80 query in altrettanti campi all'interno di un database.
richiamo la procedura in questo modo:

DIM query
rsdescrizione.ADDNEW
call controlloQuery (request.form("carboidrati"), "rsdescrizione", "CARBOIDRATI")
call controlloQuery (request.form("lipidi"), "rsdescrizione", "LIPIDI")
call controlloQuery (request.form("proteine"), "rsdescrizione", "PROTEINE")
...
rsdescrizione.UPDATE

ecco la procedura:

Sub controlloQuery(valoreQuery, recordset, nomeCampo)
	
	IF len(valoreQuery) > 0 THEN
	query = recordset & "(""" & nomeCampo & """)" & "=" & valoreQuery
	END IF
	
End Sub

Come faccio ad avviare l'inserimento del recordset. Pensavo che bastasse ommetter l'assegnazione della variabile query in questo modo:

recordset & "(""" & nomeCampo & """)" & "=" & valoreQuery

Ma mi da errore.
Mi sto perdendo in un bicchiere d'acqua!

[Mems]

rsdescrizione lo devi passare senza "

[Mems]

rsdescrizione.ADDNEW
call controlloQuery (request.form("carboidrati"), rsdescrizione, "CARBOIDRATI")
call controlloQuery (request.form("lipidi"), rsdescrizione, "LIPIDI")
call controlloQuery (request.form("proteine"), rsdescrizione, "PROTEINE")
...
rsdescrizione.UPDATE

Poi:

Sub controlloQuery(valoreQuery, recordset, nomeCampo)
	
	IF len(valoreQuery) > 0 THEN
	recordset(nomeCampo) = valoreQuery
	END IF
	
End Sub

[dreaman74]

sono proprio cre...o infatti visto che si tratta di un oggetto...

grazie

[dreaman74]

ma mi da ancora errore di sintassi! io ho eliminato l'assegnazione della variabile
oltre ad avere eliminato gli apici per passare la varibile alla procedura!

l'errore è i nquesat linea della sub:
Sub controlloQuery(valoreQuery, recordset, nomeCampo)

IF len(valoreQuery) > 0 THEN
recordset & "(""" & nomeCampo & """)" & "=" & valoreQuery
END IF

End Sub

[Mems]

Originariamente inviato da dreaman74
ma mi da ancora errore di sintassi! io ho eliminato l'assegnazione della variabile
oltre ad avere eliminato gli apici per passare la varibile alla procedura!

l'errore è i nquesat linea della sub:
Sub controlloQuery(valoreQuery, recordset, nomeCampo)

IF len(valoreQuery) > 0 THEN
recordset & "(""" & nomeCampo & """)" & "=" & valoreQuery
END IF

End Sub

Ho risposto prima con l'intero codice corretto (secondo me...).

[dreaman74]

scusa non ti seguo ho corretto le chiamate alla sub i nquesto modo:

call controlloQuery (request.form("creatinamonoidrato"), rsdescrizione, "CREATINAMONOIDRATO")

come vedi ho eliminato gli apici

ma alla riga della sub per la memorizzazione della query nel recordset,
ricevo il messaggio di errore di sintassi.

[optime]

devi sistemare anche la sub

[dreaman74]

potresti essere più chiaro. parli del passaggio di parametri
o della riga in cui inserisco la query nel database?

[optime]

Originariamente inviato da dreaman74
potresti essere più chiaro. parli del passaggio di parametri
o della riga in cui inserisco la query nel database?

dreambello, un po' di attenzione pls. mems ti ha già dato la risposta. controlla la sub