Réponse acceptée !
Pour commencer il te faut installer le pilote Oracle ODBC Driver (j'utilise la version 8.01.07.00). J'ai installer le pilote directement du CD d'installation oracle.
ensuite sous VB ca donne ceci:
Set Oracon = CreateObject("ADODB.Connection")
Oracon.ConnectionString = "Provider=OraOLEDB.Oracle;" & _
"Data Source=prod;" & _
"User ID=userid;" & _
"Password=motdepasse;" & _
"PLSQLRSet=1;"
Oracon.Open
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = Oracon
cmd.CommandText = "select distinct msib.SEGMENT1 as Article, rcv.ITEM_ID, rcv.CREATION_DATE as DateCreation, rcv.SUPPLIER as Fournisseur," & _
" rcv.RECEIPT_NUM as NumReception,rcv.RECEIPT_DATE as Date_de_Reception" & _
" from apps.rcv_vrc_txs_v rcv,apps.mtl_system_items_b msib where rcv.SHIPMENT_HEADER_ID = '" & id_header & "' and msib.ORGANIZATION_ID=147" & _
" and rcv.TO_ORGANIZATION_ID=msib.ORGANIZATION_ID and msib.INVENTORY_ITEM_ID=rcv.ITEM_ID"
Set recset = cmd.Execute
Do While Not recset.EOF
a=recset.Fields("DateCreation")
b=recset.Fields("Article")
recset.MoveNext
Loop
bon courage
Metalcoder