Hoteles en Buenos Aires

(Cerrar)
CapitalFederal.com
  HOME - CAPITALFEDERAL.COM | HOME - MANUALES DE REFERENCIA

BuscarBuscar en los backups    LoginLogin del administrador 


MANUALES DE REFERENCIA  


Registra tus clasificados Gratis en BuenosAires.com
Clasificados de Automotores | Clasificados de Computadoras

MUEBLES DE OFICINA - NUEVA GUIA DE BUENOS AIRES.COM


Conexion y Actualizacion MySql
Ir a página 1, 2  Siguiente
 

   INICIO FOROS -> Todo sobre VISUAL FOX PRO en Español
Ver tema anterior :: Ver tema siguiente  
Autor Mensaje
Jorge
Invitado





MensajePublicado: Vie Jul 21, 2006 4:07 am    
Asunto: Conexion y Actualizacion MySql


TEMA CERRADO

Buenos dias a todos

Tengo instalado en mi equipo el driver ODBC MySql version 3.51

En Herramientas administrativas de WinXP --> orýgenes de datos (ODBC), tengo
creado un origen de datos de usuario con los siguientes datos:

Data Source Name: myodbc
Server: localhost
User: root
Password: root
Database: agendasql

En mysql tengo la base de datos agendasql con las tablas cliente,
telefono...

Pues bien, en el foro he encontrado el codigo para hacer la conexion con la
base de datos mysql y recoger la informacion; ahora lo que me interesa es
poder cambiar el contenido de la tabla (modificar, borrar y a¸adir
registros), y actualizarlo en mysql.

Os presento el c digo que he conseguido gracias a todos vosotros:

LOCAL lnHandle, laError, lcMsg, ln

DIMENSION laError[1]



*-- Especificar el DSN, Usuario y Contrase¸a correctos



lnHandle = SQLCONNECT('myodbc','root','root')



IF lnHandle > 0

SQLEXEC(lnHandle,'SELECT * FROM cliente','MyCursor')

IF AERROR(laError) > 0

*-- Ocurrio un error

lcMsg = ""

FOR ln = 1 TO ALEN(laError,2)

lcMsg = lcMsg + TRANSFORM(laError(1,ln)) + CHR(13)

ENDFOR



MESSAGEBOX(lcMsg, 16, "Error de ODBC")

ENDIF



SQLDISCONNECT(lnHandle)



ELSE

IF AERROR(laError) > 0

*-- Ocurrio un error

lcMsg = ""

FOR ln = 1 TO ALEN(laError,2)

lcMsg = lcMsg + TRANSFORM(laError(1,ln)) + CHR(13)

ENDFOR



MESSAGEBOX(lcMsg, 16, "Error de ODBC")

ENDIF

ENDIF



Lo hace todo perfecto. En este punto tengo en la tabla MyCursor

el contenido de la tabla cliente alojada en MySql. Ahora, ÏComo puedo
actualizar los cambios que se produzcan en la tabla cliente?



Mil gracias por vuestra ayuda.
Volver arriba
Jonathan Olivares Hernand
Invitado





MensajePublicado: Vie Jul 21, 2006 2:41 pm    
Asunto: RE: Conexion y Actualizacion MySql


TEMA CERRADO

Hola:

Tambien tengo poco de utilizar VFP con MySql peor en lo que pueda te
hecho la mano. Las siguientes sentencias muestran como Insertar, modificar
y eliminar registros de una tabla, tambien muestran como se deben pasar
los parametros, IMPORTANTE, si no utilizas variables puedes pasar los
parametros normales como en las tipicas tablas de VFP pero si utilizar
variables no debes olvidar poner en signo de interrogacion antes de la
variable. (?variable).


