Blog de dsr57 - Windev » SYBASE https://blog.developpez.com/dsr57 Blog sur l'edi windev Thu, 04 Jun 2015 11:46:25 +0000 fr-FR hourly 1 https://wordpress.org/?v=4.1.42 Sybase : Procédures stockées https://blog.developpez.com/dsr57/p12636/windev-14/sybase-procedures-stockees https://blog.developpez.com/dsr57/p12636/windev-14/sybase-procedures-stockees#comments Fri, 06 Jun 2014 20:30:56 +0000 http://blog.developpez.com/dsr57/?p=281 Contexte du billet

Windev : 14
Accès natif : Oui
Base de données : Sybase
Explications : appel d’une procédure stockée sur un serveur de base de données SYBASE

Introduction

Je viens d’être confronté à un problème, l’appel d’une procédure stockée sur un serveur SYBASE via un accès natif. Avant de commencer à coder l’ensemble du cahier des charges, je commence par écrire une simple procédure et à coder la communication entre WinDev et Sybase. La procédure effectue uniquement un INSERT. Code la procédure stockée :

create procedure test (@ps_RglMepIdn int, @ps_datDeb date, @ps_datFin date)
as
begin
    insert into tmp values (@ps_RglMepIdn, @ps_datDeb, @ps_datFin)
end

Procédure OK, maintenant la communication …. Premier réflexe, regarder l’aide PC-SOFT. La documentation depuis la version 14 a très peu évoluée, vous pouvez la consulter à l’adresse suivante :
http://doc.pcsoft.fr/fr-FR/?acces-natif-sybase-recuperer-valeur-sortie-une-procedure-stockee-executee-sur-serveur

On suit la doc …

Documentation avec un exemple, impeccable je reproduit l’exemple, déclaration d’une variable de type source de données et fonction HExécuteRequêteSQL. Une erreur est retournée (cf. image ci-dessous), Le problème semble de provenir d’un problème de correspondance de type de variable.

Texte de l'erreur retournée

J’ai amélioré l’exemple pour prendre en charge la correspondance des variables sans succès, SYBASE reçoit les variables à NULL

Ci-dessous le code écrit d’après la doc :

li_test est un entier sur 4 octet
ld_dateDeb est une Date
ld_dateFin est une Date

li_test=gt_LstRglMep[li_i][2]
ld_dateDeb=gt_LstRglMep[li_i][3]
ld_dateFin=gt_LstRglMep[li_i][4]
   
maProc est une Source de Données
maProc.ps_RglMepIdn=li_test
maProc.ps_datDeb=ld_dateDeb
maProc.ps_datFin=ld_dateFin

   
SI PAS HExécuteRequêteSQL(maProc,connexion,hRequêteSansCorrection,"test @ps_RglMepIdn, @ps_datDeb, @ps_datFin") ALORS
        Erreur(HErreurInfo(hErrComplet))
FIN

Malgré de nombreuses tentatives, je n’ai pas réussi à faire appel à une procédure stockée SYBASE en utilisant une variable de type sources de données.

Une solution

Une solution, déclarer une variable de type chaîne pour gérer l’appel à la procédure stockée et modifier le paramètre « mode » de la fonction HExécuteRequêteSQL, celui-ci doit contenir les constantes :

  • hRequêteSansCorrection;
  • hSansBind.

    • Exemple de code :

    SI PAS HExécuteRequêteSQL("ProcStock_MajEmp",connexion,hRequêteSansCorrection+hSansBind,"test @ps_RglMepIdn="+gt_LstRglMep[li_i][2]+", @ps_datDeb='"+gt_LstRglMep[li_i][3]+"', @ps_datFin='"+gt_LstRglMep[li_i][4]+"' ") ALORS
            Erreur("Erreur de l'exécution de la mise à jour des emplacements : "+RC+HErreurInfo())
    FIN

    Conclusion

    Ce billet permet d’apporter une solution pour appeler une procédure stockée SYBASE dans l’EDI WinDev en version 14. La solution ne prend pas en compte si la procédure stockée retourne une valeur. Dans une prochain billet, j’effectuerai un test sur la version 19 pour tenter de reproduire l’exemple de la doc.

    ]]>     0