Insertion dans une table TSQLTable

Version imprimable

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:

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:

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.

15/05/2014, 02h31
Ph. B.

Bonjour,

Citation:

Envoyé par sondo

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é.

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

Je cite :

Citation:

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
15/05/2014, 08h28
SergioMaster

Bonjour,

je :plusser: encore ;)

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

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:

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.