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

Messages postés
39
Date d'inscription
mercredi 8 décembre 2004
Dernière intervention
28 janvier 2009
- - Dernière réponse : jrivet
Messages postés
7401
Date d'inscription
mercredi 23 avril 2003
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
Dernière intervention
6 avril 2012
47
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 118 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
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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.