Bonjour,
Afin de me familiariser avec Android j'ai réécrit une appli réalisée pour WM 6.5. C'est une appli toute simple qui affiche les localités et leur code postal.
Cela fonctionne très bien en test sur le PC mais sur le smartphone (Samsung galaxy s2) les données ne s'affichent pas.
Voici le code utilisé:
// Nom de la base SQLite NomBaseSQLite est une chaîne = "CodesPost.db"
SI EnModeTest() ALORS rep_exe est une chaîne = fRepDonnées() + "\" SINON Codes_Post..Provider = hAccèsNatifSQLite SI SysEtatCarteStockage()=sysCarteDisponible ALORS // Localise la base de données sur la SD Card, relativement au mobile Codes_Post..Source=SysRepCarteStockage() + ["/"] + NomBaseSQLite SINON // Pas de carte de stockage Erreur("Il n'y a pas de carte de stockage disponible en écriture sur cet appareil") FinProgramme() FIN FIN
HOuvreConnexion(Codes_Post) Info("Connexion effectuée surla base") HOuvre(CODPOST)
PROCEDURE Charge_villes()
nlg est entier = 0 SI cherche <> "" linfo..Visible = Vrai linfo = "Recherche en cours ..." + " " + cherche SINON linfo..Visible = Faux FIN
ZoneRépétéeSupprimeTout(ZR_post)
SI cherche <> "" ALORS letdeb est une chaîne = Minuscule(Gauche(cherche, 1)) HLitRecherchePremier(CODPOST, debvil, letdeb) SINON HLitPremier(CODPOST, nommin) FIN TANTQUE PAS HEnDehors(CODPOST) SI cherche <> "" ALORS nomlook est chaîne = ChaîneFormate(CODPOST.nommin,ccSansAccent) Remplace(nomlook,"-"," ") Remplace(nomlook,"/"," ") p est un entier = Position(nomlook, cherche, 1, SansCasse) FIN SI cherche = "" OU p > 0 ALORS ZoneRépétéeAjouteLigne(ZR_post, CODPOST.cdpost, CODPOST.nommin) nlg += 1 FIN SI nlg > 5 ALORS SORTIR SI letdeb <> "" ALORS HLitSuivant(CODPOST,debvil) SI CODPOST.debvil > letdeb ALORS SORTIR SINON HLitSuivant(CODPOST,nommin) FIN FIN SI nlg = 0 ALORS linfo = "Pas de réponse à la demande."
cherche = "" ZoneRépétéeAffiche(ZR_post)
La base "CodesPost.db" est sur la crate SD elle contient le fichier CODPOST. Le message "connexion effectuée" s'affiche sur le smartphone.
La procédure Charge_villes() est appelée par un clic sur un bouton.
Merci pour votre aide. |