Extreme problem adding fields to a table.

[preston2]

Re: Extreme problem adding fields to a table.

I give up. I even tried only adding one field and it still trashed the table. Beyond me that a function code I have used for years now stops working right. It may be something with the table, who knows.

I think I am just going to add a child table and then redo all my forms and scripts to work off the child table data.

[preston2]

Re: Extreme problem adding fields to a table.

Ok,

Table.Field_Add() is only used between TABLE.CREATE_BEGIN() and TABLE.CREATE_END() so it looks like it is for creating new tables and not adding fields to an existing table.

Using the example John post yields the same result I was having with my code above. In other words it trashes the table.

I have something else I am about to try and see if that may be the problem.

[preston2]

Re: Extreme problem adding fields to a table.

Thanks guys. I will test both methods out.

[johnkoh]

Re: Extreme problem adding fields to a table.

Try this sample.

Example

This script adds several new fields to an existing table.

fields = <<%str%
Product,c,20
Price,n,10,2
Notes,m
%str%

table.add_fields("table1", fields)

[DaveM]

Re: Extreme problem adding fields to a table.

How about
<Tbl>.FIELD_ADD()

???
expanded:

table.create_begin("firstname","c",30)
table.field_add("lastname","c",30)
table.field_add("price","n",5,2)
table.field_add("quantity","n",2)
table.field_add("birthday","d")
'The create_end method creates the table and assign an object pointer to the table
tbl = table.create_end("sample.dbf")

or
TABLE.FIELD_ADD()

[preston2]

I am using a function to add fields to a table and I have been doing it this way for years without any problems but now I am trying to add fields to a table and it is blowing the table up deleting at least one field and changing field types on others.

I will post the function code here but first I am trying to get a list of the fields in the table using A5_GET_FIELDNAMES() and then write it somewhere like a txt file so I can post the results here and also use it to check for problems.

So if I use fld_list = a5_get_fieldnames( "wo_header.dbf" ) it puts the fields in a list.

I think if I tried

fld_list = a5_get_fieldnames( "wo_header.dbf" )
f=file.create("Filename",file_rw_exclusive)
f.write_line(fld_list)
f.flush()
f.close()

It would write all the field names to one line. I am going to try that and see.

Here the function I am using to add the fields to the table.

FUNCTION wo_header AS L ( )
DIM datapath as C
IF a5.Get_Master_Path() = ""
    datapath = a5.Get_Path()+chr(92)
ELSE
    datapath = a5.Get_Master_Path()+chr(92)
END IF
 
'Check table and LAST field updated first. If it has already been 
'done, skip the rest. Don't need to use "datapath" to get field names.
fld_list = a5_get_fieldnames( "wo_header.dbf" )
IF "IS_Exported"$fld_list '2013-12-13
    GOTO Updates_done
END if

fld_list = a5_get_fieldnames( "wo_header.dbf" )
IF .not. ("Is_Exported"$fld_list)
    new_flds = <<%list%
Is_Exported,L,1,0         
event_id,N,16,0
Details,C,72,0
tmstart,T,17,0
tmend,T,17,0
Alarm,C,20,0
How,C,20,0
Equip,C,20,0
Export_It,L,1,0
Add_Date,D,8,0
Notes,M,10,0
Priority,N,4,0
Class_type,C,16,0
Rev_Date,D,8,0
Sch_datec,C,16,0
Sch_Date,D,8,0
Cust_email,C,60,0
%list%
    a5_add_fields_to_table( datapath + "wo_header.dbf", new_flds )
 end if   
Updates_done:
END FUNCTION