Administrar tablas MySql/MaDB embedded

[acuellar]

Estimados

Con cual herramienta se puede hacer, he intentado con HeidiSql y no veo como.

ó cómo agregar tablas a la base sacadas de un motor.

Gracias por la ayuda.

[Armando]

Adhemar:

Por qué no lo haces desde código?

Saludos

[Compuin]

Adhemar:

Por qué no lo haces desde código?

Saludos

Armando,

Puedes poner un ejemplo?

[acuellar]

Muchas Gracias por contestar y sus sugerencias.

Quería evitar la creada de las tablas y el posterior llenado con datos ya existentes.

Claro que también es necesario poder administrarlas

[Armando]

Adhemar:

Ahora entiendo tu necesidad, lo quieres es copiar una tabla que ya existe con datos en una base x
a otra base de datos, esto será por única vez. es así?

Si es así, es mejor un administrador de bases de datos.

Saludos

[Armando]

Compuin:

Mi recomendación era para crear la base de datos y la o las tablas vacías desde
código y también por código dar mantenimiento, agregar registros.

Si buscas código para esto con gusto lo pongo.

Saludos

[Compuin]

Compuin:

Mi recomendación era para crear la base de datos y la o las tablas vacías desde
código y también por código dar mantenimiento, agregar registros.

Si buscas código para esto con gusto lo pongo.

Saludos

Gracias Armando,

Podrias poner un codigo para ABM (Agregar, Borrar, Modificar)?

[Armando]

Compuin:

Debo anticiparte que solo uso ADO, FW y xHarbour.

Code: Select all  Expand view

// Creamos la Base de Datos si es que no existe ya
cCmdSql := "CREATE DATABASE IF NOT EXISTS " + ALLTRIM(oApp:cDataBase)
TRY
    oApp:oCon:Execute(cCmdSql)
CATCH oError
    MsgInfo("No se pudo crear la base de datos !",oApp:cAplicacion)
    ShowError(oError)
    RETURN(.F.)
END
 

Le seguimos?

Saludos

[Compuin]

Compuin:

Debo anticiparte que solo uso ADO, FW y xHarbour.

Code: Select all  Expand view

// Creamos la Base de Datos si es que no existe ya
cCmdSql := "CREATE DATABASE IF NOT EXISTS " + ALLTRIM(oApp:cDataBase)
TRY
    oApp:oCon:Execute(cCmdSql)
CATCH oError
    MsgInfo("No se pudo crear la base de datos !",oApp:cAplicacion)
    ShowError(oError)
    RETURN(.F.)
END
 

Le seguimos?

Saludos

Gracias. Si, adelante

[Armando]

Ahora creamos una tabla

Code: Select all  Expand view

cCmdSql := "CREATE TABLE IF NOT EXISTS Bancos (" +;
                "BAN_CIA DECIMAL(02,0)  NOT NULL    DEFAULT 0               COMMENT 'Número de compañia'," +;
                "BAN_BAN DECIMAL(03,0)  NOT NULL    DEFAULT 0               COMMENT 'Número de banco'," +;                     // Versión 3.0M00
                "BAN_NOM CHAR(30)           NOT NULL    DEFAULT ''              COMMENT 'Nombe del banco'," +;
                "BAN_USU CHAR(15)           NOT NULL    DEFAULT ''              COMMENT 'Usuario que actualizó'," +;
                "BAN_FDC DATE               NOT NULL    DEFAULT '0000-00-00'    COMMENT 'Fecha de actualización'," +;
                "BAN_HRA TIME               NOT NULL    DEFAULT '00:00:00'  COMMENT 'Hora de actualización'," +;
                "PRIMARY KEY(BAN_CIA,BAN_BAN))" +;
                "ENGINE = InnoDB                                                    COMMENT 'Bancos';"

TRY
    oApp:oCon:Execute(cCmdSql)
CATCH oError
    MsgStop("La tabla BANCOS NO pudo ser creada !",oApp:cAplicacion)
    ShowError(oError)
END
 

Vea el siguiente capítulo

[Compuin]

Ok

[Armando]

Ahora mantenimiento

Code: Select all  Expand view

    IF lAppend
        oRsBan:AddNew()
    ENDIF

    oRsBan:Fields("BAN_CIA"):Value := oApp:nNumCia
    oRsBan:Fields("BAN_BAN"):Value := oBan:BAN
    oRsBan:Fields("BAN_NOM"):Value := oBan:NOM
    oRsBan:Fields("BAN_USU"):Value := LEFT(ALLTRIM(oApp:cUsuario),15)
    oRsBan:Fields("BAN_FDC"):Value := DATE()
    oRsBan:Fields("BAN_HRA"):Value := TIME()
    oRsBan:UpDate()
 

Desde luego hay que determinar si lo que quieres es Agregar o Modificar, para eso utilizo
la variable lAppend

También hace falta todo el código para la edición de los datos.

Saludos

[Armando]

Compuin:

El mantenimiento también se puede hacer vía comandos SQL

Code: Select all  Expand view

                        cCmdSql := "INSERT INTO " +;
                                            "Fijos " +;
                                        "SET " +;
                                            "Fij_Cia = '" + STR(oRsEmp:Fields("EMP_CIA"):Value,02,0) + "'," +;
                                            "Fij_Emp = '" + STR(oRsEmp:Fields("EMP_EMP"):Value,05,0) + "'," +;
                                            "Fij_Con = '" + STR(nCpto,03,0) + "'," +;
                                            "Fij_Vec    = '" + STR(nUnidad,05,2) + "'," +;
                                            "Fij_Cal = 1" + "," +;
                                            "Fij_Sdi    = '" + STR(nSdi,11,2) +"'," +;
                                            "Fij_Sdv    = '" + STR(nSdv,11,2) +"'"

                        TRY
                            oApp:oCon:Execute(cCmdSql)
                        CATCH oError
                            MsgInfo("No pude ejecutar el comando " + cCmdSql,oApp:cAplicacion)
                            ShowError(oError)
                            RETURN(.F.)
                        END
 

Como ves ADO nos provee de todo sin necesidad de LIBs de terceros, no digo que no sean buenas, diría
que son excelentes, solo digo que no las necesitas.

Saludos

[Compuin]

Ok y para usar ADO debes instalar algun driver si es por ejemplo MS-SQL?

[Armando]

Para eliminar:

Code: Select all  Expand view

        cCmdSql := "DELETE FROM " +;
                            "Variables " +;
                        "WHERE " +;
                            "Var_Cia = '" + STR(oApp:nNumCia,02,0) + "' " +;
                        "AND " +;
                            "Var_Emp = '" + STR(oRsVar:Fields("VAR_EMP"):Value,05,0) + "' " +;
                        "AND " +;
                            "Var_Con = '" + STR(oRsVar:Fields("VAR_CON"):Value,03,0) + "' " +;
                        "AND " +;
                            "Var_Ref = '" + oRsVar:Fields("VAR_REF"):Value + "'"
 

Saludos