Discussion :

[sondo]

Bonjour à tous,

Je suis en train de migrer mes application vers Dbexpress. J'ai lu quelques tutoriels et fait des recherches mais je n'ai pas encore trouvé une solution à mon problème.
Voici comment je faisais en BDE :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
          Statistique.Append;
          Statistique.Edit;
          Statistique.FieldByName('PO_SECTION').Value := Edit1.Text;
          Statistique.FieldByName('ST_NB_15').Value := Edit4.Text;
          Statistique.FieldByName('ST_NB_30').Value := Edit5.Text;
          Statistique.FieldByName('ST_NB_NULL').Value := Edit6.Text;
          Statistique.FieldByName('ST_DATE_SAISIE').Value := Date;
          Statistique.FieldByName('ST_NB_H_30').Value := Edit8.Text;
          Statistique.FieldByName('ST_NB_H_1H').Value := Edit9.Text;
          Statistique.FieldByName('ST_NB_H_HH').Value := Edit10.Text;
          Statistique.Post;

Avec Dbexpress j'utilise en datamodule avec TSQLConnection, TSQLDataset, DataSetProvider et Client DataSet et une table TSQLTable nomme statistique :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
           DataModule2.Statistique.Append;
           DataModule2.Statistique.Edit;
           DataModule2.Statistique.FieldByName('PO_SECTION').Value := Edit1.Text;
           DataModule2.Statistique.FieldByName('ST_NB_15').Value := Edit4.Text;
           DataModule2.Statistique.FieldByName('ST_NB_30').Value := Edit5.Text;
           DataModule2.Statistique.FieldByName('ST_NB_NULL').Value := Edit6.Text;
           DataModule2.Statistique.FieldByName('ST_DATE_SAISIE').Value := Date;
           DataModule2.Statistique.FieldByName('ST_NB_H_30').Value := Edit8.Text;
           DataModule2.Statistique.FieldByName('ST_NB_H_1H').Value := Edit9.Text;
           DataModule2.Statistique.FieldByName('ST_NB_H_HH').Value := Edit10.Text;
           DataModule2.Statistique.Post;

Voici l'erreur : Cannot modify a read-only dataset. Cela veut que ma dataset est en lecture seul. J'ai chercher ou je peux corriger cela en vain. J'utilise Delphi 7
Je me tourne donc vers vous pour être aidé.
Merci.

[Ph. B.]

Bonjour,

Voici l'erreur : Cannot modify a read-only dataset. Cela veut que ma dataset est en lecture seul. J'ai chercher ou je peux corriger cela en vain. J'utilise Delphi 7
Je me tourne donc vers vous pour être aidé.

qui appelle l'aide de Delphi vous aurait permis de trouver la raison...


Je cite :

TSQLTable est un ensemble de données unidirectionnel.A l'inverse des autres ensembles de données,les ensembles de données unidirectionnels ne mémorisent pas dans un tampon mémoire plusieurs enregistrements.A cause de cela,vous ne pouvez vous déplacer qu'en utilisant les méthodes First et Next.Il n'existe pas de gestion d'édition intégrée.Les données d'une table SQL ne peuvent être éditées qu'en créant explicitement une commande SQL UPDATE ou en connectant la table à un ensemble de données client au moyen d'un fournisseur.

Ensuite, évitez les composants Table (TTable, TADOTable, TSQLTable) dès que vous vous connectez à une base de données client/serveur (MsSqlServer, Oracle, Firebird, etc). Ces composants rapatrient TOUTES les lignes et TOUTES les colonnes d'une table dans la mémoire du poste client. En lieu et place, utilisez les composants Query, Dataset qui limitent le volume de données rapatriées au strict nécessaire ou qui permettent de faire des mises à jour (UPDATE MaTable SET...) des suppressions (DELETE FROM Matable WHERE...), des ajouts (INSERT INTO MaTable...).

Enfin, n'hésitez pas à consulter les pages de Frédéric Brouard alias SQLPro sur ce site même : Le SQL, tout le SQL, rien que le SQL & les bases de données relationnelles

[SergioMaster]

Bonjour,

je encore

une note également , un APPEND met le dataset en mode EDIT
le Statistique.Edit; était donc inutile

[sondo]

Salut SergioMaster et Ph. B.,

Merci pour votre aide. En suivant vos conseils avec quelques recherches sur Internet, je procède maintenant de la sorte:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
With DataModule2.SQLQuery1 do
    begin
      close;
      DataModule2.SQLQuery1.SQL.Add('Insert into test(PO_SECTION,ST_NB_15,ST_NB_30,ST_NB_NULL,ST_DATE_SAISIE,ST_NB_H_30,ST_NB_H_1H,ST_NB_H_HH) Values(:PO_SECTION, :ST_NB_15, :ST_NB_30, :ST_NB_NULL, :ST_DATE_SAISIE, :ST_NB_H_30, :ST_NB_H_1H, :ST_NB_H_HH)');
      paramcheck:=true;
      DataModule2.SQLQuery1.ParamByName('PO_SECTION').Value := Edit3.Text;
      DataModule2.SQLQuery1.ParamByName('ST_NB_15').Value := Edit4.Text;
      DataModule2.SQLQuery1.ParamByName('ST_NB_30').Value := Edit5.Text;
      DataModule2.SQLQuery1.ParamByName('ST_NB_NULL').Value := Edit5.Text;
      DataModule2.SQLQuery1.ParamByName('ST_DATE_SAISIE').Value := Date;
      DataModule2.SQLQuery1.ParamByName('ST_NB_H_30').Value := Edit8.Text;
      DataModule2.SQLQuery1.ParamByName('ST_NB_H_1H').Value := Edit9.Text;
      DataModule2.SQLQuery1.ParamByName('ST_NB_H_HH').Value := Edit10.Text;      
      DataModule2.SQLQuery1.ExecSQL();

Merci à vous.