Discussion :

[ameno_123]

Bonjour,
Je cherche la meilleur méthode pour attaquer une db firebird.
J'utilise ibdac, est-ce que je dois utiliser :
1) if dsPret.DataSet.state in ([dsInsert, DsEdit]) then
dsPret.DataSet.post;
avec Table et les composants (dbedit compoedit....)
2) ou via des requettes sql via SQL a la place des tables..

Merci

[SergioMaster]

il vaut mieux utiliser l'option 2 surtout si l'application est réseau .
C'est un peu plus contraignant mais beaucoup plus gratifiant en terme de vitesse/trafic réseau

[ameno_123]

Merci pour votre réponse,
Est-ce que cette function peut me servir dans toute mes unsert et update :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Function TDataModule.Insertion_ou_MAJ(instruction:string):BOOLEAN;
begin
 
 try                           
    IBSQL_mvt.Close;
    IBSQL_mvt.SQL.Clear;
    IBSQL_mvt.SQL.Add(instruction);
     try
    IBSQL_mvt.ExecQuery;
    if not  IBSQL_mvt.Prepared then  IBSQL_mvt.Prepare;
    IBSQL_mvt.transaction.CommitRetaining;
    result:=True;
    except
    if IBSQL_mvt.transaction.InTransaction then
       begin
      IBSQL_mvt.transaction.Rollback;
       result:=False;
       end;
    end;
    finally
    IBSQL_mvt.Close;
    end;
 
end;

[Cl@udius]

Salut

Ce code me semble correct, mais avec Firebird je te déconseille l'utilisation des composants IBX (à réserver pour Interbase).

Avec les composants UIB par exemple, ta fonction peut se réduire à ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
function TDataModule.Insertion_ou_MAJ(Instruction: string): Boolean;
begin
  Result := True;
  with UIBTransaction1 do
  try
    ExecuteImmediate(Instruction);
    Commit;
  except
    Result := False;
  end;
end;

@+ Claudius

[ameno_123]

J'ai procédé comme ceci :
///// Fiche client ///// j'utilise IBDAC

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
procedure TFicheClient.savedata;
begin
if MessageDlg('Confirmer l''ajout de ce client ?', mtConfirmation, [mbYes, mbNo], 0) <> mrYes then
      exit;
try
dm.IBCQuery1.SQL.Clear;
dm.IBCQuery1.SQL.Add('insert into tbl_client(NOM_CLIENT, PRENOM_CLIENT) values (:nom_client, :prenom_client)');
dm.IBCQuery1.ParamByName('NOM_CLIENT').AsString:=edt_nom.Text;
dm.IBCQuery1.ParamByName('PRENOM_CLIENT').AsString:=edt_prenom.Text;
dm.IBCQuery1.ExecSQL;
dm.IBCTransaction1.Commit;
except
on E: Exception do
      settings.errordialog(E.Message);
 
end;
end;

Est-ce que c'est propre comme code!?
Je dois refaire la même chose pour l'update et pour delete uniquement pour cette fiche, alors que j'ai plusieurs fiche (articles, banques.....)
Que dois-je faire dans ce cas!?
J'ai une autre question; est-ce que je dois utiliser un unique ibcquery dans ma DM pour toutes mes update,insert et delete, ou sur chaque fiche je dois poser un ibcquery et un TIBCTransaction lier à mon TIBCConnection!?

Merci