Probleme de mode insertion / edition
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:
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 :P
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 :)
