Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Process Database Tables as Collection Items?
Message
De
27/07/2015 17:46:18
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows 7
Network:
Windows 2008 Server
Database:
Visual FoxPro
Application:
Desktop
Divers
Thread ID:
01622575
Message ID:
01622578
Vues:
54
>>I'd like to process all the tables of a VFP database, looking for column names that contain certain strings. Does an open database expose any collection properties/attributes? It would be nice to be able to do something like this:
>>
>>OPEN DATABASE MyDBC
>>
>>FOR EACH {table} IN MyDBC
>>  ...
>>
>
>Check adbObjects() function.

OK, so no collection properties, ADBOBJECTS() is the best thing available.

Code for those interested:
CLEAR
CLOSE DATABASES ALL

OPEN DATABASE dat\data

lnTableCount = ADBOBJECTS( laTables, "TABLE" )

FOR lnIx1 = 1 TO lnTableCount STEP 1
	lcTable = laTables[ lnIx1 ]
	
	USE ( lcTable )
	
	lnFieldCount = AFIELDS( laFields )
	
	FOR lnIx2 = 1 TO lnFieldCount STEP 1
		lcFieldName = UPPER( laFields[ lnIx2, 1 ] )
		
		IF "REQUESTKEY" $ lcFieldName OR "REQFK" $ lcFieldName OR "RQFK" $ lcFieldName
			? lcTable + "." + lcFieldName
		
		ENDIF
	
	ENDFOR
	
	USE

ENDFOR
Regards. Al

"Violence is the last refuge of the incompetent." -- Isaac Asimov
"Never let your sense of morals prevent you from doing what is right." -- Isaac Asimov

Neither a despot, nor a doormat, be

Every app wants to be a database app when it grows up
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform