Comment se connecter à Oracle en VBS [Résolu]

Messages postés
39
Date d'inscription
mercredi 8 décembre 2004
Statut
Membre
Dernière intervention
28 janvier 2009
- - Dernière réponse : jrivet
Messages postés
7401
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
- 11 sept. 2006 à 15:08
Bonjour,

Je n'y connais rien du tout en VBS mais en VB6 oui et on me demande de faire ce que je connais en VB6 en VBS et là je coince .

Le but est d'ouvrir une connexion Oracle et de faire des commandes SQL mais en VBS donc.

J'ai trouvé du code VB6 qui fait ça mais en VBS ça ne fonctionne pas.

Pouvez-vous m'aider ?
Tant que j'y suis, existe-t-il des éditeur pour faire du VBS autrement qu'avec un bloc note ?

Merci d'avance
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
Messages postés
7401
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
42
3
Merci
Salut,

Je ne sais pas si cela peut t'aider mais essaie ceci

Dim SQL 
Dim objADO   'As New ADODB.Connection
Dim cmdADO   'As New ADODB.Command
Dim rs       'As New ADODB.Recordset

Set objADO =   CreateObject ("ADODB.Connection") 
Set cmdADO  = CreateObject("ADODB.Command") 
Set rs =   CreateObject ("ADODB.Recordset") 
objADO.Open "Provider =MSDAORA.1;Password=aaa;User ID=aaa;Data Source=aaa" 
cmdADO.ActiveConnection = objADO 

SQL = "Select * from DBMon_Users;" 
cmdADO.CommandText = SQL 
cmdADO.Execute SQL 

MsgBox (cmdADO.result) 
 

<small> Coloration syntaxique automatique [AFCK]</small>
       

@+,   Ju£i?n

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 146 internautes nous ont dit merci ce mois-ci

Commenter la réponse de jrivet
Messages postés
39
Date d'inscription
mercredi 8 décembre 2004
Statut
Membre
Dernière intervention
28 janvier 2009
0
Merci
Mon code c'est ça que j'ai mis dans un fichier VBS :

Dim SQL
Public objADO As New ADODB.Connection
Public cmdADO As New ADODB.Command
Public rs     As New ADODB.Recordset

objADO.Open "Provider=MSDAORA.1;Password=aaa;User ID=aaa;Data Source=aaa"
cmdADO.ActiveConnection = objADO

SQL = "Select * from DBMon_Users;"
cmdADO.CommandText = SQL
cmdADO.Execute SQL

msgbox(cmdAdo.result)
Commenter la réponse de cs_CharlEm