https://foro.gambas-es.org/viewtopic.php?f=3&t=247&p=1289#p1289
-----------------------------------
shordi
Jueves, 03 Diciembre 2009, 02:27

Re: Crear Base De Datos SQLITE Por Codigo
-----------------------------------
Prueba esto:
[code linenumbers=false syntax=gambas]
public sub creabasesqlite()
 DIM hcon AS NEW Connection
  DIM laTabla AS Table
  DIM dbName AS String

  DBName = "mibase"
  ' Abre la conexion sólo al servidor de datos, sin abrir tablas
  hcon.Type = "sqlite3"
  hcon.Host = User.Home
  hcon.Name = ""
  hcon.Login = ""
  hcon.Password = ""
  hcon.Port = ""

  TRY hcon.Open()

  ' Comprueba si existe la base de datos /user/home/importada_csv, y si no existe la crea
  IF NOT hcon.Databases.Exist(DBName) THEN
    hcon.Databases.Add(DBName)
    ' Esta espera es necesaria con bases SQLite , aunque no con Mysql
    WAIT 0.5
  END IF
  ' Se cierra la conexión al servidor  
  hcon.Close()
  ' Se abre la conexión a la base de datos
  hcon.Host = User.Home
  hcon.Name = DBName
  TRY hcon.Open()
  IF ERROR THEN
    Message.Error("No se pudo abrir la base de datos")
    RETURN FALSE
  END IF
  latabla = hcon.Tables.Add("nueva_tabla") 'creamos una tabla
  latabla.Fields.Add("ih_indice", db.Serial) ' Añadimos una clave primaria autoincremental 
  latabla.Fields.Add("un_campo",db.string) ' Añadimos los campos que necesitemos 
  latabla.PrimaryKey = ["ih_indice"]
  latabla.Update()

  hcon.Close
CATCH 
    Message.Error(Error.Text)
    RETURN FALSE
END
[/code]


