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