BDD

cs_slim59 Messages postés 52 Date d'inscription jeudi 2 septembre 2004 Statut Membre Dernière intervention 30 juin 2010 - 18 déc. 2005 à 08:30
cs_slim59 Messages postés 52 Date d'inscription jeudi 2 septembre 2004 Statut Membre Dernière intervention 30 juin 2010 - 24 déc. 2005 à 08:59
Slt.

Je me retrouve bloqué dans une procédure qui est la suivante:,
par laqu'elle je désire à ce que le Champ que j'ai nommé "Mois"
prend la valeur du mois saisi dans DBComboBox1.Text et que
cette valeur affectera tout les enregistrements. C'est à dire
en commençant par le premier(First) de la Table puis (Next),
j'usquau dernier (Prior), auront la même valeur (Exp:Champ Mois=
Janvier), OnClick Button.

var
ss:string;
procedure TForm_Mois.Button1Click(Sender: TObject);
begin
table1.first;
table1.filtered:=false;
table1.Filter:= 'Mois='''+DBComboBox1.text+'''';
table1.filtered:=true;
ss:='';
while not table1.eof do
begin
ss:=ss+table1['Mois'];
table1.Next;
table1.Insert;
end;

end;

end.

(J'utilise BD Paradox7)
Merci+++

1 réponse

cs_slim59 Messages postés 52 Date d'inscription jeudi 2 septembre 2004 Statut Membre Dernière intervention 30 juin 2010
24 déc. 2005 à 08:59
Salut à tous.
Je me retrouve bloqué dans une procédure qui est la suivante:,
par laqu'elle je désire à ce que le Champ que j'ai nommé "Mois"
prend la valeur du mois saisi dans DBComboBox1.Text et que
cette valeur affectera tout les enregistrements. C'est à dire
en commençant par le premier(First) de la Table puis (Next),
j'usquau dernier (Prior), auront la même valeur (Exp:Champ Mois=
Janvier), OnClick Button.

procedure TForm_Mois.Button1Click(Sender: TObject);
begin
table1.first;
table1.filtered:=false;
table1.Filter:= 'Mois='''+DBComboBox1.text+'''';
table1.filtered:=true;
table1.Next;
table1.Insert;
end;

end.

(J'utilise BD Paradox7)
Merci+++
0
Rejoignez-nous