代码如下:
CREATE CURSOR prg (prg M(8,0),name C(10,0),cfm C(1,0))
INSERT INTO prg(prg,name,cfm) VALUES ("select * from authors","authors","y")
INSERT INTO prg(prg,name,cfm) VALUES ("select * from jobs","jobs","y")
CLEAR
nCon=SQLSTRINGCONNECT("driver=SQL Server;Server=.;Uid=sa;pwd=;database=pubs")
SELECT prg
SCAN FOR cfm ='y'
m.prg=ALLTRIM(prg)
m.name=ALLTRIM(name)
?m.name
?m.prg
ndd=SQLEXEC(nCon,m.prg,m.name)
ENDSCAN