Lancer requêtes sql en utilisant sqlplus.exe

Version imprimable

28/05/2015, 17h14
galene86

Lancer requêtes sql en utilisant sqlplus.exe
Bonjour j'ai cherché pendant beaucoup de temps comment me connecter en sysdba sur ma base de données oracle à l'aide d'un script Vbscript http://www.developpez.net/forums/d15...oracle-sysdba/

n'ayant pas pu trouver j'ai voulu utiliser l'utilitaire sqlplus.exe en me connectant comme ceci
Code:

1 2 Set sh = CreateObject("WScript.Shell") Set cmd2 = sh.Exec("cmd /c "& ORACLE_HOME & "\BIN\sqlplus.exe system/mdpmanager@bddgba as sysdba")
la connexion marche !! je me connecte bien en sys après avoir été verifié dans v$instance :)

Maintenant il faudrait que je puisse faire des requêtes sql et que je puisse en récupérer le résultat

Est ce que quelqu'un aurait une idée de comment faire ?

Merci d'avance

Galène

Bonjour,

Pas trop compris ce que tu voulais récupérer.

Peut être mon code pourras t'aider

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
dim Results
Set sh  = CreateObject("WScript.Shell")
Set cmd = sh.Exec("cmd /c "& ORACLE_HOME & "\BIN\sqlplus.exe system/mdpmanager@bddgba as sysdba")
Resultats = cmd.StdOut.ReadAll
call Ecrit(Results,"C:\resultats.txt") 
 
Sub Ecrit(message,ScriptFileName)
				Const ecriture = 2
				Const Lecture = 1
				Const Recriture = 8
				dim ScriptFileName,objFSO,FileOut,objFile
				Set objFSO = CreateObject("Scripting.FileSystemObject")
				'if objFSO.FileExists(ScriptFileName) Then objFSO.DeleteFile(ScriptFileName)
				Set FileOut = objFSO.OpenTextFile(ScriptFileName,Recriture, True)
				FileOut.write Message
				FileOut.close
End sub

29/05/2015, 09h10
galene86

Bonjour merci de ta réponse,

en faite maintenant que j'arrive à me connecter je voudrais pouvoir lancer des requêtes sql du genre

select status from v$status;

et récupérer le résultat de cette requête dans une variable par exemple .

j'ai réussi à trouver la solution du coup :)

pour ceux que ça intéresse

Code:

1
2
3
4
5
6
7
8
9
Set cmd = sh.Exec("cmd /c "& ORACLE_HOME & "\BIN\sqlplus.exe -s /@"&SERVICE &" as sysdba @Z:\Partage\Sonde\essai\test_recordset\requetesql.sql")
 
		result_cmd = split(cmd.StdOut.ReadAll,VbCrLf)
 
		wscript.echo result_cmd (0)
		wscript.echo result_cmd (1)
		wscript.echo result_cmd (2)
		wscript.echo result_cmd (3)
		wscript.echo result_cmd (4)

@Z:\Partage\Sonde\essai\test_recordset\requetesql.sql sert à aller chercher le fichier sql dans lequel les instructions sql sont présentes

pour ma part il ressemble à ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
whenever sqlerror exit 2;
		set echo off
		set linesize 10
		set pagesize 10
		set head off
 
		SELECT
			STATUS,
			VERSION,
			to_char(STARTUP_TIME, 'dd/mm/yyyy hh24:mi:ss')
		FROM
			V$INSTANCE;
		quit