Hola, a todos. Estoy tratando de lograr una agenda de contactos. Compila, no da error, pero el boton borrar, no borra los registros.
La base de datos se denomina: Comtactos.db
la tabla que contiene 17 se denomina: Datos
la LisBox se denomina: ListaContactos
el Script en On Click dice lo siguiente.
Gracias de antemano por vuestra ayuda.
La base de datos se denomina: Comtactos.db
la tabla que contiene 17 se denomina: Datos
la LisBox se denomina: ListaContactos
el Script en On Click dice lo siguiente.
-----------------
sdelete = Dialog.Message("Confirmar eliminacion de Registros", "Esta a punto, de eliminar Datos. Esta accion NO es reversible ¿Confirma, ELIMINAR los Datos?", MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1)
if sdelete == 17 then
tSelected = ListBox.GetSelected("ListaContactos")
if tSelected then
nSelected = tSelected[1]
nRecordID = String.ToNumber(ListBox.GetItemData("ListaContactos", tSelected[1]));
SQLite.Quary(db, "DELETE FROM CONTACTOS WHERE RecordID =" ..nRecordID);
nLastError = Application.GetLastError();
if nLastError ~= SQLite.OK then
Dialog.Message("Error", nLastEror, SQLite.GetLastErrorString());
end
end
Page.Jump("Menu")
end
---------------------