Inicio > Visual FoxPro > miron > MS Remote

MS Remote

Experto:
Usuario:
Fecha: 29/11/2004
Valoración: (3,00 sobre 5) Categoría: Visual FoxPro
04/08/2003
piraton, usuario preguntando en Visual FoxPro
Usuario
Alguno ha usado este tipo de Coneccion?

http://www.able-consulting.com/MDAC/ADO/Connection/MSRemote.htm

Necesito ayuda para poder hacerlo desde mi aplicacion Visual Fox...
Quiero conectarme desde mi aplicion Visual Fox local a las BD que tengo en el Servidor Web.

Mas Datos:

Estoy pagando hosting, tengo mi dominio y tengo las bases en Access subidas a mi Sitio (http:\\midominio\bd\web.mdb)

Gracias !
04/08/2003
piraton, experto respondiendo en Visual FoxPro
Experto
Provider=MS Remote;" ;
"Remote Server=http://myServerName;" ;
"Remote Provider=SQLOLEDB;" ;
"Data Source=myServerName;" ;
"Initial Catalog=myDatabaseName;" ;
"User ID=myUsername;" ;
"Password=myPassword"


wcon=sqlstringconnect(Provider)
if wconexion >=1
&& OK
else
=messagebox("Falla en Conexion",0+16+0,"Precaucion")
return
endif
wrs=sqlexec(wconexion,"select * from tabla","temporal")
if wrs>=1
sele temporal
go top
do whil !eof()
&& ..... Procesa .......
sele temporal
skip
enddo
sele temporal
use
endif
=sqldisconnect(wcon)

Saludos
05/08/2003
piraton, experto respondiendo en Visual FoxPro
Experto
Cometi algunos errores en el ejemplo anterior, aqui tienes la versión corregida, ya le probé y funciona:

Provider="MS Remote;" +;
"Remote Server=http://myServerName;" +;
"Remote Provider=SQLOLEDB;" +;
"Data Source=myServerName;" +;
"Initial Catalog=myDatabaseName;" +;
"User ID=myUsername;" +;
"Password=myPassword"


wcon=sqlstringconnect(Provider)
if wcon >=1
&& OK
else
=messagebox("Falla en Conexion",0+16+0,"Precaucion")
return
endif
wrs=sqlexec(wconexion,"select * from tabla","temporal")
if wrs>=1
sele temporal
go top
do whil !eof()
&& ..... Procesa .......
sele temporal
skip
enddo
sele temporal
use
endif
=sqldisconnect(wcon)

Saludos
05/08/2003
piraton, usuario preguntando en Visual FoxPro
Usuario
Lo probé asi, y me pide un dsn local...
No lo pude hacer funcionar...
Me prodrias pasar el código de prueba tuyo?
Aca vo como lo hice Yo, a ver si descubris en que fallé..


Provider="MS Remote;" +;
"Remote Server=http://www.midominio.com;" +;
"Remote Provider=SQLOLEDB;" +;
"Data Source=www.midominio.com;" +;
"Initial Catalog=mibaseweb.mdb;" +;
"User ID=miusuario;" +;
"Password=miclave"


wcon=sqlstringconnect(Provider)
if wcon >=1
=messagebox("Conexion Ok") &&Ok
else
=messagebox("Falla en Conexion",0+16+0,"Precaucion")
return
endif

wrs=sqlexec(wcon,"select * from mitablaweb","temporal")
if wrs>=1
sele temporal
go top
brow

do whil !eof()
&& ..... Procesa .......
sele temporal
skip
enddo
sele temporal
use
endif
=sqldisconnect(wcon)
06/08/2003
piraton, experto respondiendo en Visual FoxPro
Experto
Yo si tengo un DSN que apunta a la base de datos que tengo en el servidor.
29/11/2004
piraton, usuario preguntando en Visual FoxPro
Usuario
Bien. Una respuesta aceptable.
Enlaces patrocinados