Unconfigured Ad Widget

Collapse

Announcement

Collapse
No announcement yet.

IBMDA400 data connection hangs

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • IBMDA400 data connection hangs

    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
    Last edited by Danno; 09-01-2010, 11:01 AM. Reason: Put name on page
Working...
X