French lien EditText avec base SQlite

[ssonap]

Bonjour,

je découvre aujourd'hui B4A
J'ai devellopé une application sur Excel et je souhaite la mettre en place par B4A.

Pour cela, j'essaye de comprendre le lien avec SQlite. Et j'aimerais avoir un début de code pour exemple (j'ai regardé les docs mais je ne trouve pas mon bonheur).
Imaginons une appli très simple avec un spinner, un Edittext (t1), un bouton (valider) et bien sur une base sqlite simple à 2 colonnes (appeler "test1.db").

Dans la base de donnée (10 lignes), il y a la première colonne qui comprend des données initiales (non modifiables)et la deuxième colonne qui comprend également des données mais qui peuvent être modifiées.


Voilà ce que je souhaite faire :
- lier le spinner à la colonne1
- lier la t1 à la colonne 2
-

le principe :
1. Lorsque je sélectionne une donnée dans le spinner, la donnée sur la même ligne dans la base en colonne 2 va dans t1 automatiquement
2. Et si je modifie l'editText (t1) et que je clique sur le bouton "valider"alors la donnée en colonne 2 se modifie sur la base de donnée sqlite et se sauvegarde.

Voilà, j'espère avoir été clair et si vous pouvez m'aider avec un bout de code dans ce sens, vous me rendrez un très grand service .

merci de votre aide.

Cordialement

 

[klaus]

Bienvenue dans la communauté B4x.
As-tu regardé les exemples simples de SQLiteLight?
Ce sont des exemples très simples qui font ce que tu veux faire.
D'autre part tu peux aussi regarder dans le B4A User's Guide (en anglais), il y a un chapitre sur SQLite, lien dans ma signature.
Les codes sources de SQLiteLight sont compris dans le fichier du User's Guide

 

[ssonap]

Bonjour,

merci pour ta réponse,

je vais regarder tout cela.

Cordialement

 

[ssonap]

Bonsoir,

j'ai suivi le conseil et j'ai regardé le user's guide mais je coince toujours.
J'ai créé un bouton (btn1) qui active la récupération d'une donnée de la colonne "Risque" pour la mettre dans un edittext (et2) si la donnée de la colonne "Situation" est égale au données d'une Edittext (et1).

mais il ne se passe rien et je ne comprends pas

ci dessous mon code

Sub btn1_Click
cursor1 = sql1.ExecQuery2("SELECT Risque FROM Menu WHERE Situation = ?", Array As String (et1.Text))
    For a=0 To cursor1.RowCount-1
        cursor1.Position = a
        et2.Text = cursor1.GetString("Risque")
    Next
End sub

cursor1 et sql1 sont bien défini puisque le code 'cursor1=sql1.ExecQuery("SELECT Risque FROM Menu") fonctionne lui très bien

par avance merci pour votre aide. J'ai vraiment besoin d'un petit éclaircissement

Bien cordialement

 

[herjo]

bonsoir
j'imagine que la connection à la db a été réalisée et qu'elle est ouverte
si c'est le cas, vous devriez faire un essai du genre :
SQL= "SELECT Risque FROM Menu WHERE Situation ='valeurEnString'

'valeurEnString' correspondant à une valeur existante recherchée

ensuite, si "situation" est une clé primaire, je ferais plutôt :
if cursor1.RowCount = 1 then
cursor1.Position = 0
et2.Text = cursor1.GetString("Risque")
end if

car avec une boucle, si ce n'est pas une clé primaire bien sûr, et si la dernière valeur est vide,
ça sera toujours celle -là qui s'affichera, donnant l'impression qu'il ne se passe rien
idem s'il n'y a pas de valeurs retournées (je me demande s'il ne faut pas mettre des guillements simples autour du ?)
cas du rowcount=0

un debug sur la ligne du 'if' vous montrera en pas à pas (touche f8) si vous êtes bien rentré dans la condition du if

ca devrait éclaircir le pb ^^

 

[klaus]

Sans voir le code complet il est quasiment impossible de donner un conseil concret, du moins pour moi.
Le plus simple serait que tu postes ton projet.
De cette manière nous voyons exactement ce que tu as fait et comment et nous pourrions tester le projet dans les mêmes conditions que toi.