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. |