× 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.



Good afternoon,

 

Before I begin, I'd like to extend a personal thanks to Mr. Donald
Fisher and Mr. Paul Tydoki for their assistance with our "One DDS, Two
Different Printers" issue from last week.  Their input provided us with
enough direction that we were able to resolve it - thank you!

 

Now for the current issue...  We're developing a Visual Basic
application which includes a connection to one of our AS/400's via the
IBMDA400 provider for data retrieval purposes.  To clarify, I should say
that we're attempting to develop as we've not been able to successfully
retrieve any data to date.  Our connection is valid and the tables are
accurately defined, however a simple record count shows a result set of
-1 on a table that we know contains several hundred records.

 

I've read well over a thousand pages of documentation on DB2, IBMDA400,
and the like and am still unable to resolve this issue.  Listed below is
the section of VB code as well as the errors we see after enabling
trace, any feedback would be greatly appreciated:

 

Sub as400_connect2()

    On Error GoTo close_connect

    Dim cn400 As New ADODB.Connection

    Dim cmd400 As New ADODB.Command

    Dim rst400 As ADODB.Recordset

    

    cn400.Open "Provider=IBMDA400;Data Source=AS400;", "", ""

    Set cmd400.ActiveConnection = cn400

    

    cmd400.CommandText = "SELECT * FROM TONY.JLFLASH ORDER BY LPCOMP"

    cmd400.CommandType = adCmdText

    Set rst400 = cmd400.Execute

    

    rst400.MoveLast

 

.MoveLast returns error of "-2147217896   Rowset position cannot be
restarted." even though it is listed as a supported method of the
Recordset Object.

 

We're getting these errors in the trace log:

0x0000079C 0x000002B8 09/24/04 16:57:52 : CSQLRowset::RestartPosition

0x0000079C 0x000002B8 09/24/04 16:57:52 : CSQLRowset::RestartPosition
returning CANNOTRESTART on forward-only cursor

 

 

Best regards,

Jim

 

James D. Trow

Information Systems Supervisor

Dick Blick Holdings, Inc.

Ph: (847) 681-6820

Cell: (847) 309-4760

Email:  <mailto:tj.trowj@xxxxxxxxxxxxx> J.Trow@xxxxxxxxxxxxx

 


As an Amazon Associate we earn from qualifying purchases.

This thread ...


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.