Utilisation de SQL%ROWCOUNT en VBS
Citation:
J'ai posté ce message dans la rubrique VBScript (sous-rubrique VB6). N'ayant pas de réponse, je poste ici car c'est aussi une problématique SQL-ORACLE.
Bonjour,
Ma problématique actuelle :
Je voudrais connaitre le nombre d'enregistrements modifiés par un UPDATE.
Actuellement, je fais un select, qui me donne le nb à modifier, puis l'UPDATE.
On peut sûrement mieux faire.
Au fil de mes lectures sur le Net, j'ai découvert le SQL%ROWCOUNT qui s'utilise avec l'Insert, l'Update et le Delete.
À priori, cela correspondrait exactement à mes besoins.
Exemple sur le Net :
Citation:
SQL> -- Implicit cursors: SQL%ROWCOUNT returns number of rows affected by SQL statement.
SQL>
SQL> BEGIN
2 UPDATE employee
3 SET salary = salary *2
4 WHERE id = '01';
5
6 DBMS_OUTPUT.PUT_LINE(SQL%ROWCOUNT);
7
8 END;
9 /
Problème : Je ne sais pas du tout comment coder cela en VBScript.
Comment adapter mon code ?
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
Option Explicit
Dim StrConnexion, OConnexion
Set oConnexion = CreateObject("ADODB.Connection")
oConnexion.ConnectionTimeout = 30 'Spécifie maximum time (seconds ) for db opening
oConnexion.CommandTimeout = 30 'Spécifie maximum time (seconds ) for a request
Dim OResultat
strConnexion = "Driver={Microsoft ODBC for Oracle}; ..."
oConnexion.Open strConnexion
' --- OResultat = oConnexion.Execute("UPDATE MOV SET MOV.JOURNAL='ODG' INTO SQL%ROWCOUNT WHERE MOV.JOURNAL='ODG'")
'--- MSGBOX OResultat
OResultat = oConnexion.Execute("UPDATE MOV SET MOV.JOURNAL='ODG' WHERE MOV.JOURNAL='ODG'")
oConnexion.Close |
Quelqu'un aurait-il essayé (avec succès ;+)) ce SQL%ROWCOUNT en VBScript ?
Grand merci d'avance pour ce coup de main.
Cordialement.
Gilles Cartairade