Change of structure during development

[Marc Venken]

Hey,

Every couple of day, while my program grows, I have to change (add) more fields into the online database

Now I go into my phpMyadmin and change the structure and continue.
I've seen that there are functions to change it from FWH.

What approach do you mostly take ?

[Enrrique Vertiz]

Hi Marc

Sorry for my bad english, i use this code for add columns

if fieldpos("c_emdirec") < 1
gci_sqlexe("ALTER TABLE gci_empresas ADD c_emdirec CHAR(60) DEFAULT '' NOT NULL AFTER c_emname2")
gci_sqlexe("ALTER TABLE vcnewbos ADD tas_detrac NUMERIC(5,2) DEFAULT '0.00' NOT NULL AFTER des_newbos")
end if

if you need change colums this code :

if len(cdo_cuenta) == 12
gci_sqlexe("ALTER TABLE vcpatpcg MODIFY cdo_cuenta CHAR(14) DEFAULT '' NOT NULL")
end if

gci_sqlexe is my function to invoke mysql in ADO or TDolphin maybe have other names

[nageswaragunupudi]

FWH implementation

Examples:
Adding a numeric column

Code: Select all  Expand view  RUN

oCn:AddColumn( "mytale", { "columnname", 'N', 10, 2 } ) --> lSuccess
 

Altering a column. Assuming we have a column with name "member_name" with width 20. We want to alter the width as 30

Code: Select all  Expand view  RUN

oCn:AlterColumn( "mytable", { "member_name", 'C', 30, 0 }
 

Second parameter is like the column specification in our familiar DBF structure.

Rename a column:

Code: Select all  Expand view  RUN

oCn:RenameColumn( "mytable", "oldcolumnname", "newcolumnname" ) --> lSucess
 

If we have a table without primary key and
(a) we want to add an auto-increment field as primary key

Code: Select all  Expand view  RUN

oCn:AddAutoInc( "tablename", "columnname" )
 

(b) we want to make one of the existing columns as primary key

Code: Select all  Expand view  RUN

oCn:MakePrimaryKey( "tablename", "columnname" )
 

[Marc Venken]

Exactly what I needed. Thanks all.