Connexion base de données

Bonjour a tous

Je souhaiterais me connecter a une base de donnée en VBA. Je dispose de ces informations :

string connString = @"Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=X)(PORT=X)))
                             (CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=X)));User Id=X;Password=X;";
OracleConnection conn = new OracleConnection(connString);
            try
            {
                conn.Open();
                Console.WriteLine("Connecté à Oracle");
                OracleCommand cmd = new OracleCommand();
                cmd.Connection = conn;
                cmd.CommandText = "Select JOB_NB FROM COMBO.COMBO_JOB_LINES group by JOB_NB";
                OracleDataReader reader = cmd.ExecuteReader();

Merci d'avance pour votre aide

Bonjour ApprentiVBA

Voici un code trouvé pour se connecter à ORACLE, à vous de l'adapter

Dim source As ADODB.Connection
Dim Requete As ADODB.Recordset
Dim Fichier As String, xSQL As String
Dim i as Long

Set source = New ADODB.Connection
source.Open "Provider = MSDAORA.1;" & _
"data source=NOM_DE_LA_DB;" & _
"User Id=TON_USER_ID;" & _
"Password=TON_MOT_DE_PASS;" & _
"extended properties=""Excel 8.0;HDR=Yes"""

xSQL = "TA_REQUETE_SQL'"

Set Requete = New ADODB.Recordset
Set Requete = source.Execute(xSQL)

' Pour récupérer le résultat de la requête de manière complête
'Range("A1").CopyFromRecordset Requete

' Pour parcourir les enregistrements et inscrire le résultat
Do While Not (Requete.EOF)
  range("A" & i).value = Requete("NOM_DE_LA_COLONNE_DU_RESULTAT_A_EXPLOITER")
  Requete.MoveNext
  i = i + 1
Loop

Requete.Close
source.Close

A+

Bonjour,

Désolé pour la réponse tardive.

Lorsque j'adapte le code je me retrouve avec l'erreur : " Impossible de trouver le fournisseur. il est peut-être mal installé."

Une idée de ce qui coince ?

Bonjour,

Un article ICI sur le sujet, à voir si cela fonctionne pour vous

A+