Search Photo  
RSS Feed Thursday, October 02, 2014
  Home | Celebrity | Photo Gallery | Wallpapers | e-Card | Business | Entertainment | Education | Sports | Article | Video News | Forum
School, College, University, Institute, Institute, Coaching Center and other Education Institute of India
Education Directory | Results | Who is Who | Notes | Article | Tutorial | Information | Dictionary | News 
 
 CA Clipper | FoxPro |

 

News Flashडूडी को जनघोषणा-पत्र की प्रतियां भेंट | पैरासेलिंग षिविर सम्पन्न | राजस्थान में प्रवासी राजस्थानियों के लिये अलग से मंत्रालय खोलने का प्रयास किया जायेगा : सर्राफ | देश के विकास के लिए स्वदेषी अपनाना जरूरी | अजित फाउण्डेशन का तीन दिवसीय वार्षिकोत्सव शुरू | CGs first SAS order from PGCIL | New environment for business meeting in Delhi | Tradonomix introduces learning solution for Traders | RE/MAX appointed Manpreet Grewal for its India Operations | Company e-registration simplified in Singapore |
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 
Category for FoxPro
Database
Financial
Mathametics
Screen
Search
Security
Sound
String

All right reserved by Khabarexpress.com
Contact Us | Archives | Sitemap | Can't see Hindi ? | News Ticker
Special Edition: Lakshchandi Mahayagya, Camel Festival 2007, Vartmaan Sahitya, Nagar Ek - Nazaare Anek, Bikaner Udyog Craft Mela
Our Network rajb2b.com | khabarexpress.com | uniqueidea.net | PelagianDictionary.com | hindinotes.com | hubVilla.com
Developed & Designed by Pelagian Softwares