1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| 'Déclaration de la variable de connexion
Option Explicit
Dim cnx
Dim rst
Dim TNS
Dim UserID
Dim PW
Dim query
Dim strCon
'Instanciation des variables de connection
UserID = "id"
PW ="pw"
TNS = "DESCRIPTION = (ADDRESS = (PROTOCOL = TCP)(HOST = id)(PORT = 1521))(CONNECT_DATA =(SID = nombase))"
'Instaciation de la requete
query="SELECT * From table where condition"
'Instanciation des variables
Set cnx = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
'Définition de la chaîne de connexion
strCon = "Driver={Microsoft ODBC for Oracle}; CONNECTSTRING=(" & TNS & "); uid=" & UserID & "; pwd=" & PW & ";"
cnx.Open strCon
'Exécution de la requête
Set rst = cnx.Execute(query) |