IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

[oracle + vb6] Comment récupérer une sortie dbms_output dans vb6


Sujet :

VB 6 et antérieur

  1. #1
    Membre actif
    Profil pro
    Inscrit en
    Janvier 2011
    Messages
    99
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2011
    Messages : 99
    Points : 230
    Points
    230
    Par défaut [oracle + vb6] Comment récupérer une sortie dbms_output dans vb6
    Salut,
    Je fais un petit prog qui lance plusieurs proc sur oracle,
    ces proc (déjà existants) émettent des sorties en dbms_output.
    Je voudrais donc récuperer ces sorties pour les mettre dans un fichier de log.

    comment faire pour récuperer ces sorties?
    A+

  2. #2
    Membre actif
    Profil pro
    Inscrit en
    Janvier 2011
    Messages
    99
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2011
    Messages : 99
    Points : 230
    Points
    230
    Par défaut
    J'ai trouvé une solution du côté de oracle.
    Voici ce que j'ai fait pour ceux qui auraient le probleme.
    j'ai créé une proc "WRITE_LOG" qui lit chaque ligne du dbms_output et qui l'ajout dans une table créée à cet effet.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    CREATE OR REPLACE PROCEDURE write_log 
    AS
    l_line VARCHAR2(255);
    l_done NUMBER;
    ligne NUMBER;
    BEGIN
    	 delete from out_put_dbms;
    	 ligne := 0;
    	LOOP
    		EXIT WHEN l_done = 1;
    		ligne := ligne + 1;
    		dbms_output.get_line(l_line, l_done);
    		insert into out_put_dbms values(l_line, ligne);
    	END LOOP;
     
    END write_log;
    /

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 1
    Dernier message: 11/05/2009, 18h23
  2. Réponses: 5
    Dernier message: 16/03/2007, 12h16
  3. Réponses: 2
    Dernier message: 08/12/2006, 11h09
  4. [VB6] Comment récupérer une donnée à travers un activeX ?
    Par ferry.jules dans le forum VB 6 et antérieur
    Réponses: 1
    Dernier message: 02/06/2006, 10h55
  5. [Langage]Comment utiliser une dll .NET dans VB6?
    Par BouB dans le forum VB 6 et antérieur
    Réponses: 1
    Dernier message: 13/04/2006, 14h20

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo