mimosa803
Messages postés345Date d'inscriptionjeudi 15 février 2007StatutMembreDernière intervention24 avril 2010
-
1 mars 2007 à 20:03
metalcoder
Messages postés193Date d'inscriptionjeudi 14 février 2002StatutMembreDernière intervention25 mars 2011
-
2 mars 2007 à 14:37
bonsoir à tous ,bon je veux réealiser la base de données d'une application de gestion mais je ve qu'elle soit sous Oracle .
je souhaite savoir comment établir la connexion avec ma base .Merci d'avance
metalcoder
Messages postés193Date d'inscriptionjeudi 14 février 2002StatutMembreDernière intervention25 mars 20111 2 mars 2007 à 14:37
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