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