Discussion :

[mike00]

bonjour,
je voudrais savoir comment récupérer le code source d'une procédure stockée en vb6.
merci

[LeForestier]

Bonsoir,
Stockée dans quoi ? et pour quel fin ?
Donne plus de renseignement si tu veux que l'on t'aide.

[mike00]

ma procédure stockée s'appelle ex1,elle est stockée dans une base de données sur un serveur de mon ecole.
elle contient une simple phrase select.

create procedure ex1 as
select Title from Employees

j'aimerai récupérer ce code dans un programme en vb6

[La Praline]

Bonjour,

Si je comprend bien tu voudrais faire comme un désassembleur mais en Visual Basic ???
Si c'est cela ca risque d'être difficile... Je ne connais pas de moyen personnellement

Cordialement

[OhMonBato]

Une procédure stockée dans une base de données ????
Tu parles de quoi là ? De macro VBA ?

[jacko2]

bonjour,

je suis un ami à mike00 et en fait, les procédures stockées sont écrites en SQL Server.
On a un programme VB6 dans lequel on utilise une procedure stockée, et on voudrai bien récupérer le texte de cette procédure dans une zone de texte

merci d'avance

[La Praline]

Bonjour,

Je dois être à moitié crétin mais je ne suis pas sûr de comprendre...

Quand vous dites que vos procédures stockées sont écrites en SQL Serveur qu'estce qe ca veut dire ???

Que vous avez une table dans votre base de données SQL Serveur qui contient un procédure VB6 ?
Et que vous aimeriez récupérer le contenu de ce champ dans cette fameuse table ???

[OhMonBato]

Ok, j'y suis, je ne suis pas spécialiste pour un sou mais je vois maintenant de quoi tu parles.
J'imagines qu'il y a moyen d'éditer cette procédure au sein de la base de données puisqu'il s'agit pour la bdd d'un objet comme un autre ? Si tu peux l'éditer tu peux "pomper" le code SQL pour le passer en VB6 sans trop de difficulté j'imagine ?

[jacko2]

je vais essayer d'être clair,
à l'ecole y a un server qui contient une base de données SQL Server,
il y a plusieurs tables...
nous on écrit des procédures stockées qui vont chercher l'info dans dans une table, genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
ALTER PROCEDURE SP_ShowEmployee
AS
	SELECT title from Employees
GO

puis on ecrit un programme en VB6 qui va utiliser cette procedure stockée et afficher le resultat dans un dataGrid (jusque là ça fonctionne)
mais ce que nous voulons en +, c'est afficher le code de la procédure stockée dans une TextBox

Je ne peux pas être plus clair je pense

[jacko2]

Ok, j'y suis, je ne suis pas spécialiste pour un sou mais je vois maintenant de quoi tu parles.
J'imagines qu'il y a moyen d'éditer cette procédure au sein de la base de données puisqu'il s'agit pour la bdd d'un objet comme un autre ? Si tu peux l'éditer tu peux "pomper" le code SQL pour le passer en VB6 sans trop de difficulté j'imagine ?

et comment est-ce qu'on fait pour pomper le code ?

[La Praline]

D'accord j'ai enfin compris... C'est pas trop tôt !!!


Par contre il y a un truc où je ne sais pas pourquoi/où est ton/votre problème...

Si tu arrives à acceder à la table où est stocké la requête, ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
ALTER PROCEDURE SP_ShowEmployee
AS
	SELECT title from Employees
GO

C'est que cette requête est stockée dans un recordset j'imagine...
N'as-tu pas accès à ce recordset ???

[OhMonBato]

Ok ok, n'étant pas spécialiste des bdd, je doute de pouvoir t'aider mais en lisant un peu de doc sur les procédures stockées je vois qu'elles sont considérées comme des objets au même titre que des tables par exemple, je me demande donc s'il n'y a pas moyen de stocker pourquoi pas dans une table le texte de ta procédure stockée (en parallèle de la procédure stockée), du coup sa lecture en serait aisée, mais sinon lire le code d'une procédure stockée en tant que donnée je doute que cela soit possible

[jacko2]

D'accord j'ai enfin compris... C'est pas trop tôt !!!


Par contre il y a un truc où je ne sais pas pourquoi/où est ton/votre problème...

Si tu arrives à acceder à la table où est stocké la requête, ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
ALTER PROCEDURE SP_ShowEmployee
AS
	SELECT title from Employees
GO

C'est que cette requête est stockée dans un recordset j'imagine...
N'as-tu pas accès à ce recordset ???

je viens d'essayer mais j'obients le resultat de la requete mais pas le contenu de la procédure

[mike00]

donc je me connecte à une base de données sql
dans cette base de données, il y a les tables et les procédures stockées.
j'ai une procédure stockée qui s'appelle ex1 et qui contient

create procedure ex1 as
select Title from Employees

pour exécuter cette procédure en vb je fais

Set rs = conn.Execute("ex1", , adCmdStoredProc)
j'obtiens donc mon recordset garni de la phrase select qu'il y dans ma procédure stockéee ex1

mais moi ce qui m'intéresse aussi c'est de récupérer le code de la procédure ex1.
je sais qu'en sql c'est possible en exécutant

execute Sp_helptext ex1

Est-ce qu'il y a moyen en vb d'exécuter Sp_helptext ex1?
sans faire appelle à une nouvelle procédure qui exécuterais Sp_helptext ex1
comme celle-ci

alter procedure RetourCode
@nomproc nvarchar(40)
as
declare @nom nvarchar(52)
set @nom='Sp_helptext '+@nomproc
execute(@nom)

[OhMonBato]

J'avoue ne pas avoir de réponse mais ce "up" après seulement 4h sans message est un peu gonflé je trouve.
Si personne ne répond c'est que tout simplement on n'a pas la réponse ou on n'a pas le temps d'y répondre, on pourrait aussi ne pas avoir envie...
Un peu de patience.

[rv26t]

Bonjour

Est-ce qu'il y a moyen en vb d'exécuter Sp_helptext ex1?
sans faire appelle à une nouvelle procédure qui exécuterais Sp_helptext ex1
comme celle-ci

Citation:
alter procedure RetourCode
@nomproc nvarchar(40)
as
declare @nom nvarchar(52)
set @nom='Sp_helptext '+@nomproc
execute(@nom)

Si cette façon de procéder vous renvoie le résultat escompté pourquoi chercher une autre solution ?

A+, Hervé.

[jacko2]

je crois que nos questions ont été mal comprises

par exemple, on a dans un fichier une fonction qui nous interesse pour un traitement quelconque (ca ca fonctionne) mais que en plus on veut afficher cette fonction dans une textBox, comment qu'on fait ?

là je crois que je ne peux pas être plus clair (je pense)

[mike00]

Bonjour


Si cette façon de procéder vous renvoie le résultat escompté pourquoi chercher une autre solution ?

A+, Hervé.

car je dois créer une 2ème procedure et qu'il y a surement moyen d'avoir le meme résultat en intérrogant la procédure 1 sans en créer une autre

[ProgElecT]

Moi quand je regarde une discution avec comme nouveau message un UP,en plus sans aucun commentaire, par la suite, je ne n'ouvre plus.

[mike00]

je réponds à ceux qui me pose des questions.
je vois pas où est le problème