leggere tabelle di DB SQLite3 con Zeos

[DragoRosso]

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

A mio parere, ritorna dal componente TZConnection. Poi pian piano, quando avrai voglia, nuovo entusiamo e tempo puoi ripartire a vedere come il componente funziona e come si interfaccia con l'IZConnection.
Io purtroppo non posso aiutarti perchè Lazarus l'ho preso in mano da poco.

Ciao, mai disperarsi, la soluzione si trova sempre.

[petrusic]

A mio parere, ritorna dal componente TZConnection. Poi pian piano, quando avrai voglia, nuovo entusiamo e tempo puoi ripartire a vedere come il componente funziona e come si interfaccia con l'IZConnection.
Io purtroppo non posso aiutarti perchè Lazarus l'ho preso in mano da poco.

Se esistesse una guida unica e dettagliata di Lazarus e free pascal, sarebbe tutto molto più semplice e probabilmente potrei fare a meno di Zesolib. Infatti Lazarus ha i suoi strumenti per gestire database, ma, come molto materiale appartenente al mondo Linux, quello che si trova in giro è costituito molto spesso da guide scritte da volontari appassionati, ai quali va il ringrazìamento  più sincero e pieno di graditudine. Poi ci sono gli esempi e le esperienze di vita vissuta, all'interno dei forum. Ma questi ultimi, per lo più in lingua inglese, non sono quasi mai calzanti con lo spicchio di coidice che bisognerebbe mettere giù per i propri scopi.

Attenzione! La mia non è una critica, nè una lamentela, ma solamente un breve resoconto delle difficoltà logistiche che ho incontrato nel mio cammino, fino ad oggi.

Il mondo pascal in Lazarus mi piace tantissimo, ma per imparare quel poco che ho imparato è trascorso già un anno, mentre la mia vita scorre più velocemente. In ogni caso devo tantissimo agli amici di questo Forum, che ho trovato sempre disponibili a sostenermi, rispondendo alle mie sempre presenti difficoltà, tanto è che sono arrivato ai primi posti della hit parade dei messaggi scritti . 

Per lavorare sui DB non so più cosa fare: Zeos mi ha un pò deluso, Ho provato gli strumenti propri di Lazarus, ma anch'essi sono risultati ostici e li ho abbandonati.
Si lo so, posso tornare a ZConnection, ma se voglio aggiornare, per es. 5 tabelle di DB, dando un solo Commit alla fine di tutti e 5 gli agli aggiornamentio, devo disegnare 5 ZQuery: dalla 1, alla 5 e quando tutto è pronto, finalmente, posso e devo comandare 5 Commit.
 

[DragoRosso]

Comprendo cosa vuoi dire, ma sinceramente non ritengo che usare 5 Query e fare 5 Commit sia un problema.
Magari non è quello a cui volevi arrivare, ma il tuo scopo lo hai raggiunto.

Se il creatore di Linux avesse atteso di avere il BlueTooth per pubblicare Linux, ancora ad oggi Linux non esisterebbe.

E se il problema è che una delle commit possa fallire andando a rendere incoerente il database, nelle risposte passate vedrai che ci hanno dato anche una soluzione con gli strumenti propri di SQLite (SAVEPOINT, ROLLBACK e RELEASE).

In quanto alla fatica di programmare, quello lo troverai sempre, e te lo dice uno che sicuramente non è da F1, ma che ha visto tanti linguaggi e sistemi operativi (molti dove il copia ed incolla era un miraggio), in cui molto spesso si programmava con il comando "ed" di Unix.

Quando si è alla prime armi (non come programmatore) con l'uso di un componente conviene usare ciò che viene messo a disposizione, poi si affina la tecnica.

Vai comunque tranuqillo che usare 5 query non è un problema.

Saluti

[petrusic]

...  usare 5 query non è un problema.

Anche se non mi piace e se mi sembra funzionalmente illogico, concordo perfettamente.

[Stilgar]

Il debugger lo usi?


Perchè ho l'impressione che tu stia mandando 2 volte il protocollo da usare (quindi il driver).
Magari mi sbaglio.


Immagino che tu abbia delle stringhe del tipo

