Unhandled exception

[nyoussef]

When I run below sample code I get the error message "attempted to read write
protected memory. This is often an indication that other memory is corrupt"
if the records reteived from the DB exceeds 300 or 400 records:

'VB libraries
Imports EX_MaDll

'System libraries
Imports System.IO
Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports System.Data.OracleClient

Public Class frm_EOD

(Truncated code)

Private Sub But_EncBills_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles But_EncBills.Click

(...Declaration)

ORC_Command1.CommandText = "SELECT BILL_NO
AS BILL_NO, CASE WHEN signature IS NULL THEN 'NULL'
ELSE signature END AS BILL_SIG, bill_amount
AS BILL_AMNT, CASE WHEN RUN_DATE IS NULL THEN 'NULL'
ELSE RUN_DATE END AS RUN_DATE, CASE WHEN key_ref IS NULL THEN 'NULL'
ELSE key_ref END AS KEY_REF, create_date
AS CREATE_DATE, drawee_Acct_no
AS RIB_TIRE FROM (SELECT BILL_NO, signature,
bill_amount, " & _
" RUN_DATE, " & _
" key_ref, " & _
" create_date, " & _
" drawee_Acct_no, rownum as NUMERO " & _
"FROM V_OUT_BILL " & _
"WHERE CODE_VALUE = 41)

ORC_Command1.Connection = db_Oracle_Conn
ORC_Command1.CommandType = CommandType.Text
Rs_Orc1 = ORC_Command1.ExecuteReader

While Rs_Orc1.Read()
Dim f_AuthentiferSignerLDC As New EX_MaDll.clsSub
ResignResult =
f_AuthentiferSignerLDC.AuthentifierSignerLDC(Path_Past_Key_Loop,
Path_Current_Key, Path_Local_CatPak + Bill_Num, Path_Local_CatPak + Bill_Num)
End While
Rs_Orc1.Close()
End Sub

 

[Scott M.]

Try not creating a new instance of EX_MaDll.clsSub in your while loop.
Instead declare & instantiate f_AuthentiferSignerLDC prior to the loop and
then just assign the variable in the loop.

 

[nyoussef]

I already tried this solution with some result.

Try not creating a new instance of EX_MaDll.clsSub in your while loop.
Instead declare & instantiate f_AuthentiferSignerLDC prior to the loop and
then just assign the variable in the loop.