Script SQLPlus Oracle ==> Programme VB

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Script SQLPlus Oracle ==> Programme VB

Kirvel

WOOOOH 6 MINUTES !!§!

Dans le cadre de mon boulot, j'utilise des scripts (sous forme de packages) que je lance sous SQLPlus (base Oracle) les uns après les autres à la main. Ces scripts contiennent de procédures qui utilisent des requêtes, des curseurs, etc, pour aller taper dans la base Oracle.

Comme c'est assez fastidieux, j'aimerais faire un programme VB qui reprendrait la structure de ces scripts, cependant je ne l'ai jamais fait et j'aimerais trouver des infos à ce sujet :
- Peut-on toujours utiliser des curseurs dans ce cadre ?
- Comment faire en sorte que mon programme communique avec ma base Oracle ?

Voilà, si vous connaissez un tutoriel sympa qui pourrait m'aider à répondre à ces questions et à celles que je serais suceptible de me poser je suis preneur. Merci d'avance :jap:

---------------
MyAnimeList

Publicité

Kirvel

WOOOOH 6 MINUTES !!§!

[:the panda]

---------------
MyAnimeList

MagicBuzz

VB est déprécié, je te conseille donc VB.NET ou C#, qui sont les "suites" proposées par Microsoft et dont il existe tous les outils gratuits pour travailler.

Pour l'accès aux données, tu passeras par un connecteur .NET qui ressemble d'un point de vue programmation comme deux goutes d'eau aux drivers ODBC ou OLEDB. Tu peux donc faire des curseurs, des transactions, et à tout ce que tu veux.

Les limitations sont cependant (non exhaustif) les suivantes :
- Impossibilité (ou presque) de se créer une variable Oracle et la réutiliser plus tard dans une autre requête.
- Impossibilité d'utiliser un script PL/SQL directement, il faut en faire une PS Oracle et lancer la PS.
- Un certain nombre de types Oracle ne sont pas aisés à utiliser, à commencer par les blob/clob, mais aussi le number (Oracle permet de stocker plus de chiffres dans un Number que ne permet .NET dans un decimal, ce qui provoque des problèmes parfois)

Pour le reste, tout fonctionne parfaitement bien.

Voici un exemple de ce qu'on peut faire par exemple (ici, succession de requêtes au sein d'une transaction, avec proposition de commit ou rollback une fois les requêtes effectuées) :

Code :

