× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



 Does anyone have any experience per what DATA LINK properties should be 
configured on the Visual.NET IDE to connect back to an iSeries.

I have this Code.

==============================================

Public Class Form1

 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load

        Dim conn As New ADODB.Connection
        Dim rs As New ADODB.Recordset
        Dim cmd As New ADODB.Command
        Dim stmt, stra, strb As String
        Dim x As Integer
        conn.Open("Provider = IBMDA400; Data Source = 144.162.90.48")
        stmt = "{CALL CrossTab('SPC013.FILEA', '''Year'' || YEAR','ITEM', 
'SALES')}"

        rs.Open(stmt, conn)

        stra = ""
        For x = 0 To rs.Fields.Count - 1
            stra = stra & " " & rs.Fields(x).Name
        Next
        Debug.Print(stra)

        Do Until rs.EOF
            strb = ""
            For x = 0 To rs.Fields.Count - 1
                strb = strb & " " & rs.Fields(x).Value
            Next
            rs.MoveNext()
            Debug.Print(strb)
        Loop
    End Sub


   
End Class


=============================================

Debugging tells us the problem is in the "CONN.OPEN".  I cannot find anything 
in the ADODB extension in VB.NET that talks specifically of connecting to an 
iSeries. 

We are able to get to the iSeries. 

Screen prints are in the attached word document. 

Thomas Burrows
cell 469 693 2533



_______________________________________________
Join Excite! - http://www.excite.com
The most personalized portal on the Web!

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.