Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
V6s5 & GenDBCx - Views using Views creation order
Message
 
À
17/12/2003 12:08:04
Information générale
Forum:
Visual FoxPro
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Divers
Thread ID:
00857528
Message ID:
00860613
Vues:
20
Hi Trey

I have changed the logic as folows
iSaveSelect = SELECT()
select 0
Create Cursor cuViews (cView c(150), iOrder i)
Dimension aAll_Views(ALen(aAll_Views), 1) && so APPEND FROM ARRAY can be used
Append From Array aAll_Views
for li = 1 to ALEN(aAll_Views)
  lcView = Alltrim(aAll_Views[li])
?Lower(DBGetProp(Alltrim(cuViews.cView), "View", "SQL"))
?AT(Lower(lcView), Lower(DBGetProp(Alltrim(cuViews.cView), "View", "SQL")))
wait window lcview
  replace all iOrder with iOrder+1 ;
    for AT(Lower(lcView), Lower(DBGetProp(Alltrim(cuViews.cView), "View", "SQL"))) > 0
brow norm
*!*	  Update cuViews ;
*!*	    Set iOrder=iOrder+1 ;
*!*	    Where AT(Lower(lcView), Lower(DBGetProp(Alltrim(cuViews.cView), "View", "SQL"))) > 0
Endfor

Select cViewName ;
  From cuViews ;
  Order By iOrder ;
  Into Array aAll_Views
brow norm

USE in cViewName
SELECT (iSaveSelect)
replace all iOrder with iOrder+1 ;
for AT(Lower(lcView), Lower(DBGetProp(Alltrim(cuViews.cView), "View", "SQL"))) > 0
brow norm
this works provided I have the brow norm command else it gives an error. The equivalant update does not work AT() nor $.

Also if the replace all commands pass the test the
Select cViewName ;
From cuViews ;
Order By iOrder ;
Into Array aAll_Views
does not work.

Any ideas

Thanks for your help.
Regards
Bhavbhuti
___________________________________________
Softwares for Indian Businesses at:
http://venussoftop.tripod.com
___________________________________________
venussoftop@gmail.com
___________________________________________
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform