SQLite, how to delete correctly a record?

Mahares said:

See code below. I commented the line that was giving you trouble and replaced it with the line below it.

B4X:

Sub Listing_ItemClick (Position As Int, Value As Object)
Dim Cursor2 As Cursor
    Cursor2 = SQL1.ExecQuery("SELECT ID, Champ1, Champ2, Champ3 FROM mytable")
    
    
'    Cursor2.Position = Value-1
    Cursor2.Position = Position  '8/3/12  by Mahares

You should be able to delete any record without problems.
Bonne Journee.

Click to expand...

Mahares said:

@mc73: I do not know if you had a chance to run his code to see why using the value yielded the error in his execution. Please confirm if you have an alternate or a more secure solution. It will be refreshing to know.

Click to expand...

Sub Listing_ItemClick (Position As Int, Value As Object)
    Dim cursor2 As Cursor 
'replacements -----    
cursor2 = SQL1.ExecQuery2("SELECT ID, Champ1, Champ2, Champ3 FROM mytable WHERE ID=?",Array As String (Value) )
    
    cursor2.Position =0
'------------------

Sub BtnSupprimer_Click
    If LblTexte.Text = "" Then
 ToastMessageShow("Pas de ligne selectionnée", False)
 Else
    Dim Answ As Int
    Answ = Msgbox2("Voulez vous vraiment supprimer cet enregistrement","A T T E N T I O N","Yes","","No",Null)
    If Answ = DialogResponse.POSITIVE Then
'replacement -----            
SQL1.ExecNonQuery2("DELETE FROM mytable WHERE ID = ?", Array As Object(T_Index))
'------------
    End If
    AFFICHE_LISTE
 End If
End Sub

ciginfo said:

Fantastic. The two solutions work fine. But if I have understood, i have to take mc73's solution, more complexe but more secure.
I don't understand the possible problem with mahares's solution.
Thank you both.

Click to expand...