microsoft.public.inetserver.asp.general

Miha Markic

10/23/2007 7:04:00 PM

Well, no, if your combo is a global variable and you don't clear its items.

--
Miha Markic [MVP C#, INETA Country Leader for Slovenia]
RightHand .NET consulting & development www.rthand.com
Blog: http://cs.rthand.com/blogs/blog_with_...
"Jerry" <jhaynes75@hotmail.com> wrote in message news:e5U65dZFIHA.5228@TK2MSFTNGP05.phx.gbl...
I've tried profiling the code with AntsProfiler (and many others), but I
have NO IDEA what I'm looking at there. Am I wrong in assuming the memory
in use should return to the value before the subroutine executes if all the
variables are terminated properly?

"Miha Markic" <miha at rthand com> wrote in message news:O0XD9AZFIHA.5360@TK2MSFTNGP03.phx.gbl...
You should try profiling with a memory profiler to see who is holding the objects, if actually somebody is holding them.

--
Miha Markic [MVP C#, INETA Country Leader for Slovenia]
RightHand .NET consulting & development www.rthand.com
Blog: http://cs.rthand.com/blogs/blog_with_...
"Jerry" <jhaynes75@hotmail.com> wrote in message news:Om1%23awXFIHA.484@TK2MSFTNGP06.phx.gbl...
I have a simple subroutine (see below) which reads a table and populates the items of a combobox. As the subroutine is executed, I'm watching the taskmanager and the memory in use increases; however, once I get to the Error_Exit: logic and start to close and dispose my memory variables, the memory is not released and does not decrease in the task manager. Why is that? Eventually, my program is giving me "Insufficient memory" errors.

****************************************************************************************

On Error GoTo Error_Handling

Dim cnn As New Odbc.OdbcConnection
Dim cmd As New Odbc.OdbcCommand
Dim rdr As Odbc.OdbcDataReader

cnn.ConnectionString = "dsn=" & accpac_companyid
cnn.Open()
cmd.Connection = cnn
cmd.CommandText = "select schedkey, scheddesc from cssktb order by schedkey"
rdr = cmd.ExecuteReader

Do While rdr.Read
combo.Items.Add(rdr("schedkey").ToString.Trim)
Loop

Error_Exit:
If Not IsNothing(rdr) Then
rdr.Close()
cmd.Connection.Close()
cmd.Dispose()
cnn.Close()
cnn.Dispose()
End If

rdr = Nothing
cmd = Nothing
cnn = Nothing
Exit Sub

Error_Handling:
Select Case Err.Number
Case Else
MsgBox("The following error occured in LoadSchedules()" & vbCrLf & Err.Description)
End Select

Resume Error_Exit