Discussion :

[jean christophe]

Bonjour,

J'essaie de faire une requête sur une table mysql avec le composant TQuery et TDataSource.
Je n'arrive pas á le faire fonctioner!
Si je met TQuery.requestlive := true, delphi me dit que la table est en lecture seule.
Si par contre je connecte une table (TTable & TDataSource) sur le même dbgrid, ca fonctionne comme il faut!

J'utilise delphi6. la base Mysql est située sur un serveur.
Apparament tout fonctionne

Est ce que vous avez une idée de ce qui ne va pas?

Sincérement
Jean-Christophe

[SergioMaster]

Pourquoi RequestLive = true ?
Quel est le texte de de la query ?

[jean christophe]

Bonjour Sergio Master,

Merci pour ta réponse.
Ce que j'ai fais maintenant c'est que j'ai remplacé le composant TQuery par un composant ADOTQuery.
Ca a résolu tous mes problémes.

Pour répondre á tes questions:
Je ne connais pas requestlive je dois l'avouer, mais au moins j'avais une réaction du TQuery.
La requête était:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
ObjetField := 'Nogle' ;
ObjetField := KatalogetInit + 'Nogle' ;
if Qr_Objet_Grid.State <> dsInactive then Qr_Objet_Grid.Close ;
Qr_Objet_Grid.SQL.Clear ;
Temp := 'SELECT * FROM objekt4 ' ;
Temp := Temp  + 'WHERE ' + ObjetField + ' = "' + dt_Kat_Nogle.Text + '" ;' ;
Qr_Objet_Grid.SQL.Add (Temp) ;
Qr_Objet_Grid.SQL.Prepare:
Qr_Objet_Grid.Open ;

Merci encore
Sincérement
Jean-Christophe

[SergioMaster]

Quelques suggestions

tout d'abord TQuery (sauf erreur de ma part) fonctionne avec le BDE <- donc cela devient a éviter

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
//if Qr_Objet_Grid.State <> dsInactive then Qr_Objet_Grid.Close;
// dans tous les cas ce sera fermé donc un simple 
Qr_Objet_Grid.Active:=False;  // suffit
// Qr_Objet_Grid.SQL.Clear ; inutile dans ce cas car tout est dans temp
// cependant il faut faire attention aux espaces
Temp := 'SELECT * FROM objekt4 ' ;
Temp := Temp  + ' WHERE ' + ObjetField + ' = ' +QuotedStr(dt_Kat_Nogle.Text) ; // pas besoin de ; à la fin
//Qr_Objet_Grid.SQL.Add (Temp) ;  remplacer par
QR_Object_Grid.SQL.Text:=Temp 
{ ou alors sans variable temp :c + cool:
  Qr_Objet_Grid.SQL.Add ('SELECT * FROM objekt4');
  Qr_Objet_Grid.SQL.Add ('WHERE ' + ObjetField + ' = ' + QuotedStr(dt_Kat_Nogle.Text));
}
// Qr_Objet_Grid.SQL.Prepare:  inutile aucun paramètres 
Qr_Objet_Grid.Open ; // je prefere Qr_Objet_Grid.Active:=True;

Quant au requestlive , que j'utilise rarement , je ne le met que lorsque j'ai déclaré aussi en cachedupdates mais c'est une autre histoire

[jean christophe]

Merci pour ta réponse SergioMaster
Je prends note des conseils!
a+ (le contraire m'étonnerait )

Bonne journée
Sincérement
Jean-Christophe