Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Syntax error
Message
From
27/08/2008 06:59:55
 
 
To
27/08/2008 06:45:51
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Environment versions
Visual FoxPro:
VFP 9
OS:
Windows XP
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01341460
Message ID:
01342135
Views:
15
thank you for help,

>The Try-endtry block does not change how your program works, UNLESS you have some kind of error.
>
>>main i have hidden field at excel sheet,? i see
>>
>>another qustion , i think i must have anew table tt at my folder when i run it via try...endtry???not found ( tt) table
>>
>>thanks
>>
>>>The line "new name with error is " tells me (and you) that you try to rename a field to a blank field name, which of course is illegal.
>>>
>>>>thank you,it works with try...endtry
>>>>if i stop try..endtry ; i get message syntax error
>>>>
>>>>
>>>>result via try...endtry is
>>>> oldname with error is txpno
>>>>new name with error is
>>>>.
>>>>.
>>>>
>>>>
>>>>>You have put the try-catch block in the wrong place!
>>>>>
>>>>>
>>>>>ALTER TABLE (TT) ADD COLUMN TXPNO C(19)
>>>>>ALTER TABLE (TT) ADD COLUMN YEARe C(6)
>>>>>ALTER TABLE (TT) ADD COLUMN INFTYPE C(2)
>>>>>ALTER TABLE (TT) ADD COLUMN INFDATE C(12)
>>>>>ALTER TABLE (TT) ADD COLUMN OFFCODE C(6)
>>>>>ALTER TABLE (TT) ADD COLUMN ENTRYID C(15)
>>>>>ALTER TABLE (TT) ADD COLUMN ENTDATE C(12)
>>>>>ALTER TABLE (TT) ADD COLUMN CONFFLAG C(3)
>>>>>ALTER TABLE (TT) ADD COLUMN CONFID C(12)
>>>>>ALTER TABLE (TT) ADD COLUMN CONFDATE C(12)
>>>>>replace TXPNO WITH THISFORM.TEXT1.Value
>>>>>replace YEARe WITH THISFORM.TEXT2.Value
>>>>>replace INFTYPE WITH THISFORM.TEXT3.Value
>>>>>replace INFDATE WITH THISFORM.TEXT4.Value
>>>>>replace OFFCODE WITH THISFORM.TEXT5.Value
>>>>>replace ENTRYID WITH THISFORM.TEXT6.Value
>>>>>replace ENTDATE WITH THISFORM.TEXT7.Value
>>>>>replace CONFFLAG WITH THISFORM.TEXT8.Value
>>>>>replace CONFID WITH THISFORM.TEXT9.Value
>>>>>replace CONFDATE WITH THISFORM.TEXT10.Value
>>>>>
>>>>>
>>>>>FOR gnCount = 1 TO FCOUNT( )
>>>>>   m.OldName =  FIELD(gnCount)
>>>>>   m.NewName = ALLTRIM(EVALUATE(FIELD(gnCount)))
>>>>>     *******************************************************
>>>>>   Try
>>>>>      ALTER TABLE (tt) RENAME COLUMN (m.OldName) TO (m.NewName)
>>>>>   Catch
>>>>>      Wait 'Oldname with error is '+m.oldname window
>>>>>      Wait 'Newname with error is '+m.newname window
>>>>>   Endtry
>>>>> NEXT
>>>>>
>>>>>
>>>>>>i try as below, but i think it is wrong way becuse no result
>>>>>>
>>>>>>
>>>>>>CLOSE all
>>>>>>SET DATE BRITISH
>>>>>>SET CENTURY on
>>>>>>thisform.text11.Value=GETFILE('xls')
>>>>>>IMPORT FROM (thisform.text11.value) TYPE xls
>>>>>>
>>>>>>use JUSTSTEM(thisform.text11.value)
>>>>>>tt=JUSTSTEM(thisform.text11.value)
>>>>>>
>>>>>>CLOSE all
>>>>>>USE (tt) excl
>>>>>> Try
>>>>>>*set step on
>>>>>>ALTER TABLE (TT) ADD COLUMN TXPNO C(19)
>>>>>>ALTER TABLE (TT) ADD COLUMN YEARe C(6)
>>>>>>ALTER TABLE (TT) ADD COLUMN INFTYPE C(2)
>>>>>>ALTER TABLE (TT) ADD COLUMN INFDATE C(12)
>>>>>>ALTER TABLE (TT) ADD COLUMN OFFCODE C(6)
>>>>>>ALTER TABLE (TT) ADD COLUMN ENTRYID C(15)
>>>>>>ALTER TABLE (TT) ADD COLUMN ENTDATE C(12)
>>>>>>ALTER TABLE (TT) ADD COLUMN CONFFLAG C(3)
>>>>>>ALTER TABLE (TT) ADD COLUMN CONFID C(12)
>>>>>>ALTER TABLE (TT) ADD COLUMN CONFDATE C(12)
>>>>>>
>>>>>>
>>>>>>
>>>>>>replace TXPNO WITH THISFORM.TEXT1.Value
>>>>>>replace YEARe WITH THISFORM.TEXT2.Value
>>>>>>replace INFTYPE WITH THISFORM.TEXT3.Value
>>>>>>replace INFDATE WITH THISFORM.TEXT4.Value
>>>>>>replace OFFCODE WITH THISFORM.TEXT5.Value
>>>>>>replace ENTRYID WITH THISFORM.TEXT6.Value
>>>>>>replace ENTDATE WITH THISFORM.TEXT7.Value
>>>>>>replace CONFFLAG WITH THISFORM.TEXT8.Value
>>>>>>replace CONFID WITH THISFORM.TEXT9.Value
>>>>>>replace CONFDATE WITH THISFORM.TEXT10.Value
>>>>>>Catch
>>>>>>   Wait 'Oldname with error is '+m.oldname window
>>>>>>   Wait 'Newname with error is '+m.newname window
>>>>>>Endtry
>>>>>>
>>>>>>
>>>>>>FOR gnCount = 1 TO FCOUNT( )
>>>>>>   m.OldName =  FIELD(gnCount)
>>>>>>   m.NewName = ALLTRIM(EVALUATE(FIELD(gnCount)))
>>>>>>     *******************************************************
>>>>>>   ALTER TABLE (tt) RENAME COLUMN (m.OldName) TO (m.NewName)
>>>>>>
>>>>>>NEXT
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>>I'm pretty sure that your problem is the name of the fields, and not the syntax. Try something like this
>>>>>>>Try
>>>>>>>   Alter table...
>>>>>>>Catch
>>>>>>>   Wait 'Oldname with error is '+m.oldname window
>>>>>>>   Wait 'Newname with error is '+m.newname window
>>>>>>>Endtry
>>>>>>>Then you write down the wrong values, and tell me what they are.
>>>>>>>
>>>>>>>>sorry i don't now what you main, or how i can know(to get) the value for OldName and NewName
>>>>>>>>What is the value of OldName when you get this error?
>>>>>>>>What is the value of NewName when you get this error?
>>>>>>>>
>>>>>>>>>Please answer my two simple questions!
>>>>>>>>>
>>>>>>>>>>if you main when i make replace via textboxes it's characters and numbers ,
>>>>>>>>>>
>>>>>>>>>>if you main excel sheet i have some fields have numbers ,and some fields have characters and ONE field have first record as blabla and next as #
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>>>What is the value of OldName when you get this error?
>>>>>>>>>>>What is the value of NewName when you get this error?
>>>>>>>>>>>
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform