Discussion :

[Chimere]

Bonjour


J'ai quelques problemes dans un probleme que je "tente" de developper depuis quelques temps.

J'ai disposer sur une meme page des DBEdit et DBComboBox, reliés a differentes base de donnees acces, par l'intermediaire de diverses datasources.
Mon bouton de validation de ressemble a ceci :

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
 
procedure TForm4.Button1Click(Sender: TObject);
begin
  With Datamodule2.Adoquery1 do
  begin
    // Vérifie si on a fait des modif ou non
   // if State in [dsInsert,dsEdit] then
      Post; // valide les données
  end;
  begin
  With Datamodule2.Adoquery10 do
  begin
  //  if State in [dsInsert,dsEdit] then
      Post;
  end;
  begin
  With Datamodule2.Adoquery2 do
  begin
  //  if State in [dsInsert,dsEdit] then
      Post; 
 
.........

Comme c'est indiquer ce code est senser verifier s'il y a eu des modifications dans les champs ou non... mais cela ne fonctionne pas
Je me retrouve avec une erreur du type:
- identificateur non declare: dsinsert
- Type incompatible : Tdatasetstate et integer

Et si je les enleve (comme c'est le cas actuellement avec les //) et que je ne modifie pas TOUT les champs j'ai une erreur me disant que tels ou tels AdoQuery n'est pas en mode insertion / edition...

Pourvez vous m'aider a corriger mon code de verification ?
Merci d'avance

[Cl@udius]

Salut,

dsInsert, dsEdit, etc.. sont déclarés dans l'unité DB.pas. N'aurais-tu supprimé cette unit des Uses ?

PS: Cette question aurait mieux trouvé sa place dans le forum Bases de données.

@+

[Chimere]

Code :

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

1
2
3
4
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids;

Je ne vois malheureusement pas a quoi correspond ce DB.pas...

PS: Cela conserne la base de donnee autant que le delphi non? Mais dans ce cas, quelle est sa place ?

[Cl@udius]

Re,

Ajoute tout simplement DB à la fin des uses et recompile.

Code :

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

1
2
3
4
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids, DB;

[EDIT]Magique ! Nous voilà dans le bon forum. Thanks ! [/EDIT]
@+

[Chimere]

...

J'ai une erreur : erreur tatal : impossible de creer le fichier de sortie...

Du coup mes modifications ne sont plus sauvegardes et je ne peux plus lance le programme

(Je n'ai pas encore mis BD).

[Cl@udius]

Ton programme n'est pas en cours d'exécution ?? Sinon essayes de construire au lieu de compiler.

@+