'Create Table
'SQL1.ExecNonQuery("CREATE TABLE Trans01_Copy AS Select ID, Portfolio, TranDate, Qty FROM Trans01")
'SQL1.ExecNonQuery("CREATE TABLE Trans01_Copy AS Select ID, Portfolio, TranDate, Qty FROM Trans01")
'Create Table with New Field at END
'SQL1.ExecNonQuery("CREATE TABLE IF NOT EXISTS Trans01_Copy02 (ID INTEGER, Portfolio TEXT, TranDate TEXT, Qty INTEGER, NewField TEXT)")
'SQL1.ExecNonQuery("INSERT INTO Trans01_Copy02 (ID, Portfolio, Trandate, Qty) Select ID, Portfolio, TranDate, Qty FROM Trans01")
'Add a New Field anywhere - 2 ways
'Specify Field in INSERt
SQL1.ExecNonQuery("CREATE TABLE IF NOT EXISTS Trans01_Copy03 (ID INTEGER, Portfolio TEXT, NewField TEXT, TranDate TEXT, Qty INTEGER)")
SQL1.ExecNonQuery("INSERT INTO Trans01_Copy03 Select ID, Portfolio, Null, TranDate, Qty FROM Trans01")
'No Need to NAME Field in INSERT
SQL1.ExecNonQuery("CREATE TABLE IF NOT EXISTS Trans01_Copy04 (ID INTEGER, Portfolio TEXT, NewField TEXT, TranDate TEXT, Qty INTEGER)")
SQL1.ExecNonQuery("INSERT INTO Trans01_Copy04 (ID, Portfolio, Trandate, Qty) Select ID, Portfolio, TranDate, Qty FROM Trans01")