Connect to an AS/400 (iSeries) using ADODB.

as400_adodb.py

import win32com.client

def main(host, iasp, library, file):
    conn = win32com.client.Dispatch(r'ADODB.Connection')
    DSN=('DRIVER=iSeries Access ODBC Driver;SYSTEM='+host+';DATABASE='+iasp+';COMPRESSION=1;TRANSLATE=1;')
    conn.Open(DSN) # Will prompt for username/password or connect with Kerberos
    rs = win32com.client.Dispatch(r'ADODB.Recordset')
    rs.Open("SELECT * FROM "+library+"."+file, conn, 1, 3)
    
    # Get records and fields one by one
    #while not rs.EOF:
    #    for field in rs.Fields:
    #        print(field.Name,field.Value)
    #    rs.MoveNext()
    
    # Just get everything
    data = rs.GetRows()
    print(data)
    conn.Close()


if __name__ == '__main__':
    main()