private const string sqlUpdateAdrress = "update adr set codtrn = :codtrn, sigtra = :sigtra where exists (select null from lad where lad.codsoc = :codsoc and lad.typtie = 'CLI' and lad.sigtie = :sigtie and adr.codsoc = lad.codsoc and adr.typtie = lad.typtie1 and adr.sigadr = lad.sigadr and adr.typadr = lad.typadr1 and adr.numadr = lad.numadr1 and adr.codtrn = :oldtrn)";
        private const string sqlUpdateCde = "update eve set codtrn = :codtrn where codsoc = :codsoc and achvte = 'V' and typeve = 'CDV' and codeta in ('V', 'I') and sigtie = :sigtie and codtrn = :oldtrn";
        private const string sqlUpdateCdp = "update evl set evl.codtrn = :codtrn where evl.codsoc = :codsoc and evl.achvte = 'V' and evl.typeve = 'CDV' and    evl.codtrn = :oldtrn and evl.numeve in (select eve.numeve from eve where eve.codsoc = evl.codsoc and eve.achvte = evl.achvte and eve.typeve = evl.typeve and eve.codeta in ('V', 'I') and eve.sigtie = :sigtie)";
        private const string sqlUpdateLie = "update eve set codtrn = :codtrn where codsoc = :codsoc and achvte = 'V' and typeve = 'LIV' and codeta in ('V', 'C') and sigtie = :sigtie and codtrn = :oldtrn";
        private const string sqlUpdateLip = "update evl set evl.codtrn = :codtrn where evl.codsoc = :codsoc and evl.achvte = 'V' and evl.typeve = 'LIV' and    evl.codtrn = :oldtrn and evl.numeve in (select eve.numeve from eve where eve.codsoc = evl.codsoc and eve.achvte = evl.achvte and eve.typeve = evl.typeve and eve.codeta in ('V', 'C') and eve.sigtie = :sigtie)";
 
        private void button1_Click(object sender, EventArgs e)
        {
            if (comboBox1.SelectedValue != null && comboBox2.SelectedValue != null && comboBox3.SelectedValue != null && comboBox4.SelectedValue != null && comboBox5.SelectedValue != null)
            {
                OracleConnection cnx = new OracleConnection(Tournees.Properties.Settings.Default.ConnectionString);
                OracleTransaction trans;
                OracleCommand cmd;
                cnx.Open();
 
                trans = cnx.BeginTransaction();
 
                cmd = cnx.CreateCommand();
 
                cmd.CommandType = CommandType.Text;
                cmd.Transaction = trans;
 
                OracleParameter codsoc = cmd.CreateParameter();
                codsoc.Direction = ParameterDirection.Input;
                codsoc.OracleType = OracleType.Number;
                codsoc.ParameterName = "codsoc";
                codsoc.Value = (decimal)comboBox4.SelectedValue;
 
                OracleParameter sigtie = cmd.CreateParameter();
                sigtie.Direction = ParameterDirection.Input;
                sigtie.OracleType = OracleType.NVarChar;
                sigtie.ParameterName = "sigtie";
                sigtie.Value = (string)comboBox1.SelectedValue;
 
                OracleParameter oldtrn = cmd.CreateParameter();
                oldtrn.Direction = ParameterDirection.Input;
                oldtrn.OracleType = OracleType.NVarChar;
                oldtrn.ParameterName = "oldtrn";
                oldtrn.Value = (string)comboBox2.SelectedValue;
 
                OracleParameter codtrn = cmd.CreateParameter();
                codtrn.Direction = ParameterDirection.Input;
                codtrn.OracleType = OracleType.NVarChar;
                codtrn.ParameterName = "codtrn";
                codtrn.Value = (string)comboBox3.SelectedValue;
 
                OracleParameter sigtra = cmd.CreateParameter();
                sigtra.Direction = ParameterDirection.Input;
                sigtra.OracleType = OracleType.NVarChar;
                sigtra.ParameterName = "sigtra";
                sigtra.Value = (string)comboBox5.SelectedValue;
 
                cmd.Parameters.Clear();
                cmd.CommandText = sqlUpdateAdrress;
 
                cmd.Parameters.Add(codsoc);
                cmd.Parameters.Add(sigtie);
                cmd.Parameters.Add(oldtrn);
                cmd.Parameters.Add(codtrn);
                cmd.Parameters.Add(sigtra);
 
                int nbAdr = cmd.ExecuteNonQuery();
 
                cmd.Parameters.Clear();
                cmd.CommandText = sqlUpdateCde;
 
                cmd.Parameters.Add(codsoc);
                cmd.Parameters.Add(sigtie);
                cmd.Parameters.Add(oldtrn);
                cmd.Parameters.Add(codtrn);
 
                int nbCde = cmd.ExecuteNonQuery();
 
                cmd.Parameters.Clear();
                cmd.CommandText = sqlUpdateCdp;
 
                cmd.Parameters.Add(codsoc);
                cmd.Parameters.Add(sigtie);
                cmd.Parameters.Add(oldtrn);
                cmd.Parameters.Add(codtrn);
 
                int nbCdp = cmd.ExecuteNonQuery();
 
                cmd.Parameters.Clear();
                cmd.CommandText = sqlUpdateLie;
 
                cmd.Parameters.Add(codsoc);
                cmd.Parameters.Add(sigtie);
                cmd.Parameters.Add(oldtrn);
                cmd.Parameters.Add(codtrn);
 
                int nbLie = cmd.ExecuteNonQuery();
 
                cmd.Parameters.Clear();
                cmd.CommandText = sqlUpdateLip;
 
                cmd.Parameters.Add(codsoc);
                cmd.Parameters.Add(sigtie);
                cmd.Parameters.Add(oldtrn);
                cmd.Parameters.Add(codtrn);
 
                int nbLip = cmd.ExecuteNonQuery();
 
                cmd.Dispose();
 
                if (MessageBox.Show(this, string.Format("{0} adresse(s) mise(s) à jour\n{1} commande(s) mise(s) à jour\n{2} poste(s) de commandes mis à jour\n{3} livraison(s) mise(s) à jour\n{4} poste(s) de livraisons mis à jour", nbAdr, nbCde, nbCdp, nbLie, nbLip), "Confirmez-vous les modifications ?", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) == DialogResult.Yes)
                {
                    trans.Commit();
                    this.aDRTableAdapter.Fill(this.dataSetTrnActuelles.ADR, (decimal)comboBox4.SelectedValue, (string)comboBox1.SelectedValue);
                }
                else
                {
                    trans.Rollback();
                    MessageBox.Show("Annulation effectuée" );
                }
                trans.Dispose();
 
                cnx.Close();
                cnx.Dispose();
            }
            else
            {
                MessageBox.Show(this, "Tous les champs ne sont pas correctement remplis", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1);
            }
        }

