Accès DB2 AS400 (serveur Domino=iSeries)

[Nicolas]

SalutEst-ce quelqu'un pourrait me donner l'exemple d'un agent qui accède aux fichiers DB2 d'un AS/400 ?Sachant que le serveur Domino est sur l'AS/400 lui-même ?Merci

[Eddie]

Tu peux par FTP ou par ODBCODBC im Datasource As StringDim UID As StringDim Password As StringDim Con As New ODBCConnectionDatasource = DataSourceName ' (= Nom AS400 S44....)UID = USRIDPassword = PWDIf Not Con.ConnectTo(Datasource, UID, Password) Then 'Execute ConnectTo methodPrint "ERROR: COULD NOT CONNECT TO DATASOURCE: "; DatasourceNumError% = Con.GetErrorPrint "Error # = "; NumError%Print "Error message = "; Con.GetErrorMessage(NumError%)Print "Error description = "; Con.GetExtendedErrorMessage(NumError%)Exit SubElseEnd IfFTP im objFTP As NotesFTPSessionDim vFiles As VariantDim nCt%Dim sMsg$, sDirPath$, sCRLF$Set objFTP=New NotesFTPSessionsCRLF$ = Chr(10) & Chr(13)With objFTP.Connect "XXX.XXX.X.XX", "login", "paswd", 0 ' Saisie IP.GetFile "Bibl/Fichier", "D:\GET-FTP\Fichier.csv", FTP_TRANSFER_TYPE_ASCII.Disconnect End WithCleanup:If Not (objFTP Is Nothing) Then Delete objFTP End IfExit Sub ErrHandler:Msgbox "[Error #" & Cstr(Err) & "]: " & Error$, 48, "NotesFTP Error"Resume CleanupEnd Sub

[Cedric]

Euh, au risque de passer pour un ignorant...( et alors, faut bien apprendre un jour), tu la sors d'où cette superbe classe NotesFTPSession ? Elle m'intéresse pas mal :psinon, y a aussi la lsxlc. J'avais eu le besoin à une époque de me connecter sur un DB2/AS400 depuis un domino également sur un AS/400 et j'avais finalement opté pour la lsxlc, mais je ne sais plus la raison, est-ce que l'ODBCConnection est bien implémentée sur AS/400 ?

[Stephane Maillard]

Bonjour,Voici le lien :http://www-10.lotus.com/ldd/sandbox.nsf/ecc552f1ab6e46e4852568a90055c4cd/9e752a60b6f902c7852568ef006b4ad1?OpenDocument[%sig%]