Discussion :

[thomas67]

Bonjour,

J'aimerais savoir comment exécuter un script SQL sur SQL*Plus via une macro dans un fichier excel.
J'ai déjà inséré une commande shell qui ouvre SQL*Plus et se connecte à la base de données selon les identifiants de l'utilisateur, cela fonctionne bien, mais je ne sais pas comment lui dire d'exécuter le script voulu (un fichier .sql), ni même si c'est possible.

Merci d'avance de votre aide.
Bonne journée

[Invité]

bonjour, regarde ça

[thomas67]

Merci pour la réponse rapide!

C'est un peu chinois pour moi qui ne maîtrise pas du tout la syntaxe vba, donc j'ai fait du copier-coller pour voir...

mais j'ai déjà un problème au niveau de la 1ère ligne de commande: Dim Con As New ADODBRD
>> erreur "Type défini par l'utilisateur non défini"
Je suppose que le terme ADODBRD fait appel à qqch qui n'est pas accessible sur ma version d'excel??

Comme la connexion à la base est déjà établie lors de l'ouverture de SQL*Plus, je pense que ça peut se contourner, mais je ne sais évidemment pas comment.
Si je supprime la partie qui concerne la connexion et que je garde seulement la lecture du fichier, la commande "execute sql" m'indique une erreur : "Sub ou Fontion non définie"

Parcontre pour la lecture du fichier, ça a l'air de fonctionner (bon, il ne se passe rien, du coup, mais on avance)

[Invité]

ADODBRD c’est une classe elle est dans mon fichier Excel :
Onglet modules de classe dans VB
En suite tu donne les infos du serveur et le reste ce fait tout seule juste à donner le chemin et le non de ton fichier SQL.

Code :

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

1
2
3
4
Con.TYPEBASE = SQLServer2008R2
Con.Server = "Myser"
Con.BASE = "MyBase"
Con.PassWord = "123"

Code :

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

Open "c:\test\FICHTEST.sql" For Input As #1

Pour intégrer la classe ADODBRD dans ton projet, c’est comme windows exploreur tu fais un glissé déplacé de mon classeur vers le tien.

[thomas67]

Super, merci!
J'ai malheureusement encore un souci, ma connexion habituelle se fait avec SQL+, sur une base ORACLE, en entrant user, mot de passe et chaîne hôte.

Code :

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

1
2
3
4
Con.TYPEBASE = ORACLE
Con.Server = "Myser"  ???
Con.BASE = "ABCD"
Con.PassWord = "motdepasse"

Pour le paramètre Server, mystère... et je ne vois pas où renseigner le nom d'utilisateur (pourtant utilisé dans la fonction GenereCSTRING), du coup je l'ai ajouté à tout hasard.
Aucune erreur au lancement de la macro, parcontre rien ne se passe au niveau de la connexion, et évidemment aucun résultat.
La fenêtre d'exécution affiche bien le script du fichier SQL.
Je sèche...

[Invité]

Bonjour,
Désolé de cet oubli !

Code :

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

Con.User = "MyUser"

Cette Classe à été créé pour fonctionner sur un serveur. Personne pour cliqué sur un bouton, voilà pourquoi il n’y à pas d’erreur.
Fait du pas à pas [F8]