DominoArea.org [Archive]

J'ai installé DECS sur mon serveur Notes (v 5.0.11). Le connecteur vers Oracle est installé et DECS Administrator est correctement configuré (je vois la totalité des bases de mon instance Oracle).Comment faire pour en extraire les données ? A chacun de mes essais, j'ai un code -1 en retour de mes extractions.

Tu le vois où le code -1??tu as préparé quoi comme base notes??

C'est une base Notes complètement vierge avec une vue et trois champs dans lesquels j'essaye de récupérer les valeurs de ma base oracle.Ci dessous; un extrait du code ; le -1 arrive par l'instructions msgbox count qui normalement devrait me renvoyer le nombre de lignes de ma base Oracle.Dim conFldLst As LCFieldList Dim firstName As LCField Dim lastName As LCField Dim i As Integer Dim doc As NotesDocument Set conFldLst = New LCFieldList i = 0 count = src.Execute( "Select * from AD_MOD ", conFldLst) Msgbox count

Ca y'est . J'y suis arrivé . Je récupère maintenant les données d'une base Oracle dans une base Notes par DECS.La seule chose qui doit être faite auparavant est de créer une base Notes avec les champs qui récupèreront les données Oracle.Si ça vous interesse; je peux mettre le script en ligne qui permet d'afficher un enregistrement de table Oracle .Je mettrais également tout ce que j'ai fait en paramétrage.

salut, oui moi ça m'intéresse, merci.

Tout d'abord, il faut aller chercher les drivers ODBC qui vont bien. Ils sont accessible pour AIX, SOLARIS et WIN32 à l'adresse :http://www.lotus.com/products/eibn_knowbase.nsf/eipages/merantEnsuite il faut l'installer sur le serveur Notes et configurer ensuite la liaison ODBC <-> Oracle via le panneau de configuration NT.Ensuite vois le code :Option PublicUselsx "*lsxodbc"Sub Initialize 'Spécifique Notes Dim session As New NotesSession Dim db As NotesDatabase Set db = session.CurrentDatabase 'Spécifique Oracle Dim con As New odbcconnection Dim qry As New odbcquery Dim result As New odbcresultset 'Ici sont répertoriés les champs dans lesquels seront recopiés les champs de la table BOURSE_REVUES de ma base Oracle Dim BRV_COD As String Dim BRV_LIB As String Set qry.connection = con Set result.Query = qry 'Connection ODBC à ma base Oracle (le nom REVUE est défini dans la liaison ODBC) con.ConnectTo("REVUE") 'Execution de ma requête qry.SQL="select BRV_COD,BRV_LIB from BOURSE_REVUES" result.execute 'ici on récupère tous les enregistrements de la requête jusqu'à la fin If result.IsResultSetAvailable Then Do result.nextrow 'lecture de l'enregistrement BRV_COD=result.GetValue"BRV_COD",BRV_COD) BRV_LIB=result.GetValue("BRV_LIB",BRV_LIB) 'création d'une document dans la base Notes Set doc = New notesdocument(db) doc.BRV_COD=BRV_COD doc.BRV_LIB=BRV_LIB Call doc.Save (True,False) Loop Until result.IsEndOfData' Msgbox "Fini" result.Close(Db_CLOSE) Else 'la connexion ne fontionne pas Msgbox "tesnul" End If con.DisconnectEnd Sub