Kirvel

WOOOOH 6 MINUTES !!§!

Je n'ai que VB6 de disponible

Par contre je me pose une question : est-ce qu'il est possible de lancer des procédures incluses dans des packages comme si je le faisais sous SQLPlus à partir d'une fonction ?

Par exemple : exec pck_package.procédure(params)

---------------
MyAnimeList

MagicBuzz

oui sans problème

ton commandtext de ton objet commande sera "pck_package.procédure" et son commandtype sera "storedprocedure".

et tu ajouteras les parameters de la même façon que dans mon exemple.

ps : en VB6 même si le langage n'a rien à voir et que tu passes par DAO et non la couche .NET, y'a presque rien à changer par rapport au code que j'ai posté (même attributs et métodes d'objets pour la plupart). c'est pour ça que je me permet d'insister.
VS 2008 C# Express est gratuit et utilisable à des fins professionnelles et lucratives.

http://msdn.microsoft.com/fr-fr/express/aa975050.aspx

Message cité 1 fois
Message édité par MagicBuzz le 03-09-2008 à 10:14:49

Kirvel

WOOOOH 6 MINUTES !!§!

MagicBuzz a écrit :

ok merci, je vais voir ça :jap:

---------------
MyAnimeList

Kirvel

WOOOOH 6 MINUTES !!§!

Pour l'instant j'essaie de trouver comment me connecter à ma base Oracle via ODBC et en cherchant un peu sur Internet je retrouve souvent cette déclaration :
Public db As New ADODB.Connection

Sauf qu'à l'exécution il me dit que ce n'est pas un type défini. J'imagine qu'il faut que je récupère un fichier de déclaration quelque part pour l'inclure dans mon projet mais je ne sais pas où le trouver. une idée ?

EDIT : à chaque fois que je tombe sur un lien qui utilise cette expression, j'ai l'impression qu'ils considèrent que le type ADODB.Connection est déjà acquis de base.

Message édité par Kirvel le 03-09-2008 à 10:59:17

---------------
MyAnimeList

MagicBuzz

tu dois lier à ton projet "microsoft data object 2.6" ou un truc du genre (DAO.dll)

MagicBuzz

(dans le menu "projet" tu à un menu pour gérer les dépendences du projet. ça fait longtemps que j'ai pas touché vb, donc je ne me souviens plus des noms exacts )

Kirvel

WOOOOH 6 MINUTES !!§!

nickel merci :jap:

C'est dans Projet/Références, il faut cocher "Microsoft ActiveX Data Object 2.6 Library"

---------------
MyAnimeList

Publicité

MagicBuzz

a mettre dans tes bookmarks pour avoir de la doc sur ADO :

http://www.devguru.com/technologies/ado/home.asp

Kirvel

WOOOOH 6 MINUTES !!§!

Merci pour ton aide, j'arrive à lancer mes procédures ça rox [:bien]

Par contre j'ai petit souci qui risque de bien me bloquer, c'est que ces procédures contiennent des étapes qui auparavant s'enchaînaient, mais qu'il a fallu découper pour pouvoir bidouiller des trucs à la main dans la base avant de lancer les étapes suivantes. Si ç'avaient été des procédures distinctes il n'y aurait pas eu de souci, sauf que là pour dire "STOP ON S'ARRÊTE ICI !" ils ont trouvé la judicieuse idée de foutre un RAISE_APPLICATION_ERROR avec un message.

Quand la procédure arrive à ce stade, mon programme s'arrête avec un pop-up qui contient le message en question (ça c'est cool), mais il me propose "Débogage" ou "Fin" (ça c'est moins cool). Le truc c'est que j'aimerais faire un EXIT SUB juste après le lancement de ma procédure pour pouvoir trifouiller la base à la main sans avoir à arrêter l'exécution de mon programme, puisqu'il y a encore des étapes à lancer derrière
Comment pourrais-je contourner ce problème à part en réécrivant la procédure stockée ? tâche qui s'avèrerait fastidieuse

EDIT : exemple :

Code :

IF param <= 5 THEN
REPRISE_JOURNAUX;
END IF;
IF param <= 6 THEN
REPRISE_FOURNISSEURS;
RAISE_APPLICATION_ERROR(-20101, 'AP FOUR', FALSE);
END IF;
IF param <= 7 THEN
REPRISE_NATURES;
END IF;

Ici on a lancé la procédure en passant un param >= 6, puis on stop après la reprise_fournisseur pour trifouiller des trucs. Une fois que c'est fait, on relance cette procédure en passant param = 7 pour enchainer. Ce que je voudrais c'est que mon programme ne plante pas quand j'ai un RAISE_APPLICATION_ERROR, c'est possible ?

Message édité par Kirvel le 03-09-2008 à 16:24:14

---------------
MyAnimeList

MagicBuzz

Code :

' début du code ici
 
on error resume next
 
' fait un truc qui risque de planter
 
if err <> 0 then
  msgbox("proutch " & err.message)
  err.clear
end if
 
on error goto 0
 
' suite du code ici

Message cité 1 fois

Kirvel

WOOOOH 6 MINUTES !!§!

MagicBuzz a écrit :

Code :

' début du code ici
 
on error resume next
 
' fait un truc qui risque de planter
 
if err <> 0 then
  msgbox("proutch " & err.message)
  err.clear
end if
 
on error goto 0
 
' suite du code ici

ah mais ouais j'avais oublié ça, sainxeulote

---------------
MyAnimeList

MagicBuzz

attention cependant. si tu produit une erreur, vérifie que le rollback se produit comme lorsque tu es avec sql+, rien n'est moins sûr.

et si l'ensemble de la procédure doit être transactionnelle, n'oublie pas d'utiliser l'objet transaction sur tes commandes et bien faire un begintrans au début et commit/rollback à la fin.

parceque dans sql+ il suffit de ne pas commit pour faire le rollback à la sortie, alors qu'avec ADO, le commit est implicite à chaque instruction, il faut donc faire une transaction globale pour reproduire le fonctionnement de sql+

Message cité 1 fois
Message édité par MagicBuzz le 03-09-2008 à 16:39:47

Kirvel

WOOOOH 6 MINUTES !!§!

MagicBuzz a écrit :

Je vois [:transparency]
Ceci dit pour ce processus-là je n'avais aucun commit à faire sous SQLPlus, j'ai pas vérifié mais les commit/rollback doivent déjà être gérés dans la procédure. [:cosmoschtroumpf]

---------------
MyAnimeList

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Script SQLPlus Oracle ==> Programme VB

Sujets relatifs
Script qui charge un css suivant résolution de l'internaute?	Script shell et menu
probléme avec fonction if dans oracle forms	Vend un script PHP par Paypal ou Allopass, aidez moi svp
Script bash - Problème d'espace dans une variable RESOLU	à l'aide : mon script ne fonctionne pas sous w2k
Petite question sur script BAT	[Oracle] trouver les colonnes différentes
[VB]joindre une commande de mise en page EXCEL à une commande d'export	Débutant- Conseils pour développer un programme d'incubation
Plus de sujets relatifs à : Script SQLPlus Oracle ==> Programme VB

Page générée en 0.107 secondes