Codice: [Seleziona]

  dbDati:= dbDati + dbCopia;
  DriverManager.GetConnection(DriverManager.ConstructURL(CurrentProtocol, '', dbDati, '', '', 0, nil)); 
  // dbDati('zdbc:sqlite:')+dbCopia('/media/dirdati/dativari/contabfam/ContabFamdb_prove')

Quindi l'url risultante è quasi certamente sbagliato.


Qualcosa del tipo 'zdbc:sqlite:zdbc:sqlite:/il tuo file'
Carica l'url in una variabile e controlla col debugger il suo contenuto. O stampa a console il valore, come ti trovi meglio.
Stilgar

[Stilgar]

Ti lascio un esempio di un metodo che ho scritto, qui creo tabelle al volo dentro sqlite.

Codice: [Seleziona]

procedure TDatabaseModule.createStructures(fileName: TFileName);
begin
  try
    FUpdateConnection := DriverManager.GetConnection(DriverManager.ConstructURL(CurrentProtocol, '', fileName, '', '', 0, nil));
    try
      if not tablePresent(FUpdateConnection, 'Subject') then
      begin
        FUpdateConnection.CreateStatement.Execute('CREATE TABLE Subject (id VARCHAR(37) primary key, title varchar(50))');
      end;
      if not tablePresent(FUpdateConnection, 'Note') then
      begin
        FUpdateConnection.CreateStatement.Execute('CREATE TABLE Note (id VARCHAR(37) primary key, subjectId VARCHAR(37), title varchar(100), [text] text, password varchar(200), FOREIGN KEY(subjectId) REFERENCES Subject(id))');
      end;
      if not tablePresent(FUpdateConnection, 'Attach') then
      begin
        FUpdateConnection.CreateStatement.Execute('CREATE TABLE Attach (id VARCHAR(37) primary key, noteId VARCHAR(37), comment varchar(2000))');
      end;
      if not tablePresent(FUpdateConnection, 'ToDo') then
      begin
        FUpdateConnection.CreateStatement.Execute('CREATE TABLE ToDo (id VARCHAR(37) primary key, noteId VARCHAR(37), comment varchar(2000), done int default 0)');
      end;
      if not tablePresent(FUpdateConnection, 'Info') then
      begin
        FUpdateConnection.CreateStatement.Execute('CREATE TABLE Info (key varchar(30) primary key, value varchar(100));');
        FUpdateConnection.CreateStatement.Execute('INSERT INTO Info (key,value)values(''format-version'',''2.0'')');
      end;
      FUpdateConnection.CreateStatement.Execute('VACUUM');
    finally
      FUpdateConnection.Close;
    end;
  except
    on e: Exception do
    begin
      writeln(e.Message);
    end;
  end;
  FUpdateConnection := nil;
end;

Codice: [Seleziona]

function TDatabaseModule.tablePresent(datasource: IZConnection; tableName: string): boolean;
var
  rs: IZResultSet;
begin
  Result := False;
  rs := datasource.GetMetadata.GetTables('', '', '%' + tableName + '%', ['TABLE']);
  while rs.Next do
  begin
    tableName := rs.GetStringByName('TABLE_NAME');
    if tableName = tableName then
    begin
      Result := True;
      break;
    end;
  end;
end;

Stilgar

[petrusic]

Il debugger lo usi?
[...]
Perchè ho l'impressione che tu stia mandando 2 volte il protocollo da usare (quindi il driver).
[...]
Carica l'url in una variabile e controlla col debugger il suo contenuto. O stampa a console il valore, come ti trovi meglio.

Il debugger lo uso, ma per constatare insieme il contenuto dell'URL faccio così

Codice: [Seleziona]

  dbDati:= dbDati + dbCopia;
  striMia:= DriverManager.ConstructURL(CurrentProtocol, '', dbDati, '', '', 0, nil);
  Writeln('DriverManager.URL= "' + striMia + '"');
  DriverManager.GetConnection(DriverManager.ConstructURL(CurrentProtocol, '', dbDati, '', '', 0, nil));

Ecco il risultato

DriverManager.URL= "zdbc:sqlite:///zdbc:sqlite:/media/dirdati/dativari/contabfam/ContabFamdb_prove"

Sostituendo dbDati con dbCopia, ottengo:

DriverManager.URL= "zdbc:sqlite:////media/dirdati/dativari/contabfam/ContabFamdb_prove"

