如何使用visual foxpro连接SQL SERVER?

Question

visual foxpro不能直接连接SQL SERVER。

Answer 1

下例为连接到数据库的t1表，并在客户端返回数据集tmpPUBLIC gnHandle
gnHandle=SQLSTRINGCONNECT("driver=SQL Server;Server=servername;Uid=username;pwd=password;database=databasename") 
If gnHandle>0                   &&连接成功   
   sqlexec(gnHandle,"Select * from t1 ","tmp") 
Else                            &&连接失败
   MessageBox("连接 SQL SERVER 失败",16,"连接失败")
EndIf