FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Administrar tablas MySql/MaDB embedded
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Administrar tablas MySql/MaDB embedded
Posted: Wed May 24, 2017 12:59 PM

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.

Saludos,



Adhemar C.
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Administrar tablas MySql/MaDB embedded
Posted: Wed May 24, 2017 02:17 PM

Adhemar:

Por qu茅 no lo haces desde c贸digo?

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Compuin
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: Administrar tablas MySql/MaDB embedded
Posted: Wed May 24, 2017 02:21 PM
Armando wrote:Adhemar:

Por qu茅 no lo haces desde c贸digo?

Saludos


Armando,

Puedes poner un ejemplo?

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Administrar tablas MySql/MaDB embedded
Posted: Wed May 24, 2017 02:45 PM

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

Saludos,



Adhemar C.
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Administrar tablas MySql/MaDB embedded
Posted: Wed May 24, 2017 03:21 PM

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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Administrar tablas MySql/MaDB embedded
Posted: Wed May 24, 2017 03:23 PM

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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Compuin
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: Administrar tablas MySql/MaDB embedded
Posted: Wed May 24, 2017 03:33 PM
Armando wrote: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)?

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Administrar tablas MySql/MaDB embedded
Posted: Wed May 24, 2017 04:13 PM
Compuin:

Debo anticiparte que solo uso ADO, FW y xHarbour.

Code (fw): Select all Collapse
// 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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Compuin
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: Administrar tablas MySql/MaDB embedded
Posted: Wed May 24, 2017 04:14 PM
Armando wrote:Compuin:

Debo anticiparte que solo uso ADO, FW y xHarbour.

Code (fw): Select all Collapse
// 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

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Administrar tablas MySql/MaDB embedded
Posted: Wed May 24, 2017 04:15 PM
Ahora creamos una tabla

Code (fw): Select all Collapse
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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Compuin
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: Administrar tablas MySql/MaDB embedded
Posted: Wed May 24, 2017 04:19 PM

Ok

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Administrar tablas MySql/MaDB embedded
Posted: Wed May 24, 2017 04:21 PM
Ahora mantenimiento

Code (fw): Select all Collapse
聽 聽 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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Administrar tablas MySql/MaDB embedded
Posted: Wed May 24, 2017 04:24 PM
Compuin:

El mantenimiento tambi茅n se puede hacer v铆a comandos SQL

Code (fw): Select all Collapse
                        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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Compuin
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: Administrar tablas MySql/MaDB embedded
Posted: Wed May 24, 2017 04:26 PM

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

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Administrar tablas MySql/MaDB embedded
Posted: Wed May 24, 2017 04:26 PM
Para eliminar:

Code (fw): Select all Collapse
聽 聽 聽 聽 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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Static archive 路 New replies & topics via GitHub Discussions