list all tables that have a certain field in it

[trick66]

I have a production control software that I need to find out which tables have COMP_ID as one if their fields. I know that there are a few tables that have this field name, but I would like to make sure that I get all of them and not miss anything.

Is there a command that can be run in VFP7 if I have the default directory set to the folder where the tables are in.

Thanks in advance.
Rick

 

[Germancho]

Hi Rick

If you have an opened database, try this code:


lnTables = ADBOBJECTS(laTables, "Table")

FOR x = 1 TO lnTables
IF !EMPTY(laTables[x])
USE (laTables[x])
FOR y = 1 TO FCOUNT()
IF FIELD = 'COMP_ID'
? laTables[x]
ENDIF
ENDFOR
USE
ENDIF
ENDFOR

Regards,

German

 

[jimstarr]

Hi Rick,

DIMENSION myarray(1, 1)
=ADIR('myarray', '*.dbf')

FOR i = 1 to ALEN(myarray, 1)
USE (myarray(i, 1))
IF FSIZE('COMP_ID') > 0 && field exists
... do domething
ENDIF
ENDFOR


Jim

 

[trick66]

Thanks all, these are very helpful information.

Rick

 

[alvechurchdata]

Is there a command that can be run in VFP7

Field names are in plain text in a dbf so you could use Search from the Windows Start Menu and search for Files or Folders containing text COMP_ID. It's crude and will find any file which has "COMP_ID" as a data entry too but it's quick and takes no programming effort.

Geoff Franklin

http://www.alvechurchdata.co.uk