Mise en œ uvre du langage PL.SQL
Contents
1. RCltools Oracle Excel Manuel d utilisation Exemple 2 Requ te simple renvoyant une valeur Objectif Ex cuter une requ te SQL stock e dans une variable de type String Source du programme Copyright RCI Informatique SA 1998 Sample VBAsmp02 x1ls Public RCIdoSelectSOL As String Sub End Sub End test1 Declarations Dim r As Integer Dim wSQL As String Routine Call RciInit inits wSQL Select count from user_tables r Run RCIdoSelectSQL wSQL 1 1 1 To Cell A1 If r lt gt 0 Then MsgBox Error amp r Exit Sub MsgBox Result amp ActiveSheet Cells 2 1 Sub RciInit ModuleName rciw127 xls RCIdoSelectSQOL ModuleName amp RCIdoSelecEtSOL Sub one value RCI Informatique SA 16 F vrier 1998 version 1 27 8 p5 RClItools Oracle Excel Manuel d utilisation Exemple 3 Listage des tables du User courant et pour chaque table d termination du nombre de lignes Objectif Ex cuter une requ te SQL stock e dans une variable de type String Source du programme Copyright RCI Informatique SA 1995 1998 Sample VBAsmp03 x1ls Public RCIdoSelectSQOL As String Pub ic RCIgetSQOL As String Public RCIstrReplaceOne As String Sub temp End Sub End test1 Call RciInit initialisat ions routines login depuis le sous p ActiveWindow ScrollRow chargement de la requ wSQL2. Mise en uvre du langage PL SQL A 45 46 Declare A n number 45 begin 49 Delete from rez select counti into n from user tables insert into resir values ini commit C Feuill Feuil2 Feuils Jal Il est possible avec RCITools Oracle Excel de soumettre des ordres PL SQL L utilisation conjointe de cette possibilit avec celle de lire et d crire tr s facilement des fichiers ascii comportant du SQL a t con ue dans le but d offrir un environnement facilitant au maximum la manipulation de blocs PL SQL RClItools Oracle Excel Manuel d utilisation Automatisation de Rci Tools Il est possible de d clencher automatiquement le lancement de requ tes RCI Tools exactement de la m me fa on que si l on utilisait le sous menu DoSQL Voici un exemple de sous programme VBA Visual Basic Applications encha nant une suite de requ tes SQL localis es dans des groupes de cellules nomm s SQL1 SQL2 SQL3 et SQLA Classeur4 xls Module Code G n ral Macro Sub Macroliii I Lpplication Goto Keference kes3 election Clear ontents ipplication Goto Keference 50oLi ipplication Eun RciWi 7 xls MenuSoL ipplication Goto KReference SQoLs Bpplication Eun RciW127 x1s MenusSoL ipplication Goto Reference sSQoLSsr ipplication Eun EciWi7 x1s Menu oL ipplication Goto References Rica End Sub Notez la fa on d appeler depuis un module macro de votre
3. Run RCIgetSQL c If wSQL error Then ex cution de la requ te rogramme Exit Sub Te SQL de liste des tables sans affichage de dialogue Columns A B ClearContents RciTools samples VBA002T1 sql r Run RCIdoSelectsSQL wWSQL r sultat en ligne 1 1 1 10 k 1 Do k Kk 1 wTable Lectur on ne traite pas le titre ActiveSheet Cells k 1 If wTable de la requ t Run RCIgetsSQL If wSQL error remplacement q WSQ Run RCIstrRepl If wSQL error r wSQ L L la variable 1 par Then Run RCIdoSelectSQOL SQL depuis le disque c RciTools samples VBA0021 colonne 1 If r lt gt 0 Then max 10 lignes Exit Sub AL Then Exit Do 2 sql chgt requ te Then Exit Sub aceOne wsSQOL Table Exit Sub wSQL 1 3 1 WwW If ActiveSheet Cellsik Loop ActiveSheet Cellsi l 3 Sub Rcilnit ModuleName rciwl27 xl RCIdoSelectSQOL RCIgetSQL ModuleName amp RCIstrReplaceOne sub S ModuleName amp ModuleName amp ActiveSheet Cel 2 URL ActiveSheet Cel MIRCIdoSelecEtSQOL IRCIgetSOL ls 2 1s 2 r lt gt 0 Then 3 3 MIRCIstrReplaceOne le nom de la table Exit Sub CE A ffacement zone RCI Informatique SA 16 F vrier 1998 version 1 27 8 p 6
4. feuille de calcul la proc dure MenuSQL de la feuille RciW127 xls RCI Informatique SA 16 F vrier 1998 version 1 27 8 p2 RClItools Oracle Excel Manuel d utilisation Mise en oeuvre de RciTools Oracle Excel et du langage VBA VBA Visual Basic Applications est le langage commun aux outils bureautique de Microsoft dont Microsoft Excel Le logiciel RciTools Oracle Excel comporte un certain nombre de primitives permettant d effectuer de mani re tr s simple des requ tes Oracle depuis Excel VBA Primitives disponibles RciDoLogin by Val xUser as String by Val xPassword as String by Val xServer as String r sultat Integer 0 si succ s de la connexion sinon le code erreur Oracle Action tablissement d une connexion vers un serveur Oracle La connexion reste ouverte jusqu au changement de connexion ou au fait de quitter Excel RCldoSelectSQL by Val xSQOL as String byVal xRow as Integer byVal xColumn as Integer by Val xMaxRows as Integer r sultat Integer 0 si succ s de la requ te sinon le code erreur Oracle Action Lancement de la requ te SQL fournie dans l argument xSQL Le r sultat de la requ te est plac e dans la feuille active la position xRow xColumn Si le nombre de lignes renvoy es par la requete est sup rieur la valeur xMaxRows un dialogue est affich l utilisateur avec mention du nombre effectif de ligne RClgetSQL by Val xFile as String r sultat Stri
5. ng error si une erreur s est produite le contenu du fichier si celui ci a pu tre trouv et lu Action Lecture du fichier pass en argument et renvoi du contenu de celui ci en tant que cha ne de caract res RCIstrReplaceOne by Val xString as String by Val xNew Value as String r sultat String error si une erreur s est produite le contenu de la chaine remplac e Action Recherche dans la cha ne xString l occurence ou les diff rentes occurences de la sous cha ne 1 et remplacement par la sous cha ne xNewvalue RCI Informatique SA 16 F vrier 1998 version 1 27 8 p3 RCltools Oracle Excel Manuel d utilisation Exemple 1 Connexion Oracle Objectif Tester une connection une base Oracle et afficher un message en fonction du r sultat de la connexion Source du programme Copyright RCI Informatique SA 1998 Sample VBAsmp01 xls Public RCIdologin As String Sub test1 Declarations Dim wUser wPwd wServer As String Dim r As Integer Routine Call RciInit inits wServer InputBox Prompt Server r Run RCIdoLogin Scott Tiger wServer If r lt gt 0 Then MsgBox Error amp r Exit Sub Else MsgBox Connected to Scott at amp wServer End If End Sub Sub RciInit ModuleName rciw127 xls RCIdoLogin ModuleName amp RCIdoLogin End Sub RCI Informatique SA 16 F vrier 1998 version 1 27 8 p4
Download Pdf Manuals
Related Search