Limpando Objeto/variável

[xanburzum 169]

A declaração limpar redefine uma variável de vazio ou uma referência ao objeto Nothing.

 

com usar:

limpar varivel

 

exemplo:

 

<%
Dim mystring, objCn

 ' limpar uma string e configurá-lo para esvaziar ou unutiliza-la...
varstring = "teste"
limpar varstring 
 ' equivalente: varstring = Empty

 ' definir uma referência ao objeto Nothing, libertando-a de memória ...
Set objCn = Server.CreateObject("ADODB.Connection")
limpar objCn
 ' equivalente: Set objCn = Nothing
%>

 

code:

<%
Private Sub limpar(byRef string)
	If IsObject(string) Then 
		Set string = Nothing
	Else
		string = Empty
	End If
End Sub
%>

[hargon 64]

Interessante a função Xan.

 

Já faço isso, mas durante o código. A ideia da função foi boa.

[Mário Monteiro 179]

sinceramente acho mais simples limpara no codigo mesmo

 

mas para quem quiser fica a dica

[jrcardozo 4]

eu uso essa criada por um amigo:

 

Function destruirObjeto(ByRef objeto)
		Dim tipoObjeto
		tipoObjeto = LCase(TypeName(objeto))
		If tipoObjeto = "connection" Or tipoObjeto = "recordset" Then
			If objeto.State <> 0 Then
				objeto.Close()
			End If
		End if
		Set tipoObjeto	=	Nothing
		Set objeto			=	Nothing
	End Function

funciona pra qualquer tipo de objeto ou variavel, fechando quando necessário e destruindo