Getting Error: ObjectDisposedException was unhandled...Safe handle has been closed

[shad3jd]

Hi everyone, first post here AND new to VB.NET .. So please excuse any goofs that follow!

I have written a simple console application that extracts data from multiple XML files and inserts the data into a table which resides on our AS/400. All of the code appears to be working correctly and all the data which I expect from the XML files does end up in the table on the 400 ... But when the project is finishing/closing, I get this error thrown at me: ObjectDisposedException was unhandled ... Safe handle has been closed

I am on .NET 2005 on an XP machine. Below is the code that I am using (Also, I am SURE that there are BETTER ways to go about doing what I'm doing ... But hey, I'm learning here!!!). If there is more information needed from me, just let me know ... And thanks in advance for any help on this.

Module Module1
    Sub Main()
        Dim obj400Conn As New _
        iSeries.iDB2Connection("DataSource=SOURCE;DefaultCollection=COLLECTION;userid=ID;password=PASS;")
 
        Dim objAdapter As iSeries.iDB2DataAdapter
        Dim objDataRowH, objDataRowD, objDBRow As DataRow
        Dim objDSXML As New DataSet()
        Dim objDSDBTable As New DataSet("F55FLFBP")
        Dim ObjCmdBuilder As iSeries.iDB2CommandBuilder
 
        For Each File As IO.FileInfo In New System.IO.DirectoryInfo("\\XMLDIR\").GetFiles
            objDSXML.Tables.Clear()
            objDSXML.ReadXml("\\XMLDIR\" & File.Name)
            obj400Conn.Open()
 
            objAdapter = New iSeries.iDB2DataAdapter("SELECT BP55FLTID, BPANI, BPTOTA, BP55FLSCAC, BP55FLVND#, BP55FLBOL, BP55FLFBN, BP55FLFBD, BPURCD FROM TSTDATA.F55FLFBP", obj400Conn)
            objAdapter.Fill(objDSDBTable, "F55FLFBP")
            Dim keyColumn(2) As DataColumn
            keyColumn(0) = objDSDBTable.Tables(0).Columns("BP55FLTID")
            keyColumn(1) = objDSDBTable.Tables(0).Columns("BPANI")
            objDSDBTable.Tables(0).PrimaryKey = keyColumn
 
            For Each objDataRowH In objDSXML.Tables(0).Rows
                With objDSDBTable.Tables(0)
                    For Each objDataRowD In objDSXML.Tables(1).Rows
                        If objDataRowH(0) = objDataRowD(0) Then
                            objDBRow = .NewRow()
                            objDBRow(0) = objDataRowH(0)
                            objDBRow(1) = objDataRowD(1)
                            objDBRow(2) = objDataRowD(2) * 100
                            objDBRow(3) = objDataRowH(1)
                            objDBRow(4) = objDataRowH(2)
                            objDBRow(5) = objDataRowH(3)
                            objDBRow(6) = objDataRowH(4)
                            objDBRow(7) = objDataRowH(5)
                            objDBRow(8) = "N"
                            .Rows.Add(objDBRow)
                        End If
                    Next
                End With
            Next
 
            ObjCmdBuilder = New iSeries.iDB2CommandBuilder(objAdapter)
            objAdapter.Update(objDSDBTable, "F55FLFBP")
            obj400Conn.Close()
 
            'Move XML file from Processing DIR to Archive DIR
            IO.File.Move("\\XMLDIR\" & File.Name, "\\XMLDIR\Archive\" & File.Name)
 
        Next
End Sub
End Module
 

[Frinavale]

Hi everyone, first post here AND new to VB.NET .. So please excuse any goofs that follow!

I have written a simple console application that extracts data from multiple XML files and inserts the data into a table which resides on our AS/400. All of the code appears to be working correctly and all the data which I expect from the XML files does end up in the table on the 400 ... But when the project is finishing/closing, I get this error thrown at me: ObjectDisposedException was unhandled ... Safe handle has been closed

I am on .NET 2005 on an XP machine. Below is the code that I am using (Also, I am SURE that there are BETTER ways to go about doing what I'm doing ... But hey, I'm learning here!!!). If there is more information needed from me, just let me know ... And thanks in advance for any help on this.
...

If you recreate a resource many times the deconstructor for that object isn't called to dispose of any of the resources no longer being used or referenced. This is why we normally call the Dispose() function whenever we're done using a resource like a database connection.

If you create an object on the managed heap that allocates resources such as handlers or connections, then you must ensure that the object has released its resources before allowing the garbage collection to recycle the object.

It sounds like you are letting the garbage collector recycle objects that are used by other resources. It could be your database handers or even your file reference resources.

I'd look at your code a little more but I don't have time right now so I'll leave you with thinking about manually managing when objects are disposed of.

I recommend looking up the IDisposable interface.
Check out this link to find out why this is so important. It might also shed some light on your error.

Cheers!

-Frinny

[shad3jd]

Thanks much for the reply back Frinavale! I read through the article, trying to expand my .NET knowhow a bit more (I found most of it a bit of it over my head unfortunatley...I have been working with VB & .NET for only a couple weeks).

Anywho, I have gotten to the source of my error (Or so I think for now). I did not have the latest Service Pack (SI26879) installed for my IBM Client Access version (V5R4M0). Once I installed the service pack, the error was gone with no modification done to the code.

-Shad3JD

[Frinavale]

Thanks much for the reply back Frinavale! I read through the article, trying to expand my .NET knowhow a bit more (I found most of it a bit of it over my head unfortunatley...I have been working with VB & .NET for only a couple weeks).

Anywho, I have gotten to the source of my error (Or so I think for now). I did not have the latest Service Pack (SI26879) installed for my IBM Client Access version (V5R4M0). Once I installed the service pack, the error was gone with no modification done to the code.

-Shad3JD

Congratz Shad3JD!

:)