problemi con sqlite 3 e zeos

[nomorelogic]

così a occhio potrebbe mancare
ZConnection1.Protocol := ...
prima di effettuare la connessione

se non è questo fai così:
1) vai sulla riga " GetDir(0, C);"
2) premi F5 e metti un breakpoint
3) lancia con F9
4) quando il debugger ti visualizza il punto di esecuzione, vai avanti a forza di F8 finché non individui la riga che da errore (e ci fai sapere )

[antoniog]

ZConnection1.Protocol := sqlite-3
dopo molti cicli while I< ... Dà errore su
TTempz.Delete;

4 record(s) updated. Only one record should have been updated.

[antoniog]

cè qualcosa che non funziona nel ciclo while ... Per che aggiunto
try
except
          on E: Exception do  //E:EDatabaseError do
          informa(E.Message);

ed E: ritorna per molte volte il seguente messaggio
0 record(s) updated. Only one record should have been updated

[antoniog]

adesso funziona solo che non cancella i record, dove devo mettere .ApplyUpdates,
da qualsiasi parte lo metta mi dà errore.

procedure TConvPrismaF.Button3Click(Sender: TObject);
var
   I : Integer;
  // TTempDBF : TDbf;
  TTempZ : TZTable;
    Perco, Perco1, TempFile, C : string;
begin

      GetDir(0, C);
       perco:= C+'/GENUARDI/2010/esercizio.sdb';
       perco1:= C+'/GENUARDI/2010';
       ConvPrismaF.ProgressBar1.Max := DataSql.ComponentCount;
    with DataSql do
    begin
          //daidir
      ZConnection1.Connected:=False;
      ZConnection1.Database:= perco ;
      ZConnection1.Connected:=True;
    I:=0;
     while I < ComponentCount do
      begin
      try
      begin
         label2.Caption:=  Components.Name;
        if Components is TZTable then
          begin
            TTempz:= Components as TZTable;
            if (TTempz.Name <> 'Esercizi') and
             (TTempz.Name <> 'Aziende')  and
             (TTempz.Name <> 'Archivi')  and
              (TTempz.Name <> 'PartitaCliFor')  and
              (TTempz.Name <> 'ProvPrimaPC')  and
              (TTempz.Name <> 'ProvPrimaCCL')  and
              (TTempz.Name <> 'ProvPrimaCIL')
               then
                 begin

                    ConvPrismaF.ListBox1.Items.Add(perco1+'/'+TTempz.TableName);
                    TTempz.Active:=True;
                    if TTempz.recordcount>0 then
                      begin
                        TTempz.First;
                        while not TTempz.EOF do
                          begin
                            TTempz.Delete;
                            //TTempz.ApplyUpdates;
                            TTempz.Next;
                          end;
                      end;
                end;
                //TTempz.ApplyUpdates;
            if TTempz.Active=True then  TTempz.Active:=False;
          end;
         //TTempz.ApplyUpdates;
        ConvPrismaF.Progressbar2.Position:= ConvPrismaF.Progressbar2.Position + I;
        I:=I+1;
        end;
       except
          on E: Exception do  //E:EDatabaseError do
          informa(E.Message);

         end;
          I:=I+1;
         end;
      end;
       informa('Finito Cancella.');

    //end;
end;                   

[Stilgar]

Codice: [Seleziona]

Procedura CancellaTabella(Connessione : TZConnection; nomeTabella : String)
var
  statement:IZPrepareStatement;
  numeroRigheEliminate : integer;
begin
try
  statement := Connessione.DbcConnection.PrepareStatement('delete from ?');
  statement.setStringParma(1,nomeTabella);
  numeroRigheEliminate:= statement.ExecuteUpdatePrepared;
except
  on E : Exception do
   informa(E.Message);
end;  
  statement := nil;
End;

Scritto di getto, non testato con il compilatore... vole essere solo una traccia

[antoniog]

convprisma.pas(258,31) Error: Identifier not found "IZPrepareStatement"

[Stilgar]

ZDBCIntfs nella uses ...

[nomorelogic]

procedure TConvPrismaF.Button3Click(Sender: TObject);
[...]
                    if TTempz.recordcount>0 then
                      begin
                        TTempz.First;
                        while not TTempz.EOF do
                          begin
                            TTempz.Delete;
                            //TTempz.ApplyUpdates;
                            TTempz.Next;
                          end;
                      end;
                end;             
[...]

ApplyUpdates a parte, questo pezzo di codice è il responsabile del problema dell'eliminazione: ti veniva cancellato 1 record si ed 1 no, nel tuo caso credo tutti i record dispari
Quando invochi Delete, il cursore passa automaticamente al record successivo, non serve la Next anzi è un errore richiamarla perché così ne salti uno che non verrà cancellato.