Non capisco la presenza delle "///" precedenti il percorso contenuto nella variabile dbCopia (dalla finestra del debugger: "dbCopia = '/media/dirdati/dativari/contabfam/ContabFamdb_prove'
const
 dbCopia:
String
/media/dirdati/dativari/lazarus_progetti/lazarus_progetti_miei/daContDom_aDomusRatio/frmmain.pas(96,3))

[Stilgar]

Ciao.
Il fatto che ci siano 3 / dipende dal fatto che si sta lavorando con un url.


Se leggi una pagina html da disco il browser visualizzerà nella barra degli indirizzi una cosa simile a "file:///"


URL,URI e URN hanno una loro sintassi.




Cmq, ora ti si apre quel benedetto file?




Stilgar.

[petrusic]

Cmq, ora ti si apre quel benedetto file?

Si, finalmente si apre.

Le istruzioni finali usate fino ad ora ("fino ad ora", perchè non ho ancora approfondito sugli esempi che mi hai riportato prima.)
sono:

Codice: [Seleziona]

const
  CurrentProtocol = 'sqlite';

  dbCopia: String = '/media/dirdati/dativari/contabfam/ContabFamdb_prove';
  dbOrig: String = '/media/dirdati/dativari/contabfam/ContabFamdb';
var
  FConn: IZConnection;
  stmt  :IZStatement;
  rs  :IZResultSet;                           
[...]
begin
  striMia:= DriverManager.ConstructURL(CurrentProtocol, '', dbCopia, '', '', 0, nil);
  Writeln('DriverManager.URL= "' + striMia + '"');
  FConn:= DriverManager.GetConnection(striMia);                   
[...] 
       stmt := FConn.CreateStatement;
        sql:= 'SELECT DtCoMovg,StaDtMovg FROM riepmovg WHERE DtCoMovg >= ' + dtIni + ' AND DtCoMovg <= ' + dtFin;
        rs   := stmt.ExecuteQuery(sql);
        totRecQry:= rs.GetRow;     // totRecQry contiene sempre 0, anche quando il range di ricerca non è nullo
[...]

Devo approfondire l'indagune di ricerca errori nelle ultime due righe del mio codice.
 

[Stilgar]

GetRow dovrebbe (ma non ricordo bene) a che posizione sei nel cursore.


Quindi senza while rs.next do dovrebbe restare sempre a zero.


Stilgar

[petrusic]

GetRow dovrebbe (ma non ricordo bene) a che posizione sei nel cursore.

Non capisco bene cosa vuoi dire. Vuoi sapere dove si trova la "G" di GetRow ?  La risposta è: posiz.26 

Quindi senza while rs.next do dovrebbe restare sempre a zero.

Hai ragione a fare quella riflessione, il codice è sparuto, ma ho riportato solo l'essenziale. Prima di questo momento riportarlo tutto non aveva senso.
Le istruzioni di lettura della tabella di DB (riepmovg) sono all'interno di un ciclo iterativo comandato dalla fine dei file .odt contenenti i fogli di calcolo da trattare:

Codice: [Seleziona]

procedure TForm1.FormCreate(Sender: TObject);
const
  dirFogli: string = '/media/dirdati/dativari/ContDom/';
  CurrentProtocol = 'sqlite';

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

  FConn: IZConnection;
  stmt  :IZStatement;
  rs  :IZResultSet;
  swAster: Boolean = False;

  lun, totRecQry: Integer;

  annata, dtIni, dtFin, sql, striMia: String;
begin
//---------------------------------------------------- Salvataggio prudenziale del DB "ContabFamdb" -------------------------------------------------
  CopyFile(dbOrig, dbCopia);
  ShowMessage('"ContabFamdb" copiato in "ContabFamdb_prove"');
//---------------------------------------------------- FINE salvataggoio ---------------------------------------------------------------------------------
  striMia:= DriverManager.ConstructURL(CurrentProtocol, '', dbCopia, '', '', 0, nil);
  Writeln('DriverManager.URL= "' + striMia + '"');
  FConn:= DriverManager.GetConnection(striMia);
  stmt:= FConn.CreateStatement;
  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';
