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

cs_CharlEm 39 Messages postés mercredi 8 décembre 2004Date d'inscription 28 janvier 2009 Dernière intervention - 11 sept. 2006 à 14:42 - Dernière réponse : jrivet 7401 Messages postés mercredi 23 avril 2003Date d'inscription 6 avril 2012 Dernière intervention
- 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
jrivet 7401 Messages postés mercredi 23 avril 2003Date d'inscription 6 avril 2012 Dernière intervention - 11 sept. 2006 à 15:08
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

Merci jrivet 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 70 internautes ce mois-ci

Commenter la réponse de jrivet
cs_CharlEm 39 Messages postés mercredi 8 décembre 2004Date d'inscription 28 janvier 2009 Dernière intervention - 11 sept. 2006 à 14:56
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.