[Risolto] Query di delete su più tabelle

[Maxx]

Dear Mr. Stilgar,

Detesto essere pedante, ma sei sicuro che il metodo che mi hai suggerito sia praticabile?
Hai la possibilità di indicarmi quali istruzioni ed in che sequenza debbano essere eseguite? Da un paio di giorni sto dando fondo a tutte le combinazioni possibili ricevendo in risposta errori: dal non riconoscere un campo della tabella trattata nella query (che ovviamente c'è...) o, se lo trova, a darmi altri altri tipi di errore (impossibile su db aperto, impossibile su db chiuso, etc.).

Purtroppo conoscendo poco questo motore ed avendo pochissimo tempo per risolvere, chiedo un aiuto da seguire in pedissequo.
Più di offrire la mia riconoscenza ed una birra virtuale non posso fare.
E vi assicuro che chiedere aiuto è per me l'ultimissima opzione.

Grazie.

[Stilgar]

Vista la sequanza di errori db che menzioni ho solo la possibilità di aiutarti vedendo il codice.
Cosi in modo generico diventa difficilissimo azzeccare la causa (sarebbe solo fortuna da parte  mia, nom bravura ).
In gebere uso zeos db come connettore ai database. Mi permette di lavorare via codice come piace a me.
Cmq. Se lanci delle update/insert/delete non dovrebbe romperti l'anima....

[Stilgar]

Perfetto 😊

[Maxx]

Ciao Stilgar,

ci sono riuscito.

I problemi incontrati derivavano:

- dal fatto che quando cancelli un record, se esiste una chiave primaria devi informare Firebird che "metterai a Nil" questo campo e di non preoccuparsi ( --> Qry_Del.FieldByName('Cod_Art').Required := False;)

- dal fatto che ad ogni modifica del Qry_Del.SQL.TEXT facevo precedere questa riga dal Qry_Bigl.Edit mentre invece questo doveva essere sistemato prima del ciclo.

- facevo un Qry_Del.Post; ad ogni esecuzione della Query e per questo mi andava in errore.

Ho risolto con
 - istanziazione (dummy) della query prima del ciclo
 - apertura query
 - istruzione al db che i campi chiave saranno cancellati
 - edit della query.

e quindi la ciclazione con
 - modifica del SQL.TEXT
 - istruzione nuovo parametro
 - execute della query
per ogni tabella.

//--------------------------------------------------------------------------------------//

     i := 0;
     Qry_Del.SQL.Text := 'Select * from T_Articoli_AA WHERE Cod_Art = xxx';
     Qry_Del.Open;
     Qry_Del.FieldByName('id_Rec').Required := False;
     Qry_Del.FieldByName('Cod_Art_BB').Required := False;
     Qry_Del.FieldByName('Cod_Art_CC').Required := False;

     Qry_Del.Edit;

     while RecPointer <> nil do
       begin
          application.ProcessMessages;

          If (RecPointer^.flg_Big) then
          begin
                 Par_Num := (RecPointer^.id_Rec);
                  Par_Str := (RecPointer^.cod_Art);

                //Elimino i records da Articoli_AA
                Qry_Del.SQL.Text := 'Delete from T_Articoli_AA WHERE id_Rec = :p_Num';
                Qry_Del.Params.ParamByName('p_Num').AsInteger := Par_Num;
                Qry_Del.ExecSQL();

                //Elimino i records da Articoli_BB
                Qry_Del.SQL.Text := 'Delete from T_Articoli_BB WHERE Cod_Art_BB = :p_Str';
                Qry_Del.Params.ParamByName('p_Str').AsString := Par_Str;
                Qry_Del.ExecSQL();

                //Elimino i records da Articoli_CC
                Qry_Del.SQL.Text := 'Delete from T_Articoli_CC Where Cod_Art_CC = :p_Str';
                Qry_Del.Params.ParamByName('p_Str').AsString := Par_Str;
                Qry_Del.ExecSQL();

           end;

         RecPointer := RecPointer^.next;
         i := i + 1;
         ProgBar.Position := i;
       end;

       Qry_Del.Close;
       Transact.Commit;

Grazie infinite per avermi sopportato, per l'aiuto e per la tua/vostra grande disponibilità.
Siete veramente in gamba.

[Maxx]

Ops.
Grazie.

Non so come mettere il risolto!!!
Ho fatto un mezzo casino

[Stilgar]

Ci ho pensato io.
La prima è gratis.
Le prossime sono un calice di prosecco 😉