I have a vb.net program that calls an AS400 program using the IBMDA400 data provider in the connection string:
Provider=IBMDA400.DataSource.1;Data Source=s1034faa;Persist Security Info=True;User ID=xxxxxxxx;Password=xxxxxxxx
This seems to work correctly and connects to the AS400. The job can be found in the WRKACTJOB screen on the AS400.
Subsystem/Job User Type CPU % Function Status
QZDASOINIT DCOMPERINI PJ .1 DLY-17 DLYW
Dim recon As New OleDb.OleDbConnection(My.Settings.As400Conn2)
Try
recon.Open()
Using recom As New OleDb.OleDbCommand("CALL AFGOBJST.UPL103CT", recon)
recom.ExecuteNonQuery()
End Using
recon.Close()
recon.Dispose()
After calling the AS400, the connection is closed and disposed:
The problem is the connection to the AS400 remains active. Only after the program ends does this connection go away. I do not want this program to end rather it should loop in a timer cycle.
The connection only terminates when the program terminates. Why would the .close and .dispose not terminate this connection? Any suggestions?
Thanks,
Daniel Comperini
Provider=IBMDA400.DataSource.1;Data Source=s1034faa;Persist Security Info=True;User ID=xxxxxxxx;Password=xxxxxxxx
This seems to work correctly and connects to the AS400. The job can be found in the WRKACTJOB screen on the AS400.
Subsystem/Job User Type CPU % Function Status
QZDASOINIT DCOMPERINI PJ .1 DLY-17 DLYW
Dim recon As New OleDb.OleDbConnection(My.Settings.As400Conn2)
Try
recon.Open()
Using recom As New OleDb.OleDbCommand("CALL AFGOBJST.UPL103CT", recon)
recom.ExecuteNonQuery()
End Using
recon.Close()
recon.Dispose()
After calling the AS400, the connection is closed and disposed:
The problem is the connection to the AS400 remains active. Only after the program ends does this connection go away. I do not want this program to end rather it should loop in a timer cycle.
The connection only terminates when the program terminates. Why would the .close and .dispose not terminate this connection? Any suggestions?
Thanks,
Daniel Comperini