topic-34912

Posts: 282

Joined: Mon Oct 10, 2005 08:55 AM

Necesito grabar a la vez en DBF y SQL
Posted: Fri Nov 24, 2017 05:55 PM

Hola foro, lo que necesito es simple pero dada mi (prácticamente) nula experiencia con MYSQL pido ayuda.
Necesito grabar sucesivamente unos datos en DBF y en MYSQL, algo así:

Code (fw): Select all Collapse

function guarda()
local xNombre:= "pepe"
local xDireccion := "c/ del pez 13"
local sql := ""

USE Alumno SHARE NEW
if add_rec()
replace nombre with xnombre
replace direccion with xdireccion
dbunlock()
endif
CLOSE alumno

*** aqui necesito guardar lo mismo en una tabla MYSQL
** abrir tabla
sql="INSERT INTO alumno    (nombre, direccion) VALUES('xnombre','xdireccion')";  // supongo que algo así
** cerrar tabla
return .t.

pero no conozco los detalles del codigo necesario.
La aplicación trabaja con DBF, la grabacion en MYSQL es una excepción.
Disculpad mi desconocimiento a este nivel.

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: Necesito grabar a la vez en DBF y SQL
Posted: Sat Nov 25, 2017 12:06 AM

Code (fw): Select all Collapse

#include "fivewin.ch"
function guarda()
local xNombre:= "pepe"
local xDireccion := "c/ del pez 13"
local sql := ""

USE Alumno SHARE NEW
if add_rec()
replace nombre with xnombre
replace direccion with xdireccion
dbunlock()
endif
CLOSE alumno

*** aqui necesito guardar lo mismo en una tabla MYSQL
** abrir tabla
sql="INSERT INTO alumno    (nombre, direccion) VALUES("+ClipValue2Sql(xnombre)+","+ClipValue2Sql(xdireccion)+")"
oServer:Execute(sql) //oServer es tu conexion activa a la base de datos
return .t.

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

José Vicente Beltrán

Posts: 282

Joined: Mon Oct 10, 2005 08:55 AM

Re: Necesito grabar a la vez en DBF y SQL
Posted: Sun Nov 26, 2017 03:11 PM

Muchas gracias por responder, pero podrias indicarme también el proceso completo para crear, abrir y cerrar la conexión activa con sql? :shock:

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: Necesito grabar a la vez en DBF y SQL
Posted: Sun Nov 26, 2017 04:16 PM

Que estás usando para conectarte con el motor ? Dophin, FwhMariaDb, Ado ?

Saludos

José Vicente Beltrán

Posts: 282

Joined: Mon Oct 10, 2005 08:55 AM

Re: Necesito grabar a la vez en DBF y SQL
Posted: Sun Nov 26, 2017 08:48 PM

Supongo que podría usar ADO pero no se como :shock:

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: Necesito grabar a la vez en DBF y SQL
Posted: Sun Nov 26, 2017 08:58 PM

Para conectarte con el motor

Code (fw): Select all Collapse

oCon := CreateObject("ADODB.Connection")
oCon : Open := ( "Driver={MySQL ODBC 5.1 Driver};Server=" + cHost + ";Database=" + cBBDD + ";User=" + cUser + ";Password=" + cPassw + ";Option=3;" )

Para ejecutar el insert

Code (fw): Select all Collapse

cInsert := "insert into alumno(nombre, direccion) Values ('xnombre','xdireccion')"
oCon : Execute( cInsert )

Recuerda que además de instalar el motor Mysql deberás instalar el conector. ( En el caso de esta cadena de conexión es el conector v.5.1 ). Espero te sirva

Saludos

José Vicente Beltrán

Posts: 282

Joined: Mon Oct 10, 2005 08:55 AM

Re: Necesito grabar a la vez en DBF y SQL
Posted: Sun Nov 26, 2017 09:47 PM

Muchas gracias, al menos ahora tengo una base por donde empezar :shock:

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Necesito grabar a la vez en DBF y SQL
Posted: Mon Nov 27, 2017 02:29 AM

Jose Vicente, quizás esto te pueda ayudar

viewtopic.php?f=19t=27296hilit=empezando+con+ado#p151744

&&

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

José Vicente Beltrán

Posts: 282

Joined: Mon Oct 10, 2005 08:55 AM

Re: Necesito grabar a la vez en DBF y SQL
Posted: Mon Nov 27, 2017 10:45 AM

Muy buena información Cristobal, muchas gracias, yo tampoco tenia los conceptos básicos nada claros :shock:

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Necesito grabar a la vez en DBF y SQL
Posted: Mon Nov 27, 2017 10:48 AM

Bueno, ya sabemos como es esto
Cuando creemos que lo dominamos aparece ( o descubrimos ) algo nuevo y vuelta a empezar

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

FiveTech Support Forums

Continue the discussion