Re: Data Link Properties Question from VB.NET

Not directly related to your problem, but has anybody out there tried
http://hibernate.org/ for .NET?  I have been using it for Java and love it
(most of the time :-). It saves a lot of time and allows ease of DB access.

Aaron Bartell 

-----Original Message-----
From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx] On
Behalf Of Thomas
Sent: Wednesday, February 22, 2006 2:10 PM
To: web400@xxxxxxxxxxxx
Subject: [WEB400] Data Link Properties Question from VB.NET

 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!