fabian
31 de Enero del 2004

duda: quisisera saber como conectar una aplicacion en fox a a una base de datos que esta en un servidor mysql en linux, parauso de consulas y nuevos registros

RAFA
31 de Enero del 2004

En primer lugar devera establecer los permisos de base de datos y a las tablas en el servior linux

lugo utilizando transacciones

establecemos la coneccion a dicho servidor utilisando la ip
utilizando la soguiente cadena de conexion

DSN="DRIVER={MySQL ODBC 3.51 Driver};DESC=;DATABASE=docencia;SERVER=192.168.51.1;UID=programador1;PASSWORD=123456;PORT=;OPTION=;STMT=;"

establecemos la conexion

STORE SQLSTRINGCONNECT(DSN) TO CONEC

if conec=0 no se puedo realizar la coneccion


y luego con el uso de de disparo de comando sl accesamos en cconsulta utilizando cursores

sqlexec(conec,"select * from area where ai_area = 1 order by nomb_area ","tarea")

y si quiere insertar o modificar o eliminar usamos transacciones

= SQLSETPROP(conec, 'Transactions', 2) && Transacciones manuales.

varsql="select sgt_tabla from codigo where codi_tabla=" + str(tabla)
sqlexec(conec,varsql,"codi")
codigo=codi.sgt_tabla
if used ("codi")
use in codi
endif
VARSQL="INSERT INTO area VALUES(" + alltrim(str(codigo))+ ",'" + ALLTRIM(ME.TXTNOMB_area.TEXT) + "','" + alltrim(me.txtobse_area.text) + "',1)"


=sqlexec(CONEC,varsql)

VARSQL="UPDATE codigo SET sgt_tabla=sgt_tabla+1 WHERE codi_tabla=" + ALLTRIM(STR(TABLA))

=SQLEXEC(CONEC,VARSQL)

= SQLCOMMIT(conec) && Graba los cambios

espero q te ayude