How to get a list of tables in a database into an array

[jworley]

Hi,

Please forgive me if this question is a little elementary but I have searched this forum for ages and I haven't found anything on this subject.

I am writing a query form where a user can locate and open any VFP database. What I would then like to do is get a list of tables in that database (Such as the output from DISPLAY TABLES) and populate a list box with that table list, the idea being that the user can select the table they want to open.

Having selected the table, it would be great if the list also allowed the selection of the fields within the selected table, i.e. a tree display maybe with appropriate icons. I am assuming I would need the table list in an array as well as the field list. Any help would be greatly appreciated.

Regards

Jim Worley
jim@aits-uk.net

http://www.aits-uk.net

 

[Mike Gagnon]

jworley

Public Array aTables[1]
oData = Getfile('dbc')
Set Default To Justpath(oData)
Open Database (oData)  Exclusive
Set  Database To (oData)
m.latables  = Adbobjects(aTables, 'Table')

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.