VFP 愛用者社區

Ruey · 註冊時間: 2003-03-12 文章: 1698 來自: tunglo 第 1 樓

[精華]SPT範例
對於使用SPT的VFP User
非常具有參考價值的範例

Ruey · 發表於: 星期五六月 27, 2003 3:03 pm 文章主題:

SPT另一範例,值得收藏喔

紅狐網站
Saint實做資料庫物件導向
http://fox.hanyu.com.tw/View.aspx?fbId=7&Id=2069

Ruey · 發表於: 星期日七月 13, 2003 7:45 pm 文章主題:

SPT範例,值得參考
紅狐網站
elleryq 會員管理
http://fox.hanyu.com.tw/View.aspx?fbId=7&Id=2612

Ruey · 發表於: 星期日七月 13, 2003 8:02 pm 文章主題:

補充別人的方式
h = SQLSTRINGCONNECT('DRIVER=SQL SERVER;SERVER=.;DATABASE=tempdb;Trusted_Connection=Yes')
IF h <= 0
xMessagebox('noconnection')
RETURN
ENDIF

Text To cStmt NoShow
Select
CONVERT(INTEGER, 0) as ID,
convert(varchar(20), '') as description
EndText
sqlexec(h, cStmt, 'foo') && Using a normal cursor (Not SPT) there is no problems

CURSORSETPROP("Buffering", 3, 'foo')
INDEX ON Id TAG Id && important
CURSORSETPROP("Buffering", 5, 'foo')

SELECT foo
Append BLANK
Replace Id With -1 && important: Value must be <> 0
GO -1 && important line
replace description WITH [Assemblaggio] && important line

BEGIN TRANSACTION
** Some operations
ROLLBACK
LOCAL Aerrs[1]
ON ERROR AERROR(aErrs)
GO top
ON ERROR

IF !EMPTY(aErrs[1])
? "Catch:",TRANSFORM(aErrs[1])
? "Catch:",aErrs[2]
ELSE
? "All is OK!"
ENDIF

USE IN Foo
SQLDISCONNECT(h)