Récup' les datas depuis une table ADO (?)

**IvyAlice** · 29/04/2009, 13h29

Bonjour à tous,
Voici mon problème, j'essaie de récupéré des données depuis access avec delphi.
J'ai suivis avec succès le tutorial pour débutant de Cyril Beaussier( utiliser une ADOconnexion, puis le lier sur une ADO table elle-même liée avec un TDataSource qui affiche les données dans un DBGrid).
Seulement maintenant, j'essaie de récupéré les données de la base que j'appelle avec ADOTable, avec du code, car j'aimerais en faire autre chose.
Et là... c'est le drame Oo.
J'ai pensé à les récupéré dans ADOTable.Recordset, mais pour être honnête, je ne sais même pas si c'est le bon composant à exploiter pour retrouver ces données.

En clair : est-ce que je peut récupéré les données de la base depuis ADOTable ? et si oui, de quelle manière ?

Merci d'avance pour vos précieuse réponses

Ivy

**rec82** · 29/04/2009, 14h34

salut.

et bien venus chez le forum delphi
que voulez vous faire exactement?

J'ai pensé à les récupéré dans ADOTable.Recordset

si tu à fait comme tu as dis au dessu alors l'affichage des donnés dans le Ttable c'est une récupération des donnés.
sinon si tu veut des traitement sur les tables de la base ,je te conseille d'utilisé le sql.
cordialement rec82.

**IvyAlice** · 29/04/2009, 14h41

Salut rec82

Merci ^_^

Oui en fait les données sont là(c'est moi qui n'ai pas été claire). Ce que j'aimerais en faire c'est pouvoir y accédé avec du code (je dois les passer dans une moulinette et les renvoyer ailleurs, mais pas dans une DB).

là visiblement j'arrive à accéder à la première ligne de donnée( les infos qui apparaissent dans le DBGrid) avec un code de ce genre :

Code :

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

ADOTable.RecordSet.Fields.Item[<N° de colonne>].Value

donc

Code :

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

ADOTable.RecordSet.Fields.Item[0].Value

me donne accès à la première colonne,

Code :

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

ADOTable.RecordSet.Fields.Item[1].Value

à la deuxième, etc...

Mais après je ne peut pas accéder à mes autres enregistrements.

Heu si par utiliser du SQL tu veut dire une DB sql server, je me trouve dans l'impossibilité d'appliquer cette solution car la décision ne me revient pas.

Si tu veut dire utiliser des requêtes SQL, tu pourrais développer stp.

Merci

Ivy

**rec82** · 29/04/2009, 14h56

salut.
tu veut exporter les donnés hors la base (dans un fichier excel par exemple)?

**IvyAlice** · 29/04/2009, 14h59

re ^_^

Voilà exactement.

**rec82** · 29/04/2009, 15h22

salut .

premierement une procedure d'exportation:

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
30
31
32
33
34
35
procedure tform27.exportation(a:Tadotable;delimiteur,separateur:char;nomfile:string);
 
var champnum :integer;
 recstring:string;
 vt :variant;
 fichiersortie:tstringlist;
 begin
 
fichiersortie:=tstringlist.Create;
delimiteur:='"';
separateur:=';';
//*****************************************************************
 a.First;
    While not a.Eof do begin
         RecString     := '';
         for ChampNum  := 0 to a.FieldCount-1 do begin
             Vt        := VarType(a.Fields[ChampNum].Value);
             Case Vt of vtinteger, vtextended, vtcurrency, vtint64 :
             Recstring := Recstring+
                          a.Fields[ChampNum].AsString else
             Recstring := Recstring+
                          delimiteur+
                          a.Fields[Champnum].AsString+
                         delimiteur;
             end; // fin du case
         if champNum < (a.FieldCount-1) then
         RecString     := RecString+
                          Separateur;
            //
            end; // fin du for champnum.
       fichierSortie.Add(RecString);
         a.Next;
        end;  // fin du while tbl.
       fichiersortie.SaveToFile('C:'+'\'+nomfile);
         end;

supposant que tu as une Tadotable qui s'ppelle matable une button

Code :

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

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
exportation(matable,'"',';','mesure.csv');
end;

et voila un fichier dans le C: qui tu peut ouvrir avrc notepad ou avec axcel.
cordialelement rec82.

**IvyAlice** · 29/04/2009, 15h49

re,
oh je crois que cette fois c'est bon !!!
avec

Code :

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

ADOTable.Fields[ICompon].AsString

J'ai pu récupéré ce qu'il y avait comme champs.

Mais en fait on peut pas faire de sélection pour les champs à ce niveau si j'ai bien compris et on peut pas faire par enregistrement, on est obligé de passer en revue tous les champs.

Bon tu as réussi à me faire comprendre le principal, c'est ce qui compte.

Merci beaucoup, et bonne fin de journée

Ivy