📄 test.prg
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -