leggere tabelle di DB SQLite3 con Zeos

[petrusic]

Bene.
Per ora preferisco muovermi come posso farlo, con le mie forze e con le conoscenze che via sto acquisendo qui, grazie ai vostri preziosi suggerimenti.

Ho continuato a seguire l'argomento "Zeos ... dietro le quinte" e ho portato le modifiche necessarie al mio programma, ma, ahimè, mi sono imbattuto in un muovo stop del compilatore:

Codice: [Seleziona]

procedure TForm1.FormCreate(Sender: TObject);
const
  dbCopia: String = '/media/dirdati/dativari/contabfam/ContabFamdb_prove';
  dbOrig: String = '/media/dirdati/dativari/contabfam/ContabFamdb';

var
  dbConn: IZConnection;
  stmt: IZStatement;
  rs: IZResultSet;
  swAster: Boolean = False;

  lun, totRecQry: Integer;

  annata, dtIni, dtFin, sql, striMia: String;
  dbDati: String = 'zdbc:sqlite-3:';
[...]
begin  
[...]
  dbDati:= dbDati + dbCopia;
  dbConn := DriverManager.GetConnection(dbDati);           
[...]
   stmt:= FConnection.CreateStatement;
   sql:= 'SELECT DtCoMovg,StaDtMovg FROM riepmovg WHERE DtCoMovg >= ' + dtIni + ' AND DtCoMovg <= ' + dtFin;
   rs:= stmt.ExecuteQuery(sql);
   totRecQry:= rs.GetRow;
[...]                                                        

Non capisco perchè il compilatore NON riconosce FConnestion:

frmmain.pas(155,17) Error: Identifier not found "FConnection"

Ho guardato e riguardato la guida di Stilgar tante volte, ma non ho trovato niente che mi illuminasse.
Che cosa manca ora?

[Stilgar]

Attento ai nomi delle variabili.


Il compilatore ti dice cosa non gradisce.


Stai dichiarando dbConn: IZConnection; e usi [/size]stmt:= FConnection.CreateStatement;.


"F" prima delle variabili, se applichiamo le convenzioni, indica che è una variabile d'istanza.


dbConn va benissimo come nome locale.







Stilgar

[petrusic]

Stai dichiarando dbConn: IZConnection; e usi [/size]stmt:= FConnection.CreateStatement;.
"F" prima delle variabili, se applichiamo le convenzioni, indica che è una variabile d'istanza.
dbConn va benissimo come nome locale.

Non ti nascondo che ho qualche difficoltà a capire, per i mie limiti, il tuo suggerimento. Io non ho fatto altro che copiare i nomi di alcune variabili dalla tua miniguida.
Comunque, ho modificato le righe  che hanno determinato l'errore segnalato dal compilatore:

Codice: [Seleziona]

procedure TForm1.FormCreate(Sender: TObject);
const
  dbCopia: String = '/media/dirdati/dativari/contabfam/ContabFamdb_prove';
  dbOrig: String = '/media/dirdati/dativari/contabfam/ContabFamdb';

var
  dbConn: IZConnection;
  stmt: IZStatement;
  rs: IZResultSet;

  lun, totRecQry: Integer;

  annata, dtIni, dtFin, sql, striMia: String;
  dbDati: String = 'zdbc:sqlite-3:';

begin                                 
[...]
 dbDati:= dbDati + dbCopia;
 dbConn:= DriverManager.GetConnection(dbDati);                                 
[...]
 stmt:= dbConn.CreateStatement;
 sql:= 'SELECT DtCoMovg,StaDtMovg FROM riepmovg WHERE DtCoMovg >= ' + dtIni + ' AND DtCoMovg <= ' + dtFin;
 rs:= stmt.ExecuteQuery(sql);
 totRecQry:= rs.GetRow;            
[...]

Ebbene, il compilatore non ha trovato errori formali, ma l'esecuzione si è fermata alla riga:
"stmt:= dbConn.CreateStatement;", segnalando l'Errore: "SQL Error: unable to open database file".
  ? 

