Multipe requête sql dans un script vbs

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Multipe requête sql dans un script vbs

galene86

Bonjour,

J'ai un soucis je recherche comment intégrer une suite de requête sql dans un Vbscript

je m'explique :

en shell les requêtes sql dans un script peuvent se faire comme ça

Code :

result_sql=$(echo "
whenever sqlerror exit 2;
set echo off
set feed off
set head off
SELECT
to_char(Sum(bytes), '999999999999999999999999')
FROM
dba_data_files;)

et moi je dois faire la même chose mais sous windows donc avec VBscript

j'ai essayé cette méthode :

Code :

set formatsql = cn.Execute ("whenever sqlerror exit 2;"&_
"set echo off" &_
"set feed off" &_
"set head off" )

mais elle me renvoie des erreurs d’exécution sql

Quelqu'un aurait la solution s'il vous plait ?

Merci d'avance

Galene

Publicité

Arl Guhr

p-e avec des ';' après chaque commande et un select à la fin?

sinon, en faisant cn.execute d'une commande à la fois?

edit: et il faut un espace entre le " et le & de la première ligne mais ton IDE as du te le dire.

Message cité 1 fois
Message édité par Arl Guhr le 29-04-2015 à 02:39:33

---------------
il s'appel le ronge me doute

galene86

Arl Guhr a écrit :

Merci de ta réponse j'ai essayé tes solutions mais aucune ne marche

En faite je veux mettre un "whenever sqlerror exit 2" avant de lancer ma requête qui est "SELECT to_char(Sum(bytes),99999999999999) FROM dba_data_files"

pour que si j'ai une erreur lors de ma requête sql on me renvoie le code retour 2

mon script ressemble à ça pour le moment

Code :

set cn = CreateObject("ADODB.Connection" )
set rs = CreateObject("ADODB.Recordset" )
set erreur_sql = CreateObject("ADODB.Connection" )
ConnectionString ="Provider=OraOLEDB.Oracle; Data Source=" & _
"(DESCRIPTION=(CID=GTU_APP)(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST="&computername&" )(PORT=1521)))(CONNECT_DATA=(SID="&SERVICE &" )(SERVER=DEDICATED)));" & _
"User Id=system;Password="&PASSWORD &";"
cn.Open connectionString
set erreur_sql = cn.Execute ("whenever sqlerror exit 2" )
set rs = cn.Execute ("SELECT to_char(Sum(bytes),99999999999999) FROM dba_data_files" )

quand j’exécute ce script, mon err.number avant le

Code :

set erreur_sql = cn.Execute ("whenever sqlerror exit 2" )

est à 0
et après cette commande il passe à -2147217900

j'ai essayé "whenever sqlerror exit 2;" (avec le ";" ) j'ai la même erreur.

Cordialement,

Galène

Arl Guhr

C'est p-e naif de ma part mais pourquoi tu as besoin de cette commande?
Si ton SQL n'est pas correct, tu recevra une erreur via le err.number <> 0
Si la connection saute, tu le saura aussi avec le cn.status il me semble par exemple.

Et l'autre truc bizarre, c'est le type de ton objet de retour cn.execute renvoie un recordset alors que tu assigne à une connection (l'erreur vient p-e juste de là d'ailleurs)

---------------
il s'appel le ronge me doute

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Multipe requête sql dans un script vbs

Sujets relatifs
aide script shell pour projet scolaire	Quelques petits problèmes, et besoin de script.
Execution d'une partie du script	Problème script enregistrement / tranfert
Requete xquery xml	Exécution d'un script via un autre script
Problème copier/coller script Greasemonkey	Lancer script avec redondance [Resolu]
Variable dans script htm	[Résolu]Tâche planifiée - Script Synology
Plus de sujets relatifs à : Multipe requête sql dans un script vbs

Page générée en 0.058 secondes