Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Made the DBC again.
Message
De
20/08/1999 12:46:09
 
 
À
20/08/1999 08:52:59
Information générale
Forum:
Visual FoxPro
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Divers
Thread ID:
00255517
Message ID:
00255926
Vues:
15
>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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform