Discussion :

[GlamIS]

bonjour,
je suis débutant en VBScript, je veux écrire un scirpt qui se connecte à une base Oracle, puis lance une requête Select et écrit le résultats dans un nouveau fichier excel ! j'ai regardé dans la FAQ mais pas on parle pas de connexion aux bases de données, qui peut m'aider?

[GlamIS]

voila la reponse et ça marche!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)