Login mot de passe
Modification SQLPrepare [forum - SQLManagerX]

Parcourir ce sujet :   1 Utilisateur(s) anonymes





Modification SQLPrepare
Animateur
Inscrit:
2008/9/9 11:09
Messages: 255
Hors Ligne
j'ai modifier SQLPrepare le code ci-dessous :


<span style="color: #CC0000;">PROCEDURE</spanVIRTUELLE SQLManagerX::SQLPrepare()

//si un lock est en cour on l'annule    
:SQLDeadLock()

// Prepare une requete avant de l'envoyer
chaineAjout est chaîne = :SQLInsert(Vrai)

SI ::transaction ALORS
    SI PAS 
:SQltransac OU :base<>"MYSQL" ALORS
        
:MySQL:MysqLtransaction((:MySQL:MySQLdebut),1)
        :
SQltransac Vrai
    FIN
FIN

SI 
:base<>"MYSQL" OU Taille(:SourcePrep)+Taille(chaineAjout) >= 32767 ALORS 
    SI 
:SourcePrep "" ALORS :SourcePrep += chaineAjout
    
<span style="color: #CC0000;">:SQLExecute(PAS ::transaction)</span>
    :
SourcePrep ""
FIN
SI 
:base "MYSQL" ALORS 
    SI 
:SourcePrep "" ALORS :SourcePrep += chaineAjout SINON :SourcePrep +=","ExtraitChaîne(chaineAjout,2,"VALUES")
FIN


comme suit :

<span style="color: #CC0000;">FONCTION </span>VIRTUELLE SQLManagerX::SQLPrepare()

<
span style="color: #CC0000;">ret est un booléen</span>

//si un lock est en cour on l'annule    
:SQLDeadLock()

// Prepare une requete avant de l'envoyer
chaineAjout est chaîne = :SQLInsert(Vrai)

SI ::transaction ALORS
    SI PAS 
:SQltransac OU :base<>"MYSQL" ALORS
        
:MySQL:MysqLtransaction((:MySQL:MySQLdebut),1)
        :
SQltransac Vrai
    FIN
FIN

SI 
:base<>"MYSQL" OU Taille(:SourcePrep)+Taille(chaineAjout) >= 32767 ALORS 
    SI 
:SourcePrep "" ALORS :SourcePrep += chaineAjout
    
<span style="color: #CC0000;">ret = :SQLExecute(PAS ::transaction)</span>
    :
SourcePrep ""
FIN
SI 
:base "MYSQL" ALORS 
    SI 
:SourcePrep "" ALORS :SourcePrep += chaineAjout SINON :SourcePrep +=","ExtraitChaîne(chaineAjout,2,"VALUES")
FIN

<span style="color: #CC0000;">RENVOYER (ret)</span>


ainsi on peut récupérer l'état de SQLPrepare()

est-ce une bonne chose ?

Posté le : 2009/8/4 17:12
_________________
Cordialement, JeAn-PhI...
Transférer la contribution vers d'autres applications Transférer

Sujet Auteurs Dernières réponses





[Recherche avancée]