Probleme de mode insertion / edition

**Chimere** · 02/09/2006, 17h57

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** · 02/09/2006, 18h14

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** · 02/09/2006, 18h24

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** · 02/09/2006, 18h26

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** · 02/09/2006, 18h28

...

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** · 02/09/2006, 18h31

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

@+

**Chimere** · 02/09/2006, 18h34

Non non.... mais il ne me met que ca, meme pas une petite piste sur la cause, rien

Je vais essayer en redemarrant, pour bien stopper tout les processus.

Par contre, constuire ?! Je n'y connais pas grand chose, desolé...

**Cl@udius** · 02/09/2006, 18h39

Envoyé par Chimere

Par contre, constuire ?! Je n'y connais pas grand chose, desolé...

Menu Projet | Construire 'NomDuProjet'.

**Chimere** · 02/09/2006, 18h41

Tu avais raison, c'est bien un projet qui etait toujours en route (je debute, je ne suis meme pas sur de les arreter correctement...).

De plus, cela fonctionne !
Merci pour ton attention ainsi que tes reponses rapides et claires !

@+