Re: ADO and AS/400 -- MIDRANGE-L

Adam

You can use interactive SQL - CREATE COLLECTION is an SQL statement. If you just

CREATE COLLECTION COLLNAME

you don't get the catalog (data dictionary). To get the catalog you must

CREATE COLLECTION COLLNAME WITH DATA DICTIONARY

This creates a library named COLLNAME, puts a journal there, as well as the various catalog files - same as those in QSYS2.

HTH

Vern

At 11:14 AM 7/11/2003 -0400, you wrote:

Ok. How do I create a collection on the as400?

Adam Lang
Systems Engineer
Rutgers Casualty Insurance
----- Original Message -----
From: "Vern Hamberg" <vhamberg@xxxxxxxxxxxxxxxxxxxxxxxxx>
To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
Sent: Friday, July 11, 2003 10:28 AM
Subject: Re: ADO and AS/400


> Adam, a wild guess. A library is not necessarily an SQL collection, and it
> might not have the schema information in it. This would give you the empty
> result, I think.
>
> You might try a CREATE COLLECTION on the 400, then CRTDUPOBJ the files
from
> your library into the collection, then try again.
>
> HTH
>
> Vern
>
> At 09:23 AM 7/11/2003 -0400, you wrote:
> >I am tryign to use ADO and OpenSchema to get a list of the table headers
of
> >an AS/400 library.  The code works fine when i do it to an Access
database,
> >but against the AS/400 it comes back empty.  The DoWhile doesn't fire
> >because the recordset is empty.  I am using OS/400 4.4 and the ole db
> >provider with client access express 5.1.  I am also running VB 6 and ADO
2.7
> >on Windows XP. Is there another way of doing this or is it not supported
or
> >something?
> >
> >Here is the code I am using:
> >
> >Dim sOutput As String
> >Dim MyRecordset As ADODB.Recordset
> >Set MyRecordset = New ADODB.Recordset
> >
> >Set MyRecordset = MyConnection.OpenSchema _
> >         (adSchemaColumns, Array(Empty, Empty, "RUGR80DAT.PMSPAG00"))
> >
> >     Do While Not MyRecordset.EOF
> >         MsgBox MyRecordset.Fields.Count
> >         sOutput = sOutput & MyRecordset!COLUMN_NAME & vbCrLf
> >         MyRecordset.MoveNext
> >     Loop
> >
> >Adam Lang
> >Systems Engineer
> >Rutgers Casualty Insurance
>
>
> _______________________________________________
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.

_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.