mysql con fox
Publicado por ovelit (173 intervenciones) el 16/02/2008 17:02:07
saludos amigos, estoy trabajando con una base de tado mysql local y realizo el siguiente codigo en tres botones insertar, eliminar y modificar, todo este codigo se ejecuta perfectamente. ahora mi pregunta es la siguiente para los que tienen mas experiencia con mysql.
Como hago ahora para inserta, modificar, eliminar pero a una base de dato en mysql REMOTA osea que este en otro maquina.
*********** INSERT ****************
stringlocal="driver={MySQL odbc 3.51 driver};"+;
"server=localhost;"+;
"uid=root;"+;
"pwd=1234;"+;
"database=prueba;"
lhandle=sqlstringconnect(stringlocal)
WAIT WINDOW STR(lhandle)
if lhandle>0
sqlexec(lhandle,"use prueba")
SQLEXEC(lhandle,"insert into clientes(cedula,nombre,apellido,direccion);
values('15000111','pedro','lugo','calle 5')")
ENDIF
thisform.grid1.RecordSource=SQLEXEC(lhandle,'select * from clientes')
browse
********** delete **************************
stringlocal="driver={MySQL odbc 3.51 driver};"+;
"server=localhost;"+;
"uid=root;"+;
"pwd=1234;"+;
"database=prueba;"
lhandle=sqlstringconnect(stringlocal)
WAIT WINDOW STR(lhandle)
if lhandle>0
sqlexec(lhandle,"delete from clientes where nombre='pedro'")
ENDIF
*********** UPDATE ************************
stringlocal="driver={MySQL odbc 3.51 driver};"+;
"server=localhost;"+;
"uid=root;"+;
"pwd=1234;"+;
"database=prueba;"
lhandle=sqlstringconnect(stringlocal)
WAIT WINDOW STR(lhandle)
if lhandle>0
sqlexec(lhandle,"update clientes SET nombre='pedro' where clientes.nombre='maria'")
ENDIF
Como hago ahora para inserta, modificar, eliminar pero a una base de dato en mysql REMOTA osea que este en otro maquina.
*********** INSERT ****************
stringlocal="driver={MySQL odbc 3.51 driver};"+;
"server=localhost;"+;
"uid=root;"+;
"pwd=1234;"+;
"database=prueba;"
lhandle=sqlstringconnect(stringlocal)
WAIT WINDOW STR(lhandle)
if lhandle>0
sqlexec(lhandle,"use prueba")
SQLEXEC(lhandle,"insert into clientes(cedula,nombre,apellido,direccion);
values('15000111','pedro','lugo','calle 5')")
ENDIF
thisform.grid1.RecordSource=SQLEXEC(lhandle,'select * from clientes')
browse
********** delete **************************
stringlocal="driver={MySQL odbc 3.51 driver};"+;
"server=localhost;"+;
"uid=root;"+;
"pwd=1234;"+;
"database=prueba;"
lhandle=sqlstringconnect(stringlocal)
WAIT WINDOW STR(lhandle)
if lhandle>0
sqlexec(lhandle,"delete from clientes where nombre='pedro'")
ENDIF
*********** UPDATE ************************
stringlocal="driver={MySQL odbc 3.51 driver};"+;
"server=localhost;"+;
"uid=root;"+;
"pwd=1234;"+;
"database=prueba;"
lhandle=sqlstringconnect(stringlocal)
WAIT WINDOW STR(lhandle)
if lhandle>0
sqlexec(lhandle,"update clientes SET nombre='pedro' where clientes.nombre='maria'")
ENDIF
Valora esta pregunta


0