I am trying to add fields to a table to do this I created the table in a script using the CREATE_TABLE() Function as well as the FILE_ADD_TO_DB () function which was successful . I finally got the table in the path and the TABLE In the control panel
Now , I am trying to add fields to the table I created using the TABLE.ADD_FIELDS() function but I keep getting the error message:
�script A5_add_fields_to_table line:147
Variable append.m_exp1 expression- Field is not recognized.�
The help file isn�t very clear as to what is needed to get the fields into the table here is
The help example:
Is �table1� just the name of the table with no path indicated? I tried that and it didn�t work in
my script I just get table doesn�t exist. However I saw it work that way in another thread.
Maybe the table name is not acceptable the fact is the table is in the abd file and is in the file lists . I must have missed something in the field definitions? Or I don�t know ?
In the adb file I see the table and the path there is no capitalization in the control panel representation of the path and there is not the gaps seen in the path variables
Here is the code I have developed with some test variables included I make the name of the path for the database using a few variables and the EVALUATE _STRING() function once that is done I put its variable into the TABLE.ADD_FIELDS()function. This and the CREATE_TABLE () function are very similar and having had success with the CREATE_TABLE () using practically the identical code I don�t see why it doesn�t work. Maybe something is different. Here is a result of the ? LOCAL_VARIBLES function
All of this is just as it should be I think the table exists in the path above may be that�s not what is needed in the TABLE.ADD_FIELDS () function.
But I am no longer getting a message about a non existent table when I Test run the script.
Any help would be greatly appreciated.
Now , I am trying to add fields to the table I created using the TABLE.ADD_FIELDS() function but I keep getting the error message:
�script A5_add_fields_to_table line:147
Variable append.m_exp1 expression- Field is not recognized.�
The help file isn�t very clear as to what is needed to get the fields into the table here is
The help example:
Code:
fields = <<%str% Product,c,20 Price,n,10,2 Notes,m %str% table.add_fields("table1", fields)
my script I just get table doesn�t exist. However I saw it work that way in another thread.
Maybe the table name is not acceptable the fact is the table is in the abd file and is in the file lists . I must have missed something in the field definitions? Or I don�t know ?
In the adb file I see the table and the path there is no capitalization in the control panel representation of the path and there is not the gaps seen in the path variables
Here is the code I have developed with some test variables included I make the name of the path for the database using a few variables and the EVALUATE _STRING() function once that is done I put its variable into the TABLE.ADD_FIELDS()function. This and the CREATE_TABLE () function are very similar and having had success with the CREATE_TABLE () using practically the identical code I don�t see why it doesn�t work. Maybe something is different. Here is a result of the ? LOCAL_VARIBLES function
Code:
?local_variables() +varP_Object. vAsWrittenClientCode = "Mr. G.R. Kenney_13001_2011" vDbfName = "{vAsWrittenClientCode}{vlastpart}" vfirstpart = "c:\Alpha Databases\Wills1\ " vJustDbfName = "Mr. G.R. Kenney_13001_2011.dbf" vlastpart = ".dbf" vNEWTABLE = "c:\Alpha Databases\Wills1\ Mr. G.R. Kenney_13001_2011.dbf" vtablename = "{vfirstpart}{vAsWrittenClientCode}{vlastpart}" window_name = ":Assignments"
But I am no longer getting a message about a non existent table when I Test run the script.
Code:
'Execute inline Xbasic code. 'Get 'Value' property of multiple objects in Form 'Assignments' with Acount and Anumtxt for Executor. DIM window_name as C window_name = ":"+"Assignments" DIM varP_Object as p 'Get a pointer to the specified window varP_Object = obj(window_name) 'Check if the specified window exists if .not. is_object(varP_Object) then ui_msg_box("Error","The window '"+window_name+"' does not exist.",ui_stop_symbol) else DIM SHARED VclientCode AS c VclientCode = varP_Object:Client_code0.value END IF 'Here I create the various parts of the path string using variables Dim vlastpart as C =".dbf" Dim vfirstpart as C vfirstpart="c:\Alpha Databases\Wills1\ " Dim vAsWrittenClientCode as C = alltrim(Vclientcode) 'below is the varible that creates the EVALUATE_STRING()syntax Dim vtablename as C Vtablename="{vfirstpart}{vAsWrittenClientCode}{vlastpart}" 'This is a test variable as the code in the help file isn�t clear as to what is needed in the way of 'path to the table. Dim vDbfName as C vDbfName="{vAsWrittenClientCode}" vJustDbfName=EVALUATE_STRING(vDbfName) vTHETABLE = EVALUATE_STRING(vtablename) 'Here is the TABLE.ADD_FIELDS() function construct fields = <<%str% Executor,c,50 Exeheshe,c,4 Exehimher,c,4 Exehesher,c,4 Execount,n,10,0 Exessn,c,11 Exegender,C,6 Exetitle,c,20 Execlrelation,c,20 Exesex,c,2 Exenumtxt,c,20 Exertospouse,c,16 Exectitlecount,c,20 %str% table.add_fields(vTHETABLE,fields) 'I have checked the variables in the interactive with ?Local_variables and all the varibles are active. 'this code is similar to the Create_table function which is successfull
Comment