test.prg

来自「VFP 在SQL 2000中的应用」· PRG 代码 · 共 17 行

PUBLIC lnHandle
lnHandle = SQLSTRINGCONNECT("driver=SQL server;SERVER=127.0.0.1;UID=SA;Pwd=;database=mcs")
*lnHandle=SQLConnect("mcs","sa","")
RQ='2008-08-20'
If lnHandle>0 &&连接成功
     = SQLSETPROP(lnHandle, 'Transactions',2)  
    lnReturn=SQLExec(lnHandle,"SELECT clei AS 洗车卡类别, SUM(cmoney) AS 消费金额合计 FROM cardmoney WHERE (cdate >= ?RQ) GROUP BY clei ","TmpEmp")
  If lnReturn>0 &&运行成功
   COPY TO xck
      EndIf
Else &&连接失败
  MessageBox("连接SERVER失败")
EndIf