Fw: Error using DA400 object in VB

For anyone that may be interested, this problem turns out to be a bug in the
CAE Toolkit. They introduced this bug during the process of correcting
another one.

IBM's position is that they'd rather not fix it, because MDAC 2.5 (included
with V5R1 of CAE) now supports the ADO "Seek()" method. Therefore, I can
simply change all of my existing code to work around the bug!

This is not the first time they've made a change that's broken my code. In
fact, it's happened several times over the last couple of years with the
installation of a new version of CAE, or a service pack. Based on this
history, I'd seriously caution anyone considering a significant development
effort using the toolkit to think twice. Backward compatibility is not high
on the list of priorities for this IBM development group.


John Taylor


----- Original Message -----
From: "John Taylor" <jtaylor@rpg2java.com>
To: <midrange-l@midrange.com>
Sent: Friday, February 15, 2002 3:01 PM
Subject: Error using DA400 object in VB


> Have any of you VB programmers run across the following error:
>
> ------------------------------------
> Run-time error: "-2147217887 (80040e21)"
> Method 'OpenIndex' of object 'AD400Connection3' failed.
> ------------------------------------
>
> Here is the relevent code:
>
> 'Setup connections
> Private m_cn As ADODB.Connection
> Private m_ix As AD400.Connection
>
> 'Setup access to the Vendor Master by key
> Private m_cmInp26 As New ADODB.Command
> Private m_ixInp26 As New AD400.Index
>
> Private Sub Class_Initialize()
>     Dim t As CDbTable
>
>     Set m_cn = gADO.getConnection
>     Set m_ix = gADO.getIndexConnection
>
>     Set m_cmInp26.ActiveConnection = m_cn
>     m_cmInp26.Properties("Updatability") = 0
>
>     Set t = gTableDict.Item("INP26")
>     m_cmInp26.CommandText = t.GetIfsName
>     m_cmInp26.Parameters.Append m_cmInp26.CreateParameter("P1", adChar,
> adParamInput, 1)
>     Set m_ixInp26 = m_ix.OpenIndex(t.GetIfsName, t.GetIfsName)
> End Sub
>
>
> The error is raised on the last line of the procedure: "Set
m_ixInp26....".
> The value of "t.GetIfsName" is "/QSYS.LIB/MYLIB.LIB/MYFILE.FILE(*FIRST,
> *NONE)". The file does exist, and does have a unique key.
>
> The workstation is W2K/Sp2 with CAE 510/Sp SI02795.
>
>