[DragoRosso]

const
  dbCopia: String = '/media/dirdati/dativari/contabfam/ContabFamdb_prove';

Manca l'estensione del file ?

Magari ho fatto una osservazione sciocca, perdonatemi.

Saluti

[nomorelogic]

hai controllato i permessi di tutto il percorso?

il tuo utente deve avere i permessi di lettura/scrittura sulle varie cartelle

[Stilgar]

Drago.
A Sqlite non interessa l'estensione.
Effettivamente potrebbe essere che manchi qualche cartella o non sia raggiungibile causa permessi.




Stilgar

[Stilgar]

Ho verificato (giusto perchè mi è venuto il dubbio).
Sotto windows creo file con o senza estensione.




Stilgar

[DragoRosso]

Si, lo sò. Intendevo che la path includeva il file, ma il file reale aveva anche una estensione tipo .s3db ......

[petrusic]

Dalle osservazioni lette capisco che le istruzioni che ho allegato in visione

Codice: [Seleziona]

stmt:= dbConn.CreateStatement;
 sql:= 'SELECT DtCoMovg,StaDtMovg FROM riepmovg WHERE DtCoMovg >= ' + dtIni + ' AND DtCoMovg <= ' + dtFin;
 rs:= stmt.ExecuteQuery(sql);
 totRecQry:= rs.GetRow;      

sono formalmente corrette.

hai controllato i permessi di tutto il percorso?
il tuo utente deve avere i permessi di lettura/scrittura sulle varie cartelle

No, l'unico utente sono io. Comunque, per prova ho attivato i permessi a tutti e l'errore è sempre lo stesso

SQL Error: unable to open database file".

al momento del "dbConn.CreateStatement".

[nomorelogic]

puoi mettere quì l'output del seguente comando?

Codice: [Seleziona]

namei -m /media/dirdati/dativari/contabfam/ContabFamdb_prove

[petrusic]

Codice: [Seleziona]

[petrus@localhost ~]$ namei -m /media/dirdati/dativari/contabfam/ContabFamdb_prove
f: /media/dirdati/dativari/contabfam/ContabFamdb_prove
 dr-xr-xr-x /
 drwxr-xr-x media
 drwxr-xr-x dirdati
 drwxrwxrwx dativari
 drwxrwxrwx contabfam
 -rwxr-xr-x ContabFamdb_prove
[petrus@localhost ~]$ 

Non so se possa servire, ma il programma su cui stiamo ragionando, prima di tutto, esegue una copia del db originale in quello di prova:

Codice: [Seleziona]

 dbCopia: String = '/media/dirdati/dativari/contabfam/ContabFamdb_prove';
 dbOrig: String = '/media/dirdati/dativari/contabfam/ContabFamdb';
var
  AProcess: TProcess;
  Esito: TSearchRec;

  dbConn: IZConnection;
  stmt: IZStatement;
  rs: IZResultSet;

  lun, totRecQry: Integer;

  annata, dtIni, dtFin, sql, striMia: String;
  dbDati: String = 'zdbc:sqlite-3:';

begin
 AProcess := TProcess.Create(nil);      //  creo l'oggetto TProcess e lo assegno alla variabile AProcess.
  striMia:='rm -f ' + dbCopia;       // *** NON necessasria ***
  AProcess.CommandLine:= striMia;   // rimuovo, se esiste, la copia vecchia del DB
  AProcess.Options := AProcess.Options + [poWaitOnExit];    //  Questa opzione permette il complitamento del comando affidato ad AProcess prima di
//                                                            restituire il controllo al programma corrente
  AProcess.Execute;   //  esegue la linea di comando col comando creata prima
  striMia:= 'cp ' + dbOrig + ' ' + dbCopia;
  AProcess.CommandLine:= striMia;
  AProcess.Options := AProcess.Options + [poWaitOnExit];
  AProcess.Execute; 
  AProcess.Free;
  ShowMessage('"ContabFamdb" copiato in "ContabFamdb_prove"');      

