bonjour,
depuis 3 jours j'arrive pas à connecter mon application windevmobile android à la base de donnée sqlserver, le problème l'ors de l'exécution de la requête de test de connexion :mySQLExec(SELECT table_name FROM INFORMATION_SCHEMA.TABLES,1) de la classe c_Php4WM, il me semble que la récupération des colonnes des résultats entre dans une boucle infini.
et voila le code de la boucle:
BOUCLE
// extraction de la valeur des colonnes
v_indCar = Position(v_chaineResult,"PHP4WDSEP",v_indCour)
v_ligne = v_chaineResult[[ v_indCour A v_indCar-1]]
v_indCour = v_indCour+Taille(v_ligne)+9
v_indCar+= v_indCour
SI v_ligne = EOT ALORS SORTIR
SI Position(v_ligne,"Failed - err:") > 0 ALORS
retCode = Faux
:ErreurText = Remplace(ExtraitChaîne(v_ligne,2,"Failed - err"),"</p>","")
SORTIR
FIN
// on a pas d'erreur php donc on continue il y a un
// resultat a stocker
SI PAS :methodeZip ALORS
SI :CryptRetour ALORS
v_ligne = Remplace(v_ligne,RC,"")
v_ligne = :URLDecrypte(v_ligne)
FIN
SINON
SI v_ligne = Caract(10)+Caract(10) ALORS SORTIR
FIN
SI v_ligne = "--BINDVARIABLE--" ALORS SORTIR
// traitement des valeur a recuperer la premiere fois on mettra les
// indice et nom de colonne ensuite on prend les valeur des lignes
SI v_ligne = "--LIGNES--" ALORS
:colonne[myRequestNumber] = v_colonne
:ligne[myRequestNumber] = 0
SINON
v_ligne = Remplace(v_ligne,"Ø","")
SI DateValide(Remplace(v_ligne[[ A 10 ]],"-","")) ALORS
v_ligne = Remplace(v_ligne,"-","")
v_ligne = Remplace(v_ligne," ","")
v_ligne = Remplace(v_ligne,":","")
FIN
v_colonne ++
:ligne[myRequestNumber] ++
SELON myRequestNumber
CAS 1 : Dimension(:Resultat1,Dimension(:Resultat1)+1);:Resultat1[:colonne[myRequestNumber]+:ligne[myRequestNumber]] = v_ligne
CAS 2 : Dimension(:Resultat2,Dimension(:Resultat2)+1);:Resultat2[:colonne[myRequestNumber]+:ligne[myRequestNumber]] = v_ligne
CAS 3 : Dimension(:Resultat3,Dimension(:Resultat3)+1);:Resultat3[:colonne[myRequestNumber]+:ligne[myRequestNumber]] = v_ligne
CAS 4 : Dimension(:Resultat4,Dimension(:Resultat4)+1);:Resultat4[:colonne[myRequestNumber]+:ligne[myRequestNumber]] = v_ligne
CAS 5 : Dimension(:Resultat5,Dimension(:Resultat5)+1);:Resultat5[:colonne[myRequestNumber]+:ligne[myRequestNumber]] = v_ligne
FIN
FIN
FIN |