Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Made the DBC again.
Message
From
20/08/1999 12:46:09
 
 
To
20/08/1999 08:52:59
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Miscellaneous
Thread ID:
00255517
Message ID:
00255926
Views:
14
>Ok Erik, this is the code, that I have on mine system checkout and tell me what you think that I should do.
>
>* * * * * * * * * * *
>parameter bf
>use &bf
>*- Guarda las expresiones de los indices
>a=sys(14,1)
>b=sys(14,2)
>c=sys(14,3)
>d=sys(14,4)
>e=sys(14,5)
>f= sys(14,6)
>g=sys(14,7)
>h=sys(14,8)
>i=sys(14,9)
>j=sys(14,10)
>
>*- Guarda los nombres de los tag en el cdx
>aa=tag(1)
>bb=tag(2)
>cc=tag(3)
>dd=tag(4)
>ee=tag(5)
>ff=tag(6)
>gg=tag(7)
>hh=tag(8)
>ii=tag(9)
>jj=tag(10)
>*- borra todos los indices
>delete tag all
>
>*- Empaquetamos despues de borrar los índices
>*- Ahorra tiempo oen su indexación
>pack memo
>pack dbf
>
>*- Recosntrucción de los Indices
>if !empty(a)
> index on &a tag &aa
>endif
>if !empty(b)
> index on &b tag &bb
>endif
>if !empty(c)
> index on &c tag &cc
>endif
>if !empty(d)
> index on &d tag &dd
>endif
>if !empty(e)
> index on &e tag &ee
>endif
>if !empty(f)
> index on &f tag &ff
>endif
>if !empty(g)
> index on &g tag &gg
>endif
>if !empty(h)
> index on &h tag &hh
>endif
>if !empty(i)
> index on &i tag &ii
>endif
>if !empty(j)
> index on &j tag &jj
>endif
>*- Cierra la tabla en uso
>use
>* * * * * * * * * * *

When you delete the tags, you also delete relationships. You have to manually restore those relationships after the tags are rebuilt. PLEASE look at the code that genDBC builds for you to understand how to do this. Also, there is at least one, and I think more routines here in the files section that do this reindexing for you, and restore relationships as well.
Erik Moore
Clientelligence
Previous
Reply
Map
View

Click here to load this message in the networking platform