*!* -----------------------------------------------------------------
*!* ADD a new column to the Northwind customers table
*!* ADD doesn't understand the keyword COLUMN
*!* -----------------------------------------------------------------
function addcolumn
  with this
    .lccommand = "ALTER TABLE customers ADD Junk2 varchar(20)"
    .lncompleted = sqlexec(.lnhandle,.lccommand)
    .lcfunction = "Add a column"
    .lcreturn =  iif(.lncompleted>0,.lcfunction,"Error when attempting to: "+.lcfunction)
  endwith

*!* -----------------------------------------------------------------	
*!* Drop that column from the Northwind customers table
*!* DROP requires the key word COLUMN
*!* ----------------------------------------------------------------- 
function dropcolumn
  with this
    .lccommand = "ALTER TABLE customers DROP COLUMN Junk2"
    .lncompleted = sqlexec(.lnhandle,.lccommand)
    .lcfunction  = "Drop a column"
    .lcreturn =  iif(.lncompleted>0,.lcfunction,"Error when attempting to: "+.lcfunction)
  endwith