[dfarias]

Buenos días, tardes o noches. Ya estoy perdido en el tiempo después de 5 días tratando de hacer funcionar mi primera app con sqlite. Trate de realizar el ejemplo que propone embarcadero y otros tantos que he visto en la web y no solo que no logro que funcione sino que hay errores que no entiendo su causa. En primer lugar quiero comentar que todas la pruebas las hago con XE5 y en un Nexus 7 con 32Gb.

La primera cuestión es por que al hacer el deploy con la base de datos al querer consultarla (btnConectar) aparece vacía como si recién fuese creada . El archivo esta transferido porque como se ve en el código primero verifico si existe.

Además al ver el contenido de la carpeta (btnVerDirectorio) puedo ver que existe junto a otros archivos .jpg que están en el deploy. Pero si consulta la base esta vacia (btnVerBaseSqlite).

El segundo problema que encuentro es que si la base no existe no debería crearla según el parametros FalIFexist='True'(btnConectar). Pues la crea y además me permite agregarle registros(btnCrearTabla) y también consultarlo(btnVerRegistros). Pero al volver a ejecutar la app la base ya no existe.

Código Delphi [-]
procedure TForm4.btnConectarClick(Sender: TObject);
begin
    if not FileExists( TPath.Combine(TPath.GetDocumentsPath , trim(edit1.text))) then
     showmessage('No existe:'+ TPath.Combine(TPath.GetDocumentsPath, trim(edit1.text)));
     Dbase.Params.Values['Database'] := TPath.Combine(TPath.GetDocumentsPath, trim(edit1.text));  //'Dbase.s3db');
    dbase.Params.Values['ColumnMetadataSupported'] := 'False';
    dbase.Params.Values['FailIfMissing']:='True';
   try
     dbase.Connected := true;
     showmessage('Conexión Establecida !!!!');
   except
     on E: EDatabaseError do
       ShowMessage('Exception raised with message' + E.Message);
   end;
 end;


 procedure TFOrm4.VerDirectorio(DirPath:string);
 var
   DirList: TStringDynArray;
   s: string;
 begin
 //  DirPath := TPath.GetDocumentsPath;
    memo1.Lines.Add('Directorio de busqueda: ' + DirPath);
   if TDirectory.Exists(DirPath, True) then
   begin
     // Get all files. Non-Windows systems don't typically care about
     // extensions, so we just use a single '*' as a mask.
     DirList := TDirectory.GetFiles(DirPath, '*');
      // If none found, show that in memo
     if Length(DirList) = 0 then
       memo1.Lines.Add('Archivos no encontrados en: ' + DirPath)
     else
     begin
       for s in DirList do
         memo1.Lines.Add(s);
     end;
   end
   else
     memo1.Lines.Add('Directory does not exist.');
 end;


 procedure TForm4.VerBaseSqliter;
 var
   results: TDataSet;
   query: String;
 begin
    query:='SELECT * FROM sqlite_master';
    try
      dbase.Execute(query,nil,results);
    except
     on E: EDatabaseError do
       ShowMessage('Exception raised with message' + E.Message);
     end;
    while NOT results.Eof  do
    begin
       archivos.Lines.Add(results.FieldByName('tbl_name').AsString);
       results.Next;
    end;
 End;


 procedure TForm4.btnCrearTablaClick(Sender: TObject);
 begin
      dbase.ExecuteDirect('create table if not exists productos (id int(5) primary key not null, detalle char(30));');
      dbase.ExecuteDirect('insert INTO productos VALUES         (1,"detalle 1");');
      dbase.ExecuteDirect('insert into productos values         (2,"detalle 2");');
  end;


 procedure TForm4.btnVerRegistrosClick(Sender: TObject);
 var
   results:TDataset;
 begin
   try
     dbase.Execute('select * from productos', nil, results);
   except
     on E: Exception do
       showmessage( 'Exception raised with message: ' + E.Message);
   end;
   while NOT results.Eof  do
    begin
       archivos.Lines.Add(results.FieldByName('detalle').AsString);
       results.Next;
    end;
     results.Close;
  end;

La verdad que entre tantos problemas y las ciento de pagina visitadas tanto lo poco de Firemoky como lo abundate de Sqlite ya estoy totalmente confuso y no sé que mas puedo hacer. Si alguien me puede ayudar o guiarme a algo concreto para investigar se lo agradecería infinitamente.