e funziona benissimo

[nomorelogic]

non sapevo della copia che funzionava
cmq "unable to open database file" mi sembra proprio un errore di nome di file o di permessi
le cartelle media e dirdati, immagino siano del tuo utente e non di root giusto?


un piccolo suggerimento
non hai bisogno di usare TProcess che chiama 'rm' per eliminare un file, c'è DeleteFile
https://www.freepascal.org/docs-html/rtl/sysutils/deletefile.html

per copiare c'è CopyFile che se non ricordo male è in FileUtils

[petrusic]

Ho aggiunto il gruppo di istruzioni try nel CreateStatement, allo scopo di verificare il contenuto del parametro dbDati al momento dell'esecuzione:

Codice: [Seleziona]

try
          stmt:= dbConn.CreateStatement;
        except
          on E: Exception do
          WriteLn('ERRORE nel "dbConn.CreateStatement", dove dbConn contiene "DriverManager.GetConnection(' + dbDati + ')"' + IntToStr(E.HelpContext) + ': ' + E.Message);
        end;

Naturalmente non è cambiato niente.

ERRORE nel "dbConn.CreateStatement", dove dbConn contiene "DriverManager.GetConnection(zdbc:sqlite-3:/media/dirdati/dativari/contabfam/ContabFamdb_prove)"0: SQL Error: unable to open database file

Il contenuto di dbDati è corretto.   

[Stilgar]

Ciao.
Prova ad usare

Codice: [Seleziona]

const
  CurrentProtocol = 'sqlite';

Codice: [Seleziona]

  DriverManager.GetConnection(DriverManager.ConstructURL(CurrentProtocol, '', fileName, '', '', 0, nil));

Giusto per verifica.


Stilgar

[petrusic]

@ Stilgar
Ho provato a fare come mi hai detto:

Il messaggio d'Errore è cambiato, ma il risultato finale non cambia.

Il progetto ContDomInDomusRatio ha sollevato una eccezione di classe 'External: SIGSEGV'.

 Nel file 'frmmain.pas' alla riga 158:
stmt := dbConn.CreateStatement;

riporto il codice modificato:

Codice: [Seleziona]

const
  CurrentProtocol = 'sqlite';
  dbCopia: String = '/media/dirdati/dativari/contabfam/ContabFamdb_prove';  
  dbOrig: String = '/media/dirdati/dativari/contabfam/ContabFamdb';
var
  AProcess: TProcess;

  dbConn: IZConnection;
  stmt  :IZStatement;
  rs  :IZResultSet;
[...]
  dbDati: String = 'zdbc:sqlite:';

begin                                                          
[...]
 dbDati:= dbDati + dbCopia;
  DriverManager.GetConnection(DriverManager.ConstructURL(CurrentProtocol, '', dbDati, '', '', 0, nil)); 
 // DriverManager.GetConnection(DriverManager.ConstructURL(CurrentProtocol, '', dbCopia, '', '', 0, nil));

  If FindFirst(dirFogli + 'ContDom*.*', faAnyFile,  Esito)=0 then
  begin
    Label1.Caption:= 'Directory corrente:' + chr(10) + dirFogli;
    repeat
      begin
        lun:= Length(Esito.Name);
        annata:= Copy(Esito.Name,(lun-7),4);
        WriteLn('nomeFoglio= "' + Esito.Name + '" / annata: -' + annata + '-');
        dtIni:= annata + '0101';
        dtFin:= annata + '1231';

        stmt := dbConn.CreateStatement;                          

Ho riportato due righe per DriverManager.GetConnection, perchè non ho capito se la variabile da te indicata come "nomefile" doveva contenere sempre la prima parte ('zdbc:sqlite:'). In ogni caso, eseguendo il programma, la prima volta con la 2.^a riga, la seconda volta, con la 1.^a riga, l'Errore prodotto è sempre lo stesso.

Temo che dovrò abbandonare IZConnetion per ritornare a TZConnection, oppure, drasticamente, dovrò abbandonare addirittura ZEOS.