Discussion :

[Ice-tea]

Bonjours a tous,
Je souhaiterais lire le contenu de mon DBGrid, quelqu'un peut il m'aider ou m'aiguiller ? (je ne souhaite pas recupérer les données de mon Dataset ou du sqlQuery).

Merci d'avance

A Bientot

IceTea

[cadetill]

Salut

Qu'est-ce que tu veux dire avec "lire le contenu"??

A+

[Ice-tea]

salut j'entend par 'lire' stocket le contenu dans un tableau (dsl c vrai que j'ai poster mon message un peu vite).

[cadetill]

Salut

Je n'arrive pas a comprendre de tout, mais.... un TDBGrid sert pour visualiser les donnees d'un Dataset. Ça veut dire que pour faire n'importe quoi sur les donnees du TDBGrid tu dois travailler sur le DataSet liee.

Si tu veux "lire" tout les donnees, tu dois faire quelque chose comme ça

Code :

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

1
2
3
4
5
6
7
8
 
DataSet.First;
while not DataSet.Eof do
begin
  // traitement des donnees
 
  DataSet.Next;
end;

Si tu ne sais pas le DataSet...

Code :

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

1
2
3
4
5
6
7
8
 
DBGrid.DataSet.First;
while not DBGrid.DataSet.Eof do
begin
  // traitement des donnees
 
  DBGrid.DataSet.Next;
end;

A+

[Cl@udius]

Salut,

Cadetill a raison c'est la seule façon de procéder puisque le DBGrid ne contient pas les données.

Un petit correctif à son code:

Code :

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

1
2
3
4
5
6
7
8
9
with DBGrid.SourceSource.DataSet do begin
  First;
  while not Eof do
  begin
    // traitement des donnees: stockage dans le tableau
    Next;
  end;
end;

@+

[cadetill]

Salut

[...]
Un petit correctif à son code:
[...]

Oui, oui, vous avez raison, je l'ai fait sans le Delphi

A+

[Yurck]

Bonjour;
tout à fait d'accord avec notre ami cadetill
mis à part ce code

Code :

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

1
2
3
4
5
6
7
8
 
DBGrid.DataSet.First;
while not DBGrid.DataSet.Eof do
begin
  // traitement des donnees
 
  DBGrid.DataSet.Next;
end;

je ferais plutôt

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
DBGrid.disablecontrols;
MyBookMark := DBGrid.datasource.DataSet.GetBookmark
try
  DBGrid.DataSet.First;
  while not DBGrid.datasource.DataSet.Eof do
  begin
    // traitement des donnees
    DBGrid.datasource.DataSet.Next;
  end;
finally
  DBGrid.datasource.DataSet.GotoBookMark := MyBookmark;
  DBGrid.datasource.DataSet.freeBookMark(MyBookmark);
    DBGrid.enablecontrols;
end;

Le bookmark c'est pour faire joli.

a+