Discussion :

[jer64]

Bonjour,

Je voudrais savoir qu'elle propriété je doit modifier dans un dbedit ou dbmemo pour pouvoir écrire du texte à l'intérieur.

Merci d'avance.

Jer

[Rayek]

Ils sont connectés à quoi un TxxxTable ou un TxxxQuery ?

Si c'est un TxxxQuery, est ce que la requete est multi table ?

[jer64]

Ma base est connectée par un TibQuery est la requête porte sur une seule table.

[Rayek]

normalement pour ajouter un enregistrement tu fais un Append avec le TibQuery et pour mettre en mode édition un edit.
Après l'ajout ou l'édition, il faut valider avec la commande post ou annuler par la commande cancel.

ex:

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
 
procedure ButtonAjout;
begin
  With ibQuery do
  begin
    if not state in [dsInsert,dsEdit] then
      Append
    else
      Showmessage('Deja ouvert');
  end;
end;
 
procedure ButtonValider;
begin
  With idQuery do
  begin
    if State in [dsInsert,dsEdit] then
    try
      Post;
    Except on E:Exception do
      begin
        Showmessage('Erreur : ' + E.Message);
        Cancel;
      end;
    end
    else
      Showmessage('Pas en mode insert ou edit');
  end;
end;

[Cl@udius]

Salut,

@Malatar

Je ne crois pas tromper en disant que les composants TIBQuery possèdent des curseurs en lecture seule, donc pas d'Edit, Insert ou Delete autorisés.

Pour cela il faut utiliser le composant TIBDataset, ou bien un TIBUpdateSQL lié au TIBQuery.

@+ Claudius.

[Rayek]

Je ne sais pas pour les curseurs, j'ai fait comme avec les composants Ado, BDE ou autres que j'utilises. (c'est plus un code générique dans l'esprit de ce qu'il cherche)
Après c'est vrai qu'il faut voir les spécificités de chaque composant ou ensemble de composant et bien sur que la personne adapte selon ses besoins ^^

[jer64]

J'arrive pas à le faire marcher??????

[jer64]

Merci beaucoup, mais grâce à un autre message et l'intervention de Claudius40, j'ai trouver comment faire.

Il faut placer un tibdataset et remplir la propriété insertsql

Merci pour tout.

A+

Jer