TMS AdvDBGrid et MySQL

Version imprimable

26/06/2014, 13h37
PhilLU

TMS AdvDBGrid et MySQL

Bonjour,
Je souhaite utiliser AdvDBGrid avec MySQL.
Le manuel de TMS mentionne la simplicité d'affichage mais cela ne me renvoie rien.
"Drop a TDataSource on the form and connect it to a TDataSet of choice. (j'ai choisi TClientDataSet)
Activate the dataset and connect the TDataSource to TDBAdvGrid.
With the default setting of TDBAdvGrid.AutoCreateColumns as true, the grid will automatically create TDBGridColumnItem instances for every DB field in the dataset and add it to the Columns collection.
The TDBGridColumnItem.FieldName will be initialized with the fieldnames found in the dataset Fields collection.
When TDBAdvGrid.AutoRemoveColumns is set to true, deactivating the dataset will automatically remove all columns from the grid"
J'ai fait tout ça mais rien ne se passe :weird:
Finalement la bonne vielle méthode fonctionne, à savoir de remplir une stringGrid à l'aide d'une requête SQL :?
J'aurais voulu simplifier, mais si qq peux m'aider??? (quels compo et quels settings - j'oublie peut-être simplement de cocher une option???)

Merci pour votre aide :D

PhilLu
26/06/2014, 17h09
ShaiLeTroll

Tu as fait manuellement le CreateDataSet pour le TClientDataSet ?
Si non, tu as affecté un TDataSetProvider via la méthode SetProvider ou la propriété ProviderName du TClientDataSet pour le lier à un TxxMySQLQuery ?

As-tu essayé avec un TDBGrid ?
Cela semble être le même process :
- Ajouter un DataSet (TClientDataSet)
- Ajouter un DataSource sur ce DataSet
- Ajouter la Grid sur ce DataSource

Avec un TClientDataSet, soit manuel soit via IDE
Via IDE, je ne le fait jamais, ça doit être un double-clic dessus et tu déclare tes champ
Puis Active à True

Soit manuel
Donc un TButton qui fait les FieldDefs.Add, puis le CreateDataSet
Le CreateDataSet va ouvrir un DataSet vide, cela va s'afficher dans la grille !
28/06/2014, 17h30
PhilLU

Merci LeTroll ;-)
En fait pas moyen de sélectionner MySQL via ODBC dans TTable...
J'ai donc installé MySQL ODBC 5.3/64 ANSI driver via panneau config/outils d'admin (machine 64 bits mais application 32 bits)
(je suis en MySQL 5.6.12, mais je n'ai pas trouvé plus récent sur http://dev.mysql.com/downloads/connector/odbc/)
J'ai configuré la DB
Le test de connexion est ok
J'ai maintenant ma DB dans la liste déroulante de DataBaseName de TTable
mais quand je veux sélectionner la table, je reçois un message: "Pilote inconnu du système"??? :calim2:
J'ai redémarré ma machine par sécurité mais pas mieux 8O
J'ai aussi installé la version Unicode: idem :arf:

Merci pour vos conseils ;-)
PhilLu
30/06/2014, 11h28
ShaiLeTroll

En théorie : une application 32 bit ne voit que les alias ODBC 32 Bit !
La base de registre 32 bits et ses nœuds SysWOW64
En pratique : je n'y comprends plus grand chose au alias ODBC !!!

Si les experts du 64bits pouvaient nous éclairer !
Tente de voir "C:\Windows\SysWOW64\odbcad32.exe" c'est la version ODBC 32 !

Oublie le BDE, utilise ADO, DBExpress ou FireDac !
Ou même MyDAC, payant mais bien pratique !
30/06/2014, 21h35
PhilLU

OK, merci pour l'info précieuse LeTroll :ccool:
J'utilise maintenant DBExpress (SimpleDataset)
J'ai donc sur ma form:
DBGrid
DBNavigator
DataSource
SimpleDataSet
et qq DBEdit
J'ai accès aux données et le navigateur fonctionne aussi
Les différents DBEdit sont mis à jour quand je navigue dans la DB
J'arrive à créer ou à modifier des données de la DBGrid à partir de l'édition des champs DBEdit
Malgré la validation via le DBNavigator, les données ne sont pas mises à jour dans la DB MySQL :calim2:
Je cherche pourquoi :weird:
...mais je tourne en rond :arf:
Déjà :merci: pour ton aide...
01/07/2014, 08h25
SergioMaster

bonjour,

Citation:

Malgré la validation via le DBNavigator, les données ne sont pas mises à jour dans la DB MySQL
Je cherche pourquoi

J'ai l'impression que tu as oublié un ApplyUpdate quelque part

il y a de très bonnes videos youtube sur l'utilisation de dbexpress (de mémoire je ne pourrais donné de lien, si ce n'est peut être une session des devdujeudi ou delphitv(en) )
02/07/2014, 20h26
PhilLU
Pffffff, je sue!

Tout fonctionne sauf la mise à jour de la DB :calim2:

Voici ce que j'ai:
Une DB MySQL avec une table nommée 'users'
Sur ma Form:
Une SQLConnection1 avec accès à MySQL
Un SQLDataset1 dont SQLConnection est SQLConnection1
- Command Text = select * from 'users'
- Command Type = ctQuery
- SchemaName = root
- Datasource = Datasource1
- Active = True
Un DataSource dont Dataset = ClientDataSet1
Un DatasetProvider1 dont Dataset = SQLDataset1
Un ClientDataset1 dont ProviderName = DatasetProvider1
Un DBNav dont DataSource est Datasource1
Les DBEdit nécessaires pour afficher les champs de la table

Quand je lance, tout semble ok.
Je me déplace das la DB et les champs sont bien affichés.
Je clique sur le bouton edit du navigateur et je modifie un DBedit
Je clique ensuite sur le bouton post du navigateur; pas de message d'alarme, mais pas de modification de la DB :arf:
J'ai aussi ajouté un bouton qui actionne:

Code:

SQLDataset1.Post;

mais je reçois un message: SQLDataset1 n'est pas en mode édition ou insertion!
J'ai cherché sur ledevdujeudi mais rien; sur delphitv: payant et youtube en russe ou en portugais :weird:
:help:Merci pour vos idées!!!

Bon, j'avais trouvé un code pourri sur:
http://delphi.about.com/gi/o.htm?zi=...aper/2106.html
qui ne fonctionnait pas du tout!!!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 var
    Posts: Integer = 0;
 
  procedure TForm1.SQLClientDataSet1AfterPost(DataSet: TDataSet);
  const
    MaxPosts = 7;
  begin
    Inc(Posts);
    if Posts > MaxPosts then
    begin
      (DataSet as TClientDataSet).ApplyUpdates(-1);
      Posts := 0
    end
  end;

je l'ai regardé de plus près et après correction:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.ClientDataSet1AfterPost(DataSet: TDataSet);
begin
   MaxPosts := 7;
   Posts := 0;
  begin
    Inc(Posts);
    if Posts < MaxPosts then
    begin
      (DataSet as TClientDataSet).ApplyUpdates(-1);
    end
end;
end;

ça fonctionne!!!
:yaisse:
Je ne comprends pas cette logique, si qq peux m'expliquer???
:chin:

:resolu:

02/07/2014, 22h18
Andnotor
Dans le premier cas, il faut passer huit fois dans l'événement pour appliquer les modifications.
Dans le deuxième cas, ben... c'est systématique :koi:

Pour simplifier :
Code:

1 2 3 4 procedure TForm1.ClientDataSet1AfterPost(DataSet: TDataSet); begin (DataSet as TClientDataSet).ApplyUpdates(-1); end;
:mrgreen:
25/10/2014, 19h31
PhilLU

Ma question est pourtant simple et élémentaire:
J'ai un DBGrid, un datasource, un SQLConnection, un SQLDataset, un DatasetProvider, et un ClientDataSet.
J'ai des données dans la DB.
Quand je lance l'appli, ma DBGrid m'affiche bien les données de la table de la DB.
Je souhaite pouvoir éditer une valeur de le table de sorte que sur un OnKeyUp la table de la DB soit mise à jour.
Mais mes tentatives restent :calim2: comment jouer avec les BeforePost, update et afterPost???
:help:

:merci:d'avance;)