https://foro.gambas-es.org/viewtopic.php?f=3&t=4974&p=28808#p28808
-----------------------------------
v3ctor
Sabado, 14 Noviembre 2015, 19:50

Re: No Puedo Borrar Columna Desde Consola Gambas
-----------------------------------
a ver que le parece esto sensei shordi?


[code linenumbers=false syntax=gambas]Public Sub NuevaTablaTaller()
  Dim sql As String
  Dim Campos, Campos1 As String
  
  sql = "Create TABLE tablataller1(id INTEGER Not Null PRIMARY KEY AUTOINCREMENT,"
  sql &= "ingreso DATETIME,nombre VARCHAR(64),celular VARCHAR(16),telefono VARCHAR(16),"
  sql &= "costo float(6,2) Not Null Default '0',"
  sql &= "correo VARCHAR(64),domicilio VARCHAR(255),tipo VARCHAR(32),marca VARCHAR(32),modelo VARCHAR(32),serie VARCHAR(32),"
  sql &= "datos TEXT,entrega DATETIME,"
  sql &= "pagado VARCHAR(8) Not Null Default 'No',enTaller VARCHAR(8) Not Null Default 'Si',aCasa VARCHAR(8) Not Null Default 'No',"
  sql &= "clientenuevo VARCHAR(8) Not Null Default 'No',pendiente VARCHAR(8) Not Null Default 'No',clave VARCHAR(32), rutaimagen text)"
 
    Try FMain.Conectar1.Exec(sql)

    If Error Then
      Print Error.Text
      
    Else
   
      Campos = "id,ingreso,nombre,celular,telefono,costo,correo,domicilio,tipo,marca,modelo,serie,datos,entrega,"
      Campos &= "pagado,enTaller,aCasa,clientenuevo,pendiente,clave,rutaimagen"
   
      FMain.Conectar1.Exec("insert into tablataller1 (" & Campos & ") select " & Campos & " from tablataller ")
      Wait 0.1
      FMain.Conectar1.Exec("drop table tablataller")
      Wait 0.1
      FMain.Conectar1.Exec("alter table tablataller1 rename to tablataller")
       
    Endif

End[/code]

al parecer funciona bien  :lol:


