FoxPro Tutorial & Source Code
* Author : Team of Pelagian Softwares
* Date : 29/03/2007
* Source : rntable.prg
* Description : Program to rename a field in structure / table through coding
set talk off
set safe off
clear
do renField with "STUDENT", "FAT_NAME", "F_NAME"
proc renField
para data2ch, oldfld, newfld
field_ex=.n.
use &data2ch
if !type( oldfld ) = 'U'
field_ex=.y.
endI
clos data
if field_ex
?"Renaming Field",oldfld,"to",newfld,"in",data2ch
USE &data2ch
copy to Data.TXT for !dele() SDF
COPY TO SEXT STRUCTURE EXTENDED
use sext
LOCA FOR UPPER(FIELD_NAME)=PADR(UPPER(oldfld),10)
repl FIELD_NAME with newfld
USE
CREATE TEMP FROM SEXT ALIAS cAlias
USE
USE TEMP
APPEND FROM DATA.TXT SDF
clos data
USE TEMP
copy to &data2ch
clos data
else
?
?
?oldfld,"Field not found in",data2ch
endI
clos data
REturn .t.
Also download:
database/student.dbf
|
|
