Skinnysite.net

... un modo di esprimersi.

Skip to content

Verificare la sintassi sql delle nostre query

Valutazione attuale:

/ 0

Dettagli: Categoria principale: Code Snippets; Categoria: ASP Classic; Pubblicato 29 Marzo 2012; Visite: 424

Questa piccola funzione permette di estrarre da un sql parametrico presente nella proprietà commandtext del comand e restituire una stringa sql pronta per essere lanciata dentro Sql Manager. Ovviamente questa funzionalità è utile solo in fase di debug.

'questa funzione analizza la proprietà commandtext del comando e restituisce una stringa
'che può essere lanciata in sql server
private function writeSQLCommand(cmd)
	dim prmValue, s, prm, pos

	s = cmd.CommandText
	s = replace(s, "{ call ", "")
	'ciclo su i parametri presenti nel comando della procedura
	for each prm in cmd.parameters
		prmValue = prm.value
		pos = instr(s, "?")
		
		'controllo quelli che sono di tipo stringa e gli metto gli apici
		select case prm.type
		case adChar, adVarChar, adWChar, adLongVarChar, adVarWChar, adLongVarWChar
			prmValue = " '" & prmValue & "',"
			s = replace(s, "?", prmValue, 1, 1)
		case else
			prmValue = " " & prmValue & ","
			s = replace(s, "?", prmValue, 1, 1)
		end select
	next

	writeSQLCommand = left(s, pos + len(prmValue)-2)
end function