ADOBD - liking to AS/400

[JHTEX1]

Hello,
I have tried to get help on how I could access the AS/400 using ADODB and not has much luck!!

Does anyone have any code samples....

Need to access "QS36F" LIBRARRY.....
then "PARTDESC" FILE......
then the partdesc holds 2 fields
one is the PARTNO that I would do the search on
to pull the FL002 that holds the description
for the PARTNO....and place it in an excel worksheet

Does anyone have or know how to do this.

Thanks
Jr

 

[chiph]

You might want to do a search on AS/400. There are a number of posts where people have done this in the past.

Chip H.

 

[dvannoy]

This works off of ODBC

Dim Cn400 As ADODB.Connection
Dim Rs400 As ADODB.Recordset
Dim strConn As String
Dim strRs As String

strConn = "DRIVER={Client Access ODBC Driver (32-bit)}; SYSTEM=SystemName; CMT=0; DBQ=Library; NAM=0; DFT=0; DSP=0; TFT=0; TSP=0; DEC=0; XDYNAMIC=0; RECBLOCK=0; BLOCKSIZE=8; SCROLLABLE=1; TRANSLATE=0; LAZYCLOSE=1; LIBVIEW=0; REMARKS=1; CONNTYPE=2; SORTTYPE=0; LANGUAGEID=ENU; SORTWEIGHT=0; PREFETCH=1; MGDSN=0;"

Set Cn400 = New ADODB.Connection

Cn400.Open strConn

strRs = "SELECT * FROM WhatEver"

Set Rs400 = New ADODB.Recordset

Rs400.CursorType = adOpenDynamic
Rs400.CursorLocation = adUseClient
Rs400.LockType = adLockPessimistic
Rs400.Open strRs, strConn