General information
Category:
Databases,Tables, Views, Indexing and SQL syntax
Title:
Made the DBC again.
When ocurre a disaster, some ony of us doesn´t now to do, in this moment we wish to much has a code where we can create everythnig again; sinde the dbc until the tables, index, tables validations, etc.
How can I do it.
I have made something like that, however this isn´t exactly what I want.
The code is......
parameter bf
use &bf
*- Save index expretions
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)
*- Save tag names
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)
*- delete all index
delete tag all
*- Pack after delete the indexs
pack memo
pack dbf
*- Index Reconstruction
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
*- Close table
use
This code delete index, but the validation fields, does aren´t made again.
How I do it.???
Thanks
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only