Necesito grabar a la vez en DBF y SQL

[José Vicente Beltrán]

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

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]

Code: Select all

#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.

[José Vicente Beltrán]

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

[horacio]

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

Saludos

[José Vicente Beltrán]

Supongo que podría usar ADO pero no se como

[horacio]

Para conectarte con el motor

Code: Select all

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

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]

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

[cnavarro]

Jose Vicente, quizás esto te pueda ayudar

http://forums.fivetechsupport.com/viewt ... do#p151744

[José Vicente Beltrán]

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

[cnavarro]

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