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

[ecfisa]

Hola foxer_juan.

El error es claro, no existe una columna(field) en la tabla "contactos" cuyo nombre sea "Direccion" ¿ Seguro que el nombre de la columna está bien escrito y la tabla es la correcta ?

Revisa bíen el nombre (mejor un copy/paste de la consola a la cadena SQL de Delphi) y también controla que en la tabla a que se refiere la consulta exista dicho nombre.

Saludos

[foxer_juan]

Empezado por ecfisa

Hola foxer_juan.

El error es claro, no existe una columna(field) en la tabla "contactos" cuyo nombre sea "Direccion" ¿ Seguro que el nombre de la columna está bien escrito y la tabla es la correcta ?

Revisa bíen el nombre (mejor un copy/paste de la consola a la cadena SQL de Delphi) y también controla que en la tabla a que se refiere la consulta exista dicho nombre.

Saludos

La verdad me pasa lo mismo...el mismo error. "EDatabaseError whit message 'ZQuery2: Field 'Direccion' not found"

[foxer_juan]

nose si servirá de algo pero al ejecutar la consulta en la consola del sqlite me da como resultado el valor 'roca 1100'
el campo 'direccion' de la tabla 'contactos' es de tipo char (100).
dejo esos datos para ver si tengo algun error q no puedo ver. gracias por tu ayuda,.

[ecfisa]

Hola foxer_juan.

Si estas estableciendo la cadena de consulta al TZQuery mediante la asignación de un valor en su propiedad Text,

Código Delphi [-]
ZQuery2.SQL.Text :=  'select ...

descarto que el error pueda ser producto de una cadena residual. Por otro lado ya has comprobado los nombres de columna y tabla así que no es error en los nombres...

Sólo se me ocurre que el TZConnection esté haciendo referencia a otra base de datos, tal vez una versión anterior de prueba, en donde exista otra tabla "contactos" sin tener creada la columna "Direccion" y que fue agregada con posterioridad, revisa también ese punto.

Saludos

[ecfisa]

Hola juan.

Empezado por foxer_juan

nose si servirá de algo pero al ejecutar la consulta en la consola del sqlite me da como resultado el valor 'roca 1100'
el campo 'direccion' de la tabla 'contactos' es de tipo char (100).
dejo esos datos para ver si tengo algun error q no puedo ver. gracias por tu ayuda,.

Para ir descartando, vamos a hacer una prueba.

Pone un TDBGrid en blanco (no le crees columnas) y relacionalo con un TZQuery mediante un TDataSource y luego usa este código:

Código Delphi [-]
begin
  ZQueryTmp.Close;
  ZQueryTmp.SQL.Text :=  'select * from contactos';
  ZQueryTmp.Open;
end;

Luego revisa si el DBGrid muestra una columna llamada "direccion".

Saludos

[[nlsgarcia]]

foxer_juan,

Empezado por foxer_juan

...Mi dilema esta en que no puedo copiar los datos de las consultas a variables...

Empezado por foxer_juan

...el campo 'direccion' de la tabla 'contactos' es de tipo char (100)...

Te comento:

1- El ejemplo mostrado en el Msg #3, Realiza una consulta a una BD SQLite 3 por medio de ZeosLib y tiene por finalidad mostrar la conexión y visualización de datos así como brindar un medio para probar la BD en cuestión.

2- La asignación de datos de una BD a un tipo TDataSet, String, Integer, Double, TDateTime, etc es igual que con cualquier tipo de variable, es decir:

Código Delphi [-]
  VariableX := ZQuery1.FieldByName('VariableX').Value;

2- Te sugiero revisar el link propuesto en el Msg #3, en el se hacen asignaciones de campos de una BD SQLite 3 a campos de un TDataSet.

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, DB, ZAbstractRODataset, ZAbstractDataset, ZDataset,
  ZAbstractConnection, ZConnection;

type
  TForm1 = class(TForm)
    ZConnection1: TZConnection;
    ZQuery1: TZQuery;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(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) + '\' + 'TestDB.s3db';
   ZConnection1.Protocol := 'sqlite-3';
   ZConnection1.Connect;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

   with ZQuery1 do
   begin

      Connection := ZConnection1;
      Close;
      Sql.Clear;

      if Edit5.Text <> EmptyStr then
      begin
         Sql.Text := 'Select * from Users Where CodUser = :P1';
         ParamByName('P1').Value := Edit5.Text;
      end
      else
      begin
         Sql.Text := 'Select * from Users';
      end;

      Open;

      if (ZQuery1.RecordCount >= 1) then
      begin
         Edit1.Text := FieldByName('CodUser').Value;
         Edit2.Text := FieldByName('Name').Value;
         Edit3.Text := FieldByName('Address1').Value;
         Edit4.Text := FieldByName('Address2').Value;
      end
      else
         MessageDlg('No existen datos a consultar',mtInformation,[mbOK],0);

   end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   Edit1.Text := EmptyStr;
   Edit2.Text := EmptyStr;
   Edit3.Text := EmptyStr;
   Edit4.Text := EmptyStr;
   Edit5.Text := EmptyStr;
end;

end.

El código anterior en Delphi 7 sobre Windows 7 Professional x32, Consulta una BD SQLite 3 y muestra su resultado en componentes TEdits, como se muestra en la siguiente imagen:



La estructura y datos de la BD SQLite 3 del ejemplo es la siguiente:



Espero sea útil

Nelson.