Guardar el Resultado de una Consulta en sqlite3 a una variable en delphi 7

[[nlsgarcia]]

foxer_juan,

...como debo guardar el resultado de una consulta en sqlite3 a una variable en Delphi 7...

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ZAbstractConnection, ZConnection, ZPgEventAlerter,
  ZIBEventAlerter, ZSequence, ZSqlMonitor, ZSqlProcessor, ZSqlMetadata,
  ZStoredProcedure, ZGroupedConnection, ZConnectionGroup, ZSqlUpdate,
  ZAbstractTable, ZDataset, ZAbstractDataset, DB, ZAbstractRODataset,
  Grids, DBGrids, StdCtrls;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    ZConnection1: TZConnection;
    DataSource1: TDataSource;
    Button1: TButton;
    ZQuery1: TZQuery;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   ZConnection1.Database := ExtractFilePath(Application.ExeName) + '\' + 'SQLTest.DB';
   ZConnection1.Protocol := 'sqlite-3';
   ZConnection1.Connect;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   with ZQuery1 do
   begin
      Connection := ZConnection1;
      DataSource1.DataSet := ZQuery1;
      Close;
      Sql.Clear;
      if Edit1.Text <> EmptyStr then
      begin
         Sql.Text := 'Select * from Countries Where Name Like :P1';
         ParamByName('P1').AsString := Edit1.Text + '%';
      end
      else
         Sql.Text := 'Select * from Countries';
      Open
   end;
end;

end.

El código anterior en Delphi 7 sobre Windows 7 Professional x32, Realiza una consulta a una BD SQLite por medio ZeosLib y muestra el resultado en un componente TDBGrid, como se muestra en la siguiente imagen:



Revisa esta información:

Manipular datos de distintas base de datos

Espero sea útil

Nelson.