Discussion :

[Kephuro]

Bonjour à tous !

Je suis en train de me faire un petit utilitaire perso qui fait mumuse avec les BDD.
Et pour ce faire, j'ai besoin de récupérer le nom des tables ainsi que le nom des champs de ces tables.
J'utilise les composants ADO pour me connecter à la base de donnée (quelque soit la base de données).

Est-ce qu'il existe une méthode générique pour rapatrier tout ceci ?

Je maitrise pas super bien les composants ADO

Merci d'avance

[Kephuro]

Je me répond à moi-même : Les composants ADO ont une méthode GetTablesNames et une méthode GetFieldsNames.

[liazidf]

Je me répond à moi-même : Les composants ADO ont une méthode GetTablesNames et une méthode GetFieldsNames.

Salut,
Vous auriez appuyez sur la réponse y est.

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
procedureTForm1.Button1Click(Sender:TObject);
 
var
SL:TStrings;
index:Integer;
begin
SL :=TStringList.Create;
try
ADOConnection1.GetTableNames(SL,False);
forindex :=0 to(SL.Count -1)do begin
Table1.Insert;
Table1.FieldByName('Name').AsString :=SL[index];
ifADOTable1.Active thenADOTable1.Close;
ADOTable1.TableName :=SL[index];
ADOTable1.Open;
Table1.FieldByName('Records').AsInteger :=ADOTable1.RecordCount;
 
Table1.Post;
end;
finally
SL.Free;
ADOTable1.Close;
end;
end;