LarianaWeb risorse - creazione siti web

Stored Procedures Parametriche

ASP: automatizzare le query su database Access utilizzando le stored procedures

Questa brevissima routine permette di automatizzare e generalizzare (due concetti sempre fondamentali nella programmazione) una query su database Access per mezzo di stored procedures parametriche.

La funzione accetta 3 parametri:

La connessione attiva (precedentemente creata)
Il nome della stored procedure
Un array bidimensionale contentente uno per uno i parametri da inviare alla query insieme al valore e al cast della variabile

Un ulteriore parametro è il recordset, precedentemente dichiarato e settato.

Dall'interno di questa textarea puoi copiare lo script (funzione e pagina di prova) e prelevarlo

Function StoredProcedureAccess(ByRef Connection,ByVal NomeQuery,ByRef ArrayParametri,ByRef ResultRs)
	TipoStoredProcedure			= 4 ' costante adCmdStoredProc  nel adovbs.inc
	ParametroInput     			= 1 ' costante adParamInput     nel adovbs.inc
	Set Command 				= Server.CreateObject("ADODB.Command")
	Command.ActiveConnection 	= Connection	'Imposto la connessione attiva
	Command.CommandText 		= NomeQuery		'Nome della stored procedure in Access
	Command.CommandType 		= TipoStoredProcedure
	'Scorro l'array bidimensionale alla ricerca dei parametri da inviare all'oggetto Command	
	For riga = 0 To UBound(ArrayParametri, 2) ' il numero della prima dimensione è variabile
		NomeParametro = null : ValoreParametro = null : TipoParametro = null
		NomeParametro 	= ArrayParametri(0,riga)
		ValoreParametro	= ArrayParametri(1,riga)
		TipoParametro	= ArrayParametri(2,riga)
		'Dichiaro il parametro creandolo parametrico con il metodo Execute
		if not isNull(NomeParametro) and not isNull(valoreParametro) and not isNull(TipoParametro) then 
			Execute("Dim Parametro" & riga )
			'Lo instanzio
			Execute("Set Parametro" & riga & "= Command.CreateParameter(NomeParametro,TipoParametro,ParametroInput)")
			'Imposto il valore del parametro
			Execute("Parametro" & riga  & ".Value = ValoreParametro")
			'Lo appendo all'oggetto Command
			Execute("Command.Parameters.Append 	Parametro" & riga) 
			'Elimino dalla memoria l'oggetto
			Execute("Set Parametro" & riga & "= nothing") 
		end if 
	Next
	'Valorizzo l'oggetto passato come parametro alla funzione trasformandolo in recordset
	Set ResultRs 				= Command.Execute
	'Pulisco la memoria
	Set Command					= Nothing
End Function

-------------------------------------------------------------

Dim Rs,Connection
Set Connection		 			= Server.CreateObject("ADODB.Connection")
'Apro la connessione
Connection.Open 	   			"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/") & "\mdb-database\stored_proc.mdb"
'Creo l'array bidimensionale che contiene i parametri, i valori dei parametri ed il cast dei parametri
Dim ArrParameters(2,1)
ArrParameters(0,0) 				=  "id"      ' Nome del primo parametro
ArrParameters(1,0) 				=  3 		 ' Valore del primo parametro (numero cliente = 2)
ArrParameters(2,0) 				=  3		 ' Tipo del primo parametro (3 = intero - in adobvs Const adInteger)
ArrParameters(0,1) 				=  "od"		 ' Nome del secondo parametro
ArrParameters(1,1) 				=  "Sospesa" ' Valore del secondo parametro (Condizione_Fattura = 'sospesa')
ArrParameters(2,1) 				=  12  		 ' Tipo del secondo parametro (12  = in adobvs Const adVariant )
'Lancio la funzione 
StoredProcedureAccess			Connection,"LOURDES",ArrParameters,Rs

SVILUPPO:

'A questo punto puoi scorrere il recordset come fate normalmente
While not Rs.eof 
	Response.Write				"Data Fattura: " 	& Rs("Data") 			& " "
	Response.Write				"Id Fattura: " 		& Rs("keyFattura") 		& " "
	Response.Write 				"Totale Importo: " 	& Rs("Importo_Totale") 	& "<hr>"
	Rs.movenext
Wend
Connection.Close
Set Connection 					= Nothing

...non dimenticare i tag di apertura e chiusura di VBScript!

Scarica la lezione sulle stored procedures

(script creato da Stefano "kluster": per ogni informazione contattalo!)

Torna alla homepage