Per cancellare tutto è meglio seguire il consiglio di Stilgar (molto più veloce) però, nel caso dovessi tornare a scrivere qualcosa del genere, devi scrivere il loop in questo modo:

Codice: [Seleziona]

                    if TTempz.recordcount>0 then
                        while TTempz.recordcount>0 do
                            TTempz.Delete;

Edit:
anzi...
la prima riga, quella con l'if non serve neanche, basta:

Codice: [Seleziona]

while TTempz.recordcount>0 do TTempz.Delete;

[antoniog]

Nomorelogic, sembra funzionare ed è molto semplice e veloce, in effetti la mia mia procedura concellava solo metà tabella. per quanto riguarda il suggerimento di Stilgar dovrò studiare ancora un pò. già che siamo in tema allego la procedura che dovrebbe copiare i dati dalle tebelle DBF in quelle SQL, ho provato a lanciarla, gira, non fà niente, e consuma tutta la memoria e la RAM. grazie per l'aiuto.

procedure IniziaConverti;
var
  I, f, g : Integer;
  TTempDBF : TDbf;
  TTempZ : TZTable;
  Perco, Perco1, TempFile : string;
  CampoP, Dest, C : string;
begin
  ConvPrismaF.ProgressBar1.Position := 0;
  ConvPrismaF.ProgressBar2.Position := 0;

  //MessageDlg('Inizia Converti', mtInformation, [mbOk], 0);
  GetDir(0, C);
  perco:= C+'/GENUARDI/2010/esercizio.sdb';
  perco1:= C+'/GENUARDI/2010';
    // pulizia archivi in DataSql
  with DataSql do  // modulo dati con Zeos e Ztable
    begin
          //daidir
      ZConnection1.Connected:=False;
      ZConnection1.Database:= perco ;
      ZConnection1.Connected:=True;
    I:=0;
     while I < ComponentCount do
      begin
       try
        if Components is TZTable then
          begin
            TTempz:= Components as TZTable;
             if (TTempz.Name <> 'Esercizi') and
             (TTempz.Name <> 'Aziende')  and
             (TTempz.Name <> 'Archivi')  and
              (TTempz.Name <> 'PartitaCliFor')  and
              (TTempz.Name <> 'ProvPrimaPC')  and
              (TTempz.Name <> 'ProvPrimaCCL')  and
              (TTempz.Name <> 'ProvPrimaCIL')
               then
                 begin
                   TTempz.Active:=True;
                   // inizia trasferimento dati
                   f:=0;
                   with DataDBF do   // modulo dati con tabelle DBF
                     begin
                       while f < DataDBF.ComponentCount do
                        begin
                         if Components[f] is TDbf then
                           begin
                              TTempDBF:= Components[f] as TDbf;
                               if TTempDBF.Name = TTempz.Name then
                                 begin
                                   TTempDbf.Active:=False;
                                   TTempDbf.FilePath:= perco1;
                                   TTempDbf.FilePathFull:= perco1;
                                   TTempDbf.Active:=True;
                                   f:= DataDBF.componentCount;
                                 end;
                              end;
                           f:=f+1;
                         end;
                         TTempDbf.First;
                         while not TTempDbf.EOF do
                           begin
                             TTempz.Append;
                             g:=0;
                             while  (g < TTempDbf.FieldCount)  do
                               begin
                                  CampoP:= TTempDbf.Fields[g].FieldName;
                                  TTempz.FieldValues[CampoP]:=
                                              TTempDbf.FieldValues[CampoP];
                                  end;
                                g:=g+1;
                               end;
                               TTempz.Post;
                               TTempz.ApplyUpdates;
                               //TTempDbf.Next
                           end;
                           //TTempz.ApplyUpdates;
                         end;
                  end;
            //end;
        except
        on E: Exception do
         begin
          MessageDlg(E.Message+#13+'...ERRORE in Converti...'+TTempz.Name, mtInformation, [mbOk], 0);
          //abort;
          exit;
          end;
        end;
        I:=I+1;
    end;
     informa('Conversione finita');
  end;

[antoniog]

scusate ho trovato un errore nel ciclo centrale è lo corretto, ha convertito alcune tabelle poi è uscito senza avvisi.

TTempDbf.First;
                         while not TTempDbf.EOF do
                           begin
                             TTempz.Append;
                             g:=0;
                             while  (g < TTempDbf.FieldCount)  do
                               begin
                                  CampoP:= TTempDbf.Fields[g].FieldName;
                                  TTempz.FieldValues[CampoP]:=
                                              TTempDbf.FieldValues[CampoP];
               g:=g+1;  //giusto
                                  end;
                                //g:=g+1; sbagliato
                               end;
                               TTempz.Post;
                               TTempz.ApplyUpdates;
                               //TTempDbf.Next
                           end;

[antoniog]

la procedure seguente funziona ma ci mette molto tempo ad elaborare tutto,  c'è qualcosa di più veloce?
ci sono 2 datamoduli, uno contiene tabelle DBF e l'altro Ztable.
Grazie.

with DataDBF do
    begin
       Primanota.Active:=False;
       Primanota.FilePath:= perco1;
       Primanota.FilePathFull:= perco1;
       Primanota.Active:=True;
       Primanota.First;
       while not Primanota..EOF do
         begin
           DataSQL.Primanota.Append;
           g:=0;
           while  (g < Primanota.FieldCount)  do
             begin
               CampoP:= Primanota.Fields[g].FieldName;
               DataSQL.Primanota.FieldValues[CampoP]:= Primanota.FieldValues[CampoP];
               ConvPrismaF.ListBox1.Items.Add(CampoP);
               g:=g+1;
             end;
           Primanota.Next;
         end;
       informa('Elaborazione finita');
    end;           

[nomorelogic]

di solito DisableControls serve a fare queste operazioni più velocemente
prova così:

Codice: [Seleziona]

with DataDBF do
    begin
       Primanota.Active:=False;
       Primanota.FilePath:= perco1;
       Primanota.FilePathFull:= perco1;
       Primanota.Active:=True;

	   Primanota.DisableControls;
	   DataSQL.Primanota.DisableControls;
	   
       Primanota.First;
       
	   try
		 while not Primanota.EOF do
         begin
           DataSQL.Primanota.Append;
           g:=0;
           while  (g < Primanota.FieldCount)  do
             begin
               CampoP:= Primanota.Fields[g].FieldName;
               DataSQL.Primanota.FieldValues[CampoP]:= Primanota.FieldValues[CampoP];
               // ConvPrismaF.ListBox1.Items.Add(CampoP);
               g:=g+1;
             end;
           Primanota.Next;
         end;
	   finally
          Primanota.EnableControls;
          DataSQL.Primanota.EnableControls;
       end;	   
       informa('Elaborazione finita');
    end;            

[antoniog]

grazie, provo.
Il problema e che durante l'elaborazione la form si 'sbianca' tanto che si ha l'impressione che il pc si sia 'piantato', più volte, ho dovuto attivare il monitor di sistema. bisognerebbe inserire 'un qualche cosa' che faccia visualizzare il proseguire dell'elaborazione; ci sono 26 tabelle con una infinità di records e campi.

[nomorelogic]

Che si "sbianchi" durante questo tipo di operazioni è normale, il processore ha di meglio da fare che disegnare sullo schermo

Per mostrare l'avanzamento dovresti usare (con parsimonia) Application.ProcessMessage che forza l'elaborazione dei messaggi in coda.
Per mostrare l'avanzamente ogni 100 record, ad esempio:

dovresti definire da qualche parte una label (se non ti piace la label puoi fare con la progressbar)

Codice: [Seleziona]

with DataDBF do
    begin
       Label1.Caption := 'Initializing...';
       Primanota.Active:=False;
       Primanota.FilePath:= perco1;
       Primanota.FilePathFull:= perco1;
       Primanota.Active:=True;

       Primanota.DisableControls;
       DataSQL.Primanota.DisableControls;
       
       Primanota.First;
       
       try
         while not Primanota.EOF do
         begin
           DataSQL.Primanota.Append;
           g:=0;
           while  (g < Primanota.FieldCount)  do
             begin
               CampoP:= Primanota.Fields[g].FieldName;
               DataSQL.Primanota.FieldValues[CampoP]:= Primanota.FieldValues[CampoP];
               // ConvPrismaF.ListBox1.Items.Add(CampoP);
               g:=g+1;
             end;
             // refresh gui ogni 100 records
             if (Primanota.RecNo mod 100) = 0 then 
                begin
                   Label1.Caption := Format('Processing table %s, record %d/%d done...', ['Primanota', Primanota.RecNo, Primanota.RecordCount]);
                   Application.ProcessMessages;
                end;
           Primanota.Next;
         end;
       finally
          Primanota.EnableControls;
          DataSQL.Primanota.EnableControls;
       end;	   
       Label1.Caption := Format('Table %s done.', ['Primanota']);
       informa('Elaborazione finita');
    end;            

Sia Application.ProcessMessages che mod rallenteranno un po' l'esecuzione, ma sparirà l'effetto "non risponde".

[Stilgar]

Mettere le operazioni lunghe in un thread?