Re: Crear Paquetes En Gambas
(RESUELTO)
Buenas tardes comunidad
gambas...
Estaba perdido ya que estuve buscando la solución al problema....
en primer lugar este es el código que me funcionó para la creación de bases de datos en Mysql
DIM BDusuario AS String
IF hConecion <> NULL THEN RETURN FALSE
BDusuario = "Nombre de la Base de Datos"
hConecion = NEW Connection
hConecion.Host = "localhost"
hConecion.User = "root"
hConecion.Password = "pass" 'La contraseña creada por el usuario
hConecion.Type = "mysql"
hConecion.Name = ""
TRY hConecion.Open()
IF NOT hConecion.Databases.Exist(BDusuario) THEN
hConecion.Databases.Add(BDusuario)
hConecion.Close()
hConecion.Name = BDusuario
hConecion.Open()
' Al crear la BD se llama un módulo para la creación de las tablas
conexion.creartablas(hConecion, BDusuario)
ELSE
hConecion.Close()
hConecion.Name = BDusuario
IF ERROR THEN
hConecion = NULL
Message.Error("ERROR AL CONECTAR LA BASES DE DATOS")
RETURN TRUE
ENDIF
ENDIF
RETURN FALSE
y crear las tablas dentro del módulo se hace de la siguiente manera
PROCEDURE creartablas1(hconn AS Connection, sBasedatos AS String)
DIM laTabla AS Table
IF NOT hconn.Tables.Exist("NOMBRE DE LA TABLA") THEN
laTabla = hconn.Tables.Add("NOMBRE DE LA TABLA", "InnoDB") 'creamos una tabla
WITH laTabla
.Fields.Add("id", db.Serial) ' Añadimos una clave primaria autoincremental
' Añadimos los campos que necesitemos
.Fields.Add("Campo1", db.string, 35)
.Fields.Add("Campo2", db.string, 30)
.Fields.Add("Campo3", db.Integer)
.PrimaryKey = ["id"]
.Update()
END WITH
ENDIF
END
Todo el problema radica en que se debe tener el acceso a redes conectado con internet para poder realizar el paquete y al igual para la instalación, claro el sistema que realice no funciona si no tengo conexión a internet....