Discussion :

[fcboumi13]

salut a tous
je travaille sur un programme en base de donnée
j'utilise le module base de donnée avec des table paradoxe
quand je remplie les enregistrement et enregistre il me fait ce message erreur
"dataset not in edit or insert mode"
si quelqu'un veut m'aidé svp
merci a tous

[Jeankiki]

Salut,

Pourrais-tu nous donner ton code ou une partie?
Il semblerait que tu oublies de faire un edit ou un append.

Jeankiki

[fcboumi13]

oui bien sur

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
procedure Tstock_produit.sButton1Click(Sender: TObject);
var produit, ref : string ;
begin
if not (Table1.State in [dsInsert,dsEdit]) then
begin
Showmessage(' la table n'#39'est pas en mode edition ou insertion ');
end
else
begin
produit := DBLookupComboBox1.Text ;
ref := DBLookupComboBox2.Text ;
IF length(produit)<> 0  then
begin
 
Table1.Filter:='Nom_produit ='+Quotedstr(produit+'*')+' and Reference ='+Quotedstr(ref+'*');
 
Table1.Filtered:=true;
 
DBGrid1.DataSource.DataSet.FindLast ;
edit1.Text := DBGrid1.Fields[7].AsString ;
end
else
Table1.Filtered:=false;
end;
begin
DBEdit6.Text:=sDateEdit1.Text;
DBEdit3.Text:=edit1.Text;
{DBEdit1.Text:=produit;
DBEdit2.Text:=ref; }
DBEdit8.Text:=floattostr(strtofloat(DBEdit3.Text)+strtofloat(DBEdit4.Text)-strtofloat(DBEdit5.Text));
 
 
Table1.Post;
{Query1.Close;Query1.Open;  }
end;
end;

c toute la procedure du boutton

[Just-Soft]

Salut!

Avant de répondre un conseil, donne un nom explicite à tes variables c'est plus facile à maintenir.

Bon pour le code simple question, je ne pense pas que tu fais appel à ce code en mode insertion donc pour le teste mieux serait d'éliminer la partie dsInsert.

Je crois qu'il te manque un petit Tablexxxx.Edit ici :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
procedure Tstock_produit.sButton1Click(Sender: TObject);
var produit, ref : string ;
begin
if not (Table1.State in [dsInsert,dsEdit]) then
begin
Showmessage(' la table n'#39'est pas en mode edition ou insertion ');
end
else
begin
produit := DBLookupComboBox1.Text ;
ref := DBLookupComboBox2.Text ;
IF length(produit)<> 0  then
begin
 
Table1.Filter:='Nom_produit ='+Quotedstr(produit+'*')+' and Reference ='+Quotedstr(ref+'*');
 
Table1.Filtered:=true;
 
DBGrid1.DataSource.DataSet.FindLast ;
edit1.Text := DBGrid1.Fields[7].AsString ;
end
else
Table1.Filtered:=false;
end;
begin
Table1.Edit // ce que j'ai ajouté :D
DBEdit6.Text:=sDateEdit1.Text;
DBEdit3.Text:=edit1.Text;
{DBEdit1.Text:=produit;
DBEdit2.Text:=ref; }
DBEdit8.Text:=floattostr(strtofloat(DBEdit3.Text)+strtofloat(DBEdit4.Text)-strtofloat(DBEdit5.Text));
 
 
Table1.Post;
{Query1.Close;Query1.Open;  }
end;
end;

[edam]

1- on répète toujours, les composant BD sont utilisés pour afficher pas pour les utilisé dans des traitement par code , il y a table1.fields[x] ou Table1.fieldbyname('xxxx'), ou même en utlisant les varible de type fields sur les champs de la table comme:

Code :

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

Table1Nom_produit.value:=xxxx;

2-l'erreur est normale, car tu filtre ta table, ce qui fait perdre le statu (insert ou edit) de la table

[colfire_dev]

Un conseil oublies BDE et Paradox et je crois tout le monde est partisan