Afficher le nom des tables d'une base de donnée

uses dbtables;

procedure TForm1.Button1Click(Sender: TObject);
var
ts: TStringlist;
begin
ts := TStringlist.create;
Session.GetTableNames('DBDEMOS', '*.DB', false, false, ts);
listbox1.items.assign(ts);
ts.free;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour18/12/2004
VisualisationVu 2225 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Base de donnees
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur