le message erreur 'dataset not in edit or insert mode'

Version imprimable

26/10/2009, 22h01
fcboumi13

le message erreur 'dataset not in edit or insert mode'

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
26/10/2009, 23h04
Jeankiki

Salut,

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

Jeankiki

oui bien sur

Code:

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

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:

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;

27/10/2009, 13h52
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:

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
28/10/2009, 22h05
colfire_dev

Un conseil oublies BDE et Paradox et je crois tout le monde est partisan
28/10/2009, 23h55
Just-Soft

Citation:

Envoyé par colfire_dev

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

Très bon conseil :ccool:.
04/11/2009, 21h34
fcboumi13

salut a tous
dsl pour ce retard j'etais hospitalisé mais je suis bien
pour mon problme ça yé je l'ai resolu
ce qu'il a dit frére edam ma donné une idée
j'ai ajouté un autre composant Ttable est qu'elle est la meme table que j'ai voulé filtré et ca ma donné une résultat
merci bcp mes amie c gentil de votre part
04/11/2009, 23h08
Just-Soft

Salut;

Bonne guérison et bravo pour l'avancement :ccool: