Delphi & Firebird

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

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

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

Code:

---

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;

---

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:

---

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

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

Code:

---

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