[Lazarus-es] Eliminar registro en BD SQLite

Jorge M. Martinez Saez jorge.martinez.saez en gmail.com
Lun Jun 25 17:01:58 CEST 2012


El 25-06-2012 9:44, Maikel Enrique Pernía Matos escribió:
> Hola, estoy desarrollando desde Lazarus, una app que utiliza SQLite 
> como BD, hasta ahora puedo conectarme con la base de datos e insertar 
> datos en la tabla de forma permanente; pero el problema está en la 
> posibilidad de eliminar un registro de la tabla.
>
> Agrego el código de conexión y manejo de la Base de Datos:
> <code>
>  Un formulario con los siguientes componentes:
>   Button1: TButton;
>   Datasource1: TDatasource;
>   DBEdit1: TDBEdit;
>   DBGrid1: TDBGrid;
>   DBNavigator1: TDBNavigator;
>   SQLite3Connection1: TSQLite3Connection;
>   SQLQuery1: TSQLQuery;
>   SQLTransaction1: TSQLTransaction;
>
>
>  //Procedimiento para configurar los componentes y activar la conexión:
>  procedure TForm1.Button1Click(Sender: TObject);
>  begin
>    with SQLite3Connection1 do begin
>       DatabaseName := '/home/maikel/prueba.alf';
>       LoginPrompt  := False;
>       Transaction  := SQLTransaction1;
>       Connected    := True;
>    end;
>
>    with SQLQuery1 do begin
>       SQL.Add('SELECT nombre FROM persona');
>       Transaction := SQLTransaction1;
>       DataBase    := SQLite3Connection1;
>       Active      := True;
>    end;
>
>    SQLTransaction1.Active  := True;
>    Datasource1.DataSet     := SQLQuery1;
>    DBGrid1.DataSource      := Datasource1;
>    DBNavigator1.DataSource := Datasource1;
>    DBEdit1.DataSource      := Datasource1;
>    DBEdit1.DataField       := 'nombre';
>  end;
>
>  //Procedimeinto para almacenar permanentemente los datos
>  //luego de la inserción.
>  procedure TdmDatos.SQLQuery1AfterPost(DataSet: TDataSet);
>  begin
>     SQLQuery1.ApplyUpdates();
>     SQLQuery1.CommitRetaining;
> end;
> </code>
>
>
>
> ----------------------------------------------------------------
> This message was sent using IMP, the Internet Messaging Program.
>
>
> -- 
>
> Este mensaje le ha llegado mediante el servicio de correo electronico 
> que ofrece Infomed para respaldar el cumplimiento de las misiones del 
> Sistema Nacional de Salud. La persona que envia este correo asume el 
> compromiso de usar el servicio a tales fines y cumplir con las 
> regulaciones establecidas
>
> Infomed: http://www.sld.cu/
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>
Hola Maikel:

Cual es el codigo que usas para eliminar los datos?

Has revisado los permisos que el usuario tiene sobre la base? (para 
eliminar)

Atte

-- Jorge Martinez Saez 9-8817012




More information about the Lazarus-es mailing list