Discussion :

[[Silk]]

Salut,
j'ai une BDD paradox dans mon appli controlée avec un Tquery, un TDataSource et un TDBGrid.
J'arrive à ouvrir la table normalement mais je ne peux pas la modifier et je ne sais pas du tout d'où ça peut venir.
Par exemple avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
With FQuery do
 begin
   Edit;
   FieldByName('Date').Value := aDate;
   FieldByName('Type').Value := OperationType;
   FieldByName('Description').Value := Description;
   [...]
   Post;
 end;

Delphi me renvoie l'erreur :
Query: Impossible d'effectuer cette opération sur un ensemble de données fermé
Pourtant toutes les propriétés possible de lecture seule sont à false, il reste quand meme "Fquery.CanModify" qui est à false mais qui n'est pas modifiable
J'ai meme vérifié si dans windows mon fichier *.db n'était pas en lecture seule.

Si j'utilise

Code :

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

1
2
 
Fquery.Append;

j'obtient ça :
Query: Impossible de modifier un ensemble de données en lecture seule.

La seule solution que j'ai trouvée pour l'instant est d'utiliser le SQL :

Code :

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

1
2
3
4
5
6
7
8
 
With FQuery do
begin
  SQL.Clear;
  SQL.Add('INSERT INTO donnees');
  SQL.Add('VALUES (null, null, null, null)');
  ExecSQL;
end;

Les valeurs null sont là juste pour tester.
Là pas de bug mais je ne vois pas comment je peut faire passer mes paramètres correctement en sachant que j'ai entre autres une Date et un type monétaire (currency).

Si vous avez la moindre idée ou suggestion je prend.

[Rayek]

As tu bien ouvert (Open) ta requete FQuery ?
Quel est la requete que tu as dans FQuery ?

[[Silk]]

As tu bien ouvert (Open) ta requete FQuery ?
Quel est la requete que tu as dans FQuery ?

Oui je l'ouvre au chargement de la table :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
[...]
 With FQuery do
          begin
            Active := false;
            Close;
            DatabaseName := FDirectory;
            SQL.Clear;
            SQL.Add('SELECT * FROM donnees.db');
            Open;
            Active := true;
          end;

[Cl@udius]

Salut,

A priori ton query est fermé au moment du Edit.
Tu peux vérifier cet état juste avant le Edit en ajoutant:

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
 
With FQuery do
 begin
   if State = dsInactive then
   begin
     ShowMessage('FQuery fermé !');
     Exit;
   end;
   Edit;
   FieldByName('Date').Value := aDate;
   FieldByName('Type').Value := OperationType;
   FieldByName('Description').Value := Description;
   [...]
   Post;
 end;

@+

[Rayek]

[...]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 With FQuery do
          begin
            Active := false;
            Close;
            DatabaseName := FDirectory;
            SQL.Clear;
            SQL.Add('SELECT * FROM donnees.db');
            Open;
            Active := true;
          end;

On voit que t'as vraiement envi de fermer et d'ouvrir ta requete

Pas besoin de le faire deux fois.

Active := False; = Close
Active := True; = Open

[Zatoobux]

Salut,

La propriété RequestLive du TQuery est à True ?

a+

[[Silk]]

On voit que t'as vraiement envi de fermer et d'ouvrir ta requete

Pas besoin de le faire deux fois.

Active := False; = Close
Active := True; = Open

ben je sais pas moi quand je met que active := false et active := true j'ai une violation d'accès avec "mémoire insuffisante pour cette opération...

La propriété RequestLive du TQuery est à True ?

non elle est à False.
mais je viens de tester en la mettant à true et sa change strictement rien.

[[Silk]]

euh désolé Claudius j'ai zappé ton message...
Bon sinon j'ai testé pour voir si mon Query est fermé, et c'est pas le cas.

Malatar -> En fait tu avais raison pour le active et le Close/Open c'est juste mon IDE de delphi qui a fait des siennes
J'ai relancé et sa marche nickel.

[petitcoucou31]

Salut ,
j'en suis presque au même point que toi !

sauf que mon message d'erreur survient lors du "TQuery.append" pour ajouter un enregistrement !

Et la propriéte d'edition est toujour à "CanMofidy=false" , je n'arrive pas non plus a la passer a true. Je cherche aussi !!

a++

[petitcoucou31]

Une voie ...
Mon Tquery passe en readonly si dans ma requette j'utilise un " Order By "

cas ou je suis en readonly.
SQL.Text:='select * from StockSav.db Order By SerieElement';

cas ou j'y suis pas et que çà marche.
SQL.Text:='select * from StockSav.db';

un post traite le sujet , mais je ne l'ai pas encore mis en oeuvre ( voir le TUpdateSql )
a++

[[Silk]]

j'en suis presque au même point que toi !

sa fait du bien de savoir qu'on est pas seul !

de mon coté, j'ai pareil que toi quand j'utilise un simple "SELECT * FROM donnees.db" sa marche nickel mais dès que je veux utiliser une fonction du Query du genre Edit, Append, etc : message d'erreur me disant que la table et en lecture seule

un post traite le sujet , mais je ne l'ai pas encore mis en oeuvre ( voir le TUpdateSql )

je vais aller fouiner pour voir si on peut trouver des choses interressantes.

[Rayek]

Pour obtenir un ensemble de résultats que l'utilisateur puisse éditer dans des contrôles orientés données, définissez la propriété RequestLive d'un composant requête à True. Définir RequestLive à True ne garantit pas un ensemble de résultats dynamique, mais le BDE essaie d'honorer la requête chaque fois que possible. Il existe quelques restrictions sur les requêtes d'ensemble de résultats dynamiques, selon que la requête utilise l'analyseur SQL local ou l'analyseur SQL d'un serveur.

• Les requêtes dans lesquelles les noms des tables sont précédés d'un alias de base de données BDE (comme les requêtes hétérogènes) et les requêtes exécutées sur Paradox ou dBASE sont analysées par le BDE en utilisant le SQL local. Quand une requête utilise l'analyseur SQL local, le BDE offre une gestion étendue des ensembles de résultats dynamiques et modifiables, aussi bien dans les requêtes monotables que multitables. Lors de l'utilisation du SQL local, un ensemble de résultats dynamique d'une requête sur une vue ou une table unique est renvoyé si la requête ne contient aucun des éléments suivants :
  
  
  • DISTINCT dans la clause SELECT
    
  • Jointures (interne, externe ou UNION)
    
  • Fonctions d'agrégat avec ou sans clauses GROUP BY ou HAVING
    
  • Vues ou tables de base qui ne peuvent pas être mises à jour
    
  • Sous-requêtes
    
  • Clauses ORDER BY non basées sur un index
  
  
• Les requêtes sur un serveur de base de données distant sont analysées par le serveur. Si la propriété RequestLive a pour valeur True, l'instruction SQL doit rester dans les standards Local SQL et se conformer de plus à toute restriction imposée par le serveur, car le BDE en a besoin pour communiquer les modifications de données à la table. Un ensemble de résultats dynamique d'une requête sur une vue ou une table unique est renvoyé si la requête ne contient aucun des éléments suivants :
  
  
  • Clause DISTINCT dans l'instruction SELECT
    
  • Fonctions d'agrégat avec ou sans clauses GROUP BY ou HAVING
    
  • Références à plusieurs tables de base ou vues modifiables (jointures)
    
  • Sous-requêtes qui référencent la table dans la clause FROM ou d'autres tables

[ProgD]

Il sufis de Mêtre une propriété du composant Tquery à True qui se charge de rendre votre query en Mode lecture et écriture
Je me souviens pas vraimons du nom de cette Propriété mais sais pas compliquer de coniatre sa il sufis de selectioné votre Query Puis le L'inspecteur d'objet il vous affiche tous ces propriété il se trouve au milieu je croie de toutes les façons vous regarder les propriété possèdant la valeur True et false puis vous appuiez sur F1 dans l'explication vous trouverer que la propriété ce charge de rendre l'objet en mode lécture et écriture

[Zatoobux]

Oui ProgD, c'est la proriété TQuery.RequestLive.

Mais cela n'aura aucun effet si les conditions citées par Malatar ne sont pas remplies.

a+

[[Silk]]

Salut,
j'ai enfin trouvé la solution à mon problème !
avant de mettre :

Code :

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

1
2
 
Query.append

il faut mettre :

Code :

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

1
2
 
if (State <> dsInsert) then Exit;

c'est tout bête mais au moins sa marche