1、打开视图获得:
create sql view myview REMOTE CONNECTION ConnectionName as select * from customer
USE myview IN 0
SELECT myview
J=AFIELDS(lcFields,'myview')
FOR I=1 TO J
MESSAGEBOX(lcFields(I,1))
ENDFOR
2、通过其他方法获得:
lnHandle=SQLSTRINGCONNECT('driver=SQL Server;server=test;uid=sa;pwd=;database=test') &&换成你的连接串
IF lnHandle>0
IF SQLEXEC(lnHandle,'select * from customer','tmpa')>0
SELECT tmpa
J=AFIELDS(lcFields,'tmpa')
FOR I=1 TO J
MESSAGEBOX(lcFields(I,1))
ENDFOR
ELSE
MESSAGEBOX('error')
ENDIF
ENDIF