FoxPro/Visual FoxPro - conectarse a sql

Hola a todos
Pueden indicarme con un ejemplo como conectarme a una tabla que esta dentro de una base de datos en sql server o enviarme alguna pag con esa informacion.
Saludos
Pablo

Hola, mira asi haces conexiones con SQL

oconexion = Createobject("adodb.connection")

With oconexion
.provider = "SQLOLEDB"
xconecstring = 'data source= "&tablas";' + ; --> ubicacion fisica de las tablas
'initial catalog = "&basededatos";' +; ---> Variable con nombre de base de datos
'user id='+'sa'+';' + ;
'password='+'1234' --> password de el usuario "sa" en SQL
.connectionstring = xconecstring
.Open
ENDWITH

y asi haces con tablas para crear la conexion:

ors_cvariables = Createobject("adodb.recordset")

With ors_cvariables
.Source = "select * from cvariables"
.ActiveConnection = oconexion
.CursorLocation = 3
.LockType = 4
.Open
Endwith

y para leer la tabla anterior:

If ors_cvariables.recordcount > 0
ors_cvariables.movefirst
vnsistema = ors_cvariables.Fields('vsistema').Value
vnCicloAgricola=ors_cvariables.Fields('CicloAgricola').Value+' '
vniniciosemanas=ors_cvariables.Fields('iniciosemana').Value
vnbono=ors_cvariables.Fields('bono').Value
vnRenglon=ors_cvariables.fields('RenglonFactura').Value
vnretiva=ors_cvariables.fields('retiva').Value
endif
cierras tablas:
ors_cvariables.Close

Cierras conexion:
oconexion.close

Espero te sirva, saludos...

Gracias Jorge
Voy a probarla
Saludos
Pablo

Hola amigo creo que de esta manera se te sera mas facil tu coneccion solo tendras que cambiar el draiver de coneccion por que el ejemplo que te estoy mandando es par MYSQL solo cambia e nombre del draiver o proveedor por el de SQLSERVER creo que este se llama (SQLOLEDB) despues el resto es lo mismo

cCadena = "Driver=MySQL Connector/ODBC v5;Server=localhost;Port=3306;Option=131072;Stmt=;Database=test;Uid=root;Pwd=chalie;"

WAIT WINDOW 'Conectando a la Base de Datos Remota... Espere!' Nowait

nhandle = SQLSTRINGCONNECT(cCadena,.t.)

IF nhandle < 0

? 'Imposible Conectarse'

RETURN

ELSE

? 'OK'

ENDIF

... suerte

Asi es mas sencillo no ??

SQLCONNECT(.T.)

o

SQLCONNECT( myConnectionName, .T. )

o

SQLCONNECT( myDataSourceName, myUserID, myPassword, .T. )

Suerte