1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78
|
gsListeTableHF, TableHF, sCleSource est une chaîne
bConnecter est un booléen = Faux
AccesMySQL est un c_Php4WX
alias est une Source de Données
SI InternetConnecté() ALORS
//Connexion via Php4WX
AccesMySQL:TypeBase = "PDOMySQL"
AccesMySQL:CleCryptage = "MACLE"
AccesMySQL:CryptRetour = Faux
AccesMySQL:CrypteReq = Vrai
AccesMySQL:methodeZip = Faux
AccesMySQL:dataHexa = Faux
AccesMySQL:modeUTF8Entree = Vrai
AccesMySQL:modeUTF8Sortie = Faux
AccesMySQL:charset = "utf-8"
AccesMySQL:alphabet = alphabetUTF8
SI PAS EnModeTest() ALORS AccesMySQL:PocketPC = Vrai
SI PAS AccesMySQL:mySQLConnecte("adresse_IP_du_serveur/php4wd.php","user","mp","BDD") ALORS
Erreur("Impossible de se connecter au serveur de base de données distant.")
FinProgramme()
FIN
MaCnx_MySQl..Utilisateur = "root"
MaCnx_MySQl..MotDePasse = ""
MaCnx_MySQl..Serveur = "Serveur"
MaCnx_MySQl..BaseDeDonnées = "BDD"
MaCnx_MySQl..Provider = hAccèsNatifMySQL
MaCnx_MySQl..Accès = hOLectureEcriture
MaCnx_MySQl..InfosEtendues = "Infos étendues"
MaCnx_MySQl..OptionsCurseur = hCurseurClient
SI HOuvreConnexion(MaCnx_MySQl) = Faux ALORS
Erreur("Impossible de se connecter à la base de données distant. Vérifier votre connexion Internet."+RC+" Si l'erreur persiste, contacter l'administrateur.")
FIN
SI HOuvreConnexion(MaCnx) = Vrai ALORS
gsListeTableHF = HListeFichier()
TableHF = ExtraitChaîne(gsListeTableHF, rangPremier,RC)
TANTQUE TableHF <> EOT
SI HAlias(TableHF, alias) = Vrai ALORS
HChangeNom(alias, TableHF)
HChangeConnexion(alias, MaCnx_MySQl)
HCréation("*")
HLitPremier(TableHF)
TANTQUE PAS HEnDehors(TableHF)
SI HCopieEnreg(alias, TableHF, hCopieIdAuto ) ALORS
//Ajout des enregistrement dans la base de données MySQl
HAjoute(alias, hFixeIdAuto)
FIN
HLitSuivant(TableHF)
FIN
HAnnuleAlias(alias)
SINON
Erreur("Détail du Problème lors de la création du fichier tampon " + HErreurInfo())
FIN
TableHF = ExtraitChaîne(gsListeTableHF, rangSuivant,RC)
FIN
SINON
ToastAffiche("La connexion à la base de données distant a échoué. La sauvegarde reprendra dans 30 minutes.",toastCourt,cvMilieu)
FIN
SINON
ToastAffiche("Le réseau internet a été interrompu. La sauvegarde reprendra dans 30 minutes.",toastCourt,cvMilieu)
FIN
HFermeConnexion(MaCnx_MySQl) |
Partager