foxer_juan,
Cita:
...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
public
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:
Espero sea útil
Nelson.