Necesito grabar a la vez en DBF y SQL

Necesito grabar a la vez en DBF y SQL

Postby José Vicente Beltrán » Fri Nov 24, 2017 5: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: Select all  Expand view
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. :shock:
User avatar
José Vicente Beltrán
 
Posts: 282
Joined: Mon Oct 10, 2005 8:55 am
Location: Algeciras, España

Re: Necesito grabar a la vez en DBF y SQL

Postby cmsoft » Sat Nov 25, 2017 12:06 am

Code: Select all  Expand view

#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.
User avatar
cmsoft
 
Posts: 1181
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Re: Necesito grabar a la vez en DBF y SQL

Postby José Vicente Beltrán » Sun Nov 26, 2017 3: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:
User avatar
José Vicente Beltrán
 
Posts: 282
Joined: Mon Oct 10, 2005 8:55 am
Location: Algeciras, España

Re: Necesito grabar a la vez en DBF y SQL

Postby horacio » Sun Nov 26, 2017 4:16 pm

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

Saludos
horacio
 
Posts: 1358
Joined: Wed Jun 21, 2006 12:39 am
Location: Capital Federal Argentina

Re: Necesito grabar a la vez en DBF y SQL

Postby José Vicente Beltrán » Sun Nov 26, 2017 8:48 pm

Supongo que podría usar ADO pero no se como :shock:
User avatar
José Vicente Beltrán
 
Posts: 282
Joined: Mon Oct 10, 2005 8:55 am
Location: Algeciras, España

Re: Necesito grabar a la vez en DBF y SQL

Postby horacio » Sun Nov 26, 2017 8:58 pm

Para conectarte con el motor
Code: Select all  Expand view

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: Select all  Expand view

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
horacio
 
Posts: 1358
Joined: Wed Jun 21, 2006 12:39 am
Location: Capital Federal Argentina

Re: Necesito grabar a la vez en DBF y SQL

Postby José Vicente Beltrán » Sun Nov 26, 2017 9:47 pm

Muchas gracias, al menos ahora tengo una base por donde empezar :shock:
User avatar
José Vicente Beltrán
 
Posts: 282
Joined: Mon Oct 10, 2005 8:55 am
Location: Algeciras, España

Re: Necesito grabar a la vez en DBF y SQL

Postby cnavarro » Mon Nov 27, 2017 2:29 am

Jose Vicente, quizás esto te pueda ayudar

viewtopic.php?f=19&t=27296&hilit=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
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Necesito grabar a la vez en DBF y SQL

Postby José Vicente Beltrán » Mon Nov 27, 2017 10:45 am

Muy buena información Cristobal, muchas gracias, yo tampoco tenia los conceptos básicos nada claros :shock:
User avatar
José Vicente Beltrán
 
Posts: 282
Joined: Mon Oct 10, 2005 8:55 am
Location: Algeciras, España

Re: Necesito grabar a la vez en DBF y SQL

Postby cnavarro » 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
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 5 guests