delphi - Excepción SQLite planteada con mensaje: no hay tabla

sqlite3 delphi-xe2

Question

Creé una aplicación que recopila información de la computadora (nombre de la computadora, CPU, memoria, etc.) pero estoy teniendo un momento tan difícil para mostrar la información almacenada en la base de datos SQLite, cuando ejecuto una consulta me aparece "NO TAL CUADRO" mensaje cuando sé con certeza que tengo una tabla llamada "hardware", ¿qué estoy haciendo mal?

Aquí el código que uso para ejecutar la consulta:

procedure TMain.executeButtonClick(Sender: TObject);
var
  results: TDataSet;
  query: String;

begin
  outputMemo.ClearSelection;
  query := ''SELECT * FROM hardware;'';
  try
    SQLConnection1.Execute(query, nil, results);
  except
    on E: Exception do
      outputMemo.Text := ''Exception raised with message: '' + E.Message;
  end;
  ShowSelectResults(results);
end;

El archivo de base de datos y la tabla se crean mediante programación cada vez que se ejecuta la aplicación

procedure CheckForDatabase;
var
  sldb: TSQLiteDatabase;
  sSQL: string;

begin
  slDBPath := ExtractFilePath(paramstr(0)) + ''ComputerName.db'';
  // ShowMessage(slDBPath);
  sldb := TSQLiteDatabase.Create(slDBPath);
  try
    if sldb.TableExists(''hardware'') then
      begin
        sSQL := ''DROP TABLE hardware'';
        sldb.ExecSQL(sSQL);
      end;

    sSQL := ''CREATE TABLE hardware (id INTEGER PRIMARY KEY, compname TEXT, username TEXT, model TEXT, manufacturer TEXT, domain TEXT, ip TEXT, serialnumber TEXT)'';
    sldb.ExecSQL(sSQL);
    sldb.ExecSQL(''CREATE INDEX sHardware ON hardware(CompName);'');
    sldb.BeginTransaction;
    sSQL := ''INSERT INTO hardware(id, compname, username, model, manufacturer, domain, ip, serialnumber) VALUES (1, "AMD8537", "OMonge", "Gigabyte", "Gigabyte", "Workgroup", "192.168.1.11", "8746652");'';
    sldb.ExecSQL(sSQL);
    sldb.Commit;
  finally
    sldb.Free;
  end;
end;

Y esta es la base de datos SQLite:

Cualquier ayuda que me pueda brindar será muy apreciada. Gracias.

Answer 1

Usted Taged Delphi-XE2 entonces mi respuesta pertenece a XE2

Desde la versión RAD Studio XE3 TSQLMonitor es compatible con bases de datos SQLite. ...

Con XE2 No puede usar SQLConnection1: TSQLConnection; con Driver Sqlite !
No funcionará SQLConnection1.Execute(query, nil, results);

De acuerdo con el código utilizado, parece ser el simple Delphi wrapper for Sqlite 3 actúe.

Entonces puedes usar el sldb recién creado.

slDBPath := ExtractFilePath(paramstr(0)) + ''ComputerName.db'';
sldb := TSQLiteDatabase.Create(slDBPath);

En el procedure CheckForDatabase;

retirar

var
  sldb: TSQLiteDatabase;

y ponerlo en la interfaz de su aplicación

private
    { Private declarations }
    sltb: TSQLIteTable;
    sldb: TSQLiteDatabase;

también elimine sldb.Free; formar el bloque finalmente

finally
    sldb.Free;
end;

En su executeButtonClick(...

procedure TMain.executeButtonClick(Sender: TObject);
var
  query: String;

begin
  outputMemo.ClearSelection;
  query := ''SELECT * FROM hardware;'';
  sltb := sldb.GetTable(query);
  if sltb.Count > 0 then begin
     //display first row
     ....
  if not sltb.IsLastRow the begin
     sltb.Next;
     //display next row
     ....

cómo mostrar los valores de campo: mira aquí