Automatizzare l'inserimento di recordset mediante procedure

[Mems]

Originariamente inviato da 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]

Grazie... 1000...