J'ai transféré une base de données d'Oracle sous Windev 7.5, maintenant que j'ai toutes les tables et les données, je voudrais programmer une mise à jour régulière automatique des données.
Pour cela j'ai crée un bouton dans une fenêtre et lorsque l'exécutable sera sur le serveur, il y aura un clic sur ce bouton régulièrement pour la mise à jour.
Cependant j'ai une erreur dans mon code:
Ce code me permet de me connecter sur la base Oracle, SAUVE est la table qui contient tout les noms des 381 tables de la base. Je voudrais parcourir cette table pour mettre à jour chaque table grâce à ma procédure.
- Code: Tout sélectionner
//Description Connexion1
SI HDécritConnexion("Connexion1", "cubic", "octal", "LISTENER", "", "MSDAORA")= Vrai ALORS
Info("Description connexion ok")
FIN
//Ouverture Connexion1
SI HOuvreConnexion("Connexion1")=Vrai ALORS
Info("Ouverture connexion ok")
FIN
//Sauve utilise la Connexion1
SI HChangeConnexion("SAUVE","Connexion1")=Vrai ALORS
Info("Changement connexion ok")
FIN
Test est une Source de Données
//Initialisation de la requête
SI HExécuteRequêteSQL(Test,"SELECT * FROM SAUVE")=Vrai ALORS
HLitPremier(Test)
TANTQUE PAS HEnDehors()
MajDonnée(Test.Table_name)
HLitSuivant()
FIN
SINON
Erreur ("rq")
FIN
Le code de ma procédure locale MajDonnée:
- Code: Tout sélectionner
PROCEDURE MajDonnée(Table_name)
TRACE("table : "+Table_name)
Test est une Source de Données
Req1 est une Source de Données
Req2 est une Source de Données
SI HChangeConnexion("*","Connexion1")=Vrai ALORS
Info("yyyyeeeeeesssssss")
FIN
SI HExécuteRequêteSQL(Req1,"SELECT * FROM"+Table_name)=Vrai ALORS
HChangeConnexion("*","")
HExécuteRequêteSQL(Req2,"INSERT INTO"+Table_name+"SELECT * FROM Req1")
FIN
Voila mon erreur:
Erreur à la ligne 11 du traitement Procédure locale MajDonnée.
La rubrique Hyper File Test.Table_name est inconnue.
Fichier <Test> inconnu dans l'analyse <C:\Mes Projets\Octal\Octal.wdd>.
En espérant de l'aide, merci.