dtIni:= '20020101';   // istruzione di prova di inizio periodo con 352 record
dtFin:= '20021231';   // istruzione di prova di fine periodo con 352 record
        sql:= 'SELECT DtCoMovg,StaDtMovg FROM riepmovg WHERE DtCoMovg >= ' + dtIni + ' AND DtCoMovg <= ' + dtFin;
        try
          rs:= stmt.ExecuteQuery(sql);
          totRecQry:= rs.GetRow;
        except
          on e: Exception do
          begin
            writeln(e.Message);
          end;
        end;
          FConn.Close;
          FConn:= nil;
          case totRecQry of
          0:
           begin
            striMia:= '-' + Esito.Name;
            lsDir.Items.Add(striMia);
           end
           else
             begin;
              WriteLn('*** TROVATI in riepmovg, per l''annata -'+ annata + '- n.' + IntToStr(totRecQry) + '***');
              striMia:= '*' + Esito.Name;
              swAster:= True;
              lsDir.Items.Add(striMia);
             end;
        end;
      end;
    Until FindnNext(Esito) <> 0;
    FindClose(Esito);
//   Writeln('Lettura directory -> TERMINATA' );
    PulsAvvia.Caption:='AVVIO' + chr(10) + 'LAVORO';
    case
      swAster of
        True:
        begin
          leInfoMov.Visible:= True;
        end;
    end;
  end;
end;

Ora ho riportato tutta la procedura. Ho inserito una data di inizio e fine periodo dove esistono 352 record (verificato col DBBrowser di SQLite), proprio per verificare il funzionamento della query scritta. Infatti la tengo sotto controllo in debugger e la faccio eseguire una volta sola.
Purtroppo non ho capito cosa manca per farla funzionare.

[Stilgar]

Scusa.
Ho scritto senza rileggere.
Getrow dovrebbe restituire la posizione del cursore.

Non spostando il cursore sei alla riga zero.
Come scrivevo nella miniguida, serve un rs.next
Se restituisce false vuol dire che non c'è più nulla nel cursore.

Stilgar

[petrusic]

Getrow dovrebbe restituire la posizione del cursore.

Non spostando il cursore sei alla riga zero.
Come scrivevo nella miniguida, serve un rs.next
Se restituisce false vuol dire che non c'è più nulla nel cursore.

Ah! Avevo capito male. Secondo me "rs.GetRow" era l'istruzione corrispondente alla "Form1.ZQuery1.RecordCount" di TZConnection.
Anche, leggendo la miniguida, non avevo capito che bisognava attivare un contatore di righe artigianale.

Comunque, anche questa è andata ed ho potuto fare, grazie alla tua superilluminazione, un altro piccolo passo avanti.

[petrusic]

Mi riferisco al seguente passo della miniguida Zeos dietro le quinte:

Come si accede alle colonne?
cursor.get[xxxxx](indice).

Poichè devo risalire all'ultimo progressivo ID di ciascuna tabella del DB, (l'ID occupa sempre la colonna 1), ho provato a scrivere una function unica in grado di leggere il contenuto della prima colonna dell'ultima riga di una tabella qualsiasi:

Codice: [Seleziona]

function LeggiUltimoID(nmTabDB: String):Integer;
const
CurrentProtocol = 'sqlite';

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

  numID, sql, striMia: String;

begin
  striMia:= DriverManager.ConstructURL(CurrentProtocol, '', dbCorr, '', '', 0, nil);
  FConn:= DriverManager.GetConnection(striMia);
  stmt:= FConn.CreateStatement;
   sql:= 'SELECT fields[1] as col1 FROM ' + nmTabDB + 'ORDER BY col1 DESC LIMIT 1';
  rs:= stmt.ExecuteQuery(sql);
  numID:= LoadCursorFromLazarusResource(col1);    // dovrebbe leggere il contenuto della colonna 1 della tabella corrente del DB

end;

Ebbene, numID assume 0(zero).

numID = 0
var
 numID: Integer = longint
/media/dirdati/dativari/lazarus_progetti/lazarus_progetti_miei/daContDom_aDomusRatio/frmmain.pas(1216,3)

[DragoRosso]

Codice: [Seleziona]

 numID:= LoadCursorFromLazarusResource(col1);    // dovrebbe leggere il contenuto della colonna 1 della tabella corrente del DB

Non penso che quello ti ritorni il valore contenuto nel campo 'col1', ha a che fare con tuttaltro.

Tramite Interfaccia non conosco la funzione da chiamare, ma penso che sia tramite

Codice: [Seleziona]

rs.getRow