[Lazarus-es] Eliminar registro en BD SQLite

Maikel Enrique Pernía Matos reprepoli2mz en infomed.sld.cu
Lun Jun 25 15:44:31 CEST 2012


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/




More information about the Lazarus-es mailing list