Data Link Properties Question from VB.NET

["Thomas" <thomasburrows@xxxxxxxxxx>]

 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!