EJEMPLO INSERT
- SQLEXEC(lnHandle,"SELECT MAX(id) AS MAX_ID FROM clientes","cus")
- SQLEXEC(lnHandle,"INSERT INTO clientes(id,nom,apellido) ;
values(?cus.max_id + 1,'Jonathan','Olivares')")


EJEMPLO UPDATE
- vx=10
- x = 'Rene'
- y = 'Hernandez'
- SQLEXEC(lnHandle,"UPDATE clientes SET nom=?x, apellido=?y WHERE id
LIKE ?vx")


EJEMPLO DELTE
- SQLEXEC(lnHandle,"DELETE FROM clientes ;
WHERE TRIM(UCASE(nom)) like
TRIM(UCASE(?thisform.text1.Value))")



Te recomiendo muchisimo que revises el manual de referencia de MySql para
que aprendas a utilizar las sintaxis correcta de como utilizar sus
funciones y metodo la pagina es la siguiente:
http://dev.mysql.com/doc/refman/5.0/en/non-typed-operators.html
Espero te haya ayudado, hasta luego.

Att:
Jonathan Olivares


-----------------------------------------------
PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway
-----------------------------------------------
Volver arriba
Esparta Palma
Invitado





MensajePublicado: Vie Jul 21, 2006 5:09 pm    
Asunto: Re: Conexion y Actualizacion MySql


TEMA CERRADO

A continuaci n algunas guýas que te servirñn para lograr tu objetivo:

--- Crear Aplicaciones Cliente-Servidor con Visual FoxPro ---
http://www.panoramabox.com/GoPub.aspx?IdObj=2203

--- ÏUtilizar Vistas Remotas o SQL Pass Through (SPT) para
Cliente-Servidor? ---
http://www.panoramabox.com/GoPub.aspx?IdObj=2232

--- eFrontEnd, Proyecto de Ejemplo Cliente-Servidor con Visual FoxPro ---
http://www.panoramabox.com/GoPub.aspx?IdObj=2234

--- eBook Gratuito: SQL: A Practical Introduction (rese¸a y descarga) ---
http://www.panoramabox.com/GoPub.aspx?IdObj=2235

--- Consultas de mas de 256 cars. a el servidor remoto (SPT y TEXT..
ENDTEXT) ---
http://www.panoramabox.com/GoPub.aspx?IdObj=2209

--- Conectar a DBMS sin crear DSN (tùcnica DSNLess) ---
http://www.panoramabox.com/GoPub.aspx?IdObj=1205

--- Uso de AERROR() para errores ODBC ---
http://www.panoramabox.com/GoPub.aspx?IdObj=2181

Espero te sirva.

--

È, ÊÀ`ÀÊ ,ÈÈ, ÊÀ`ÀÊ ,ÈÈ, ÊÀ`ÀÊ ,ÈÈ, ÊÀ`ÀÊ

Espartaco Palma Martýnez
SysOp http://www.PortalFox.com
Mùxico D.F.
MoBlogs!
http://weblogs.golemproject.com/esparta/ <- Tech
http://www.espartha.com/blog/ <- Personal

Jorge wrote:
Cita:
Buenos dias a todos

Tengo instalado en mi equipo el driver ODBC MySql version 3.51

En Herramientas administrativas de WinXP --> orýgenes de datos (ODBC), tengo
creado un origen de datos de usuario con los siguientes datos:

Data Source Name: myodbc
Server: localhost
User: root
Password: root
Database: agendasql

En mysql tengo la base de datos agendasql con las tablas cliente,
telefono...

Pues bien, en el foro he encontrado el codigo para hacer la conexion con la
base de datos mysql y recoger la informacion; ahora lo que me interesa es
poder cambiar el contenido de la tabla (modificar, borrar y a¸adir
registros), y actualizarlo en mysql.

Os presento el c digo que he conseguido gracias a todos vosotros:

LOCAL lnHandle, laError, lcMsg, ln

DIMENSION laError[1]



*-- Especificar el DSN, Usuario y Contrase¸a correctos



lnHandle = SQLCONNECT('myodbc','root','root')



IF lnHandle > 0

SQLEXEC(lnHandle,'SELECT * FROM cliente','MyCursor')

IF AERROR(laError) > 0

*-- Ocurrio un error

lcMsg = ""

FOR ln = 1 TO ALEN(laError,2)

lcMsg = lcMsg + TRANSFORM(laError(1,ln)) + CHR(13)

ENDFOR



MESSAGEBOX(lcMsg, 16, "Error de ODBC")

ENDIF



SQLDISCONNECT(lnHandle)



ELSE

IF AERROR(laError) > 0

*-- Ocurrio un error

lcMsg = ""

FOR ln = 1 TO ALEN(laError,2)

lcMsg = lcMsg + TRANSFORM(laError(1,ln)) + CHR(13)

ENDFOR



MESSAGEBOX(lcMsg, 16, "Error de ODBC")

ENDIF

ENDIF



Lo hace todo perfecto. En este punto tengo en la tabla MyCursor

el contenido de la tabla cliente alojada en MySql. Ahora, ÏComo puedo
actualizar los cambios que se produzcan en la tabla cliente?



Mil gracias por vuestra ayuda.
Volver arriba
Mostrar mensajes de anteriores:   
Este foro está cerrado y no podés publicar, responder o editar temas   Este tema está cerrado y no podés editar mensajes o responder    INICIO FOROS -> Todo sobre VISUAL FOX PRO en Español Todas las horas son GMT - 3 Horas
Ir a página 1, 2  Siguiente
Página 1 de 2

 
Cambiar a:  
Podés publicar nuevos temas en este foro
No podés responder a temas en este foro
No podés editar tus mensajes en este foro
No podés borrar tus mensajes en este foro
No podés votar en encuestas en este foro


Powered by phpBB © 2001, 2005 phpBB Group


Todos los mensajes aquí publicados, son extraídos de la USENET