RE: ADO and AS/400

Via ISeries navigator ...

Select - DATABASES / Sysname ...

Right click on LIBRARIES and select NEW 

Specify that you are wanting to create as an SQL schema

Kenneth

-----Original Message-----
From: Adam Lang [mailto:aalang@xxxxxxxxxxxxxxxxxxxx]
Sent: Friday, July 11, 2003 8:14 AM
To: Midrange Systems Technical Discussion
Subject: Re: ADO and AS/400


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.