VFP 愛用者社區

[jakan9]

原本是用vfp6 ,用view可更新後端mssql2000 資料庫,下tableupdate(),
要改成用VFP9用SET STEP ON ,tableupdate(),沒有error,也用強迫更新,在vfp9中就是無法將資料寫回資料庫,可是在vfp6 中就可,沒有問題

[syntech]

你可能要檢查 VFP9 與 VFP6 的設定哪裡不同吧

[Terry1211]

Help裡有介紹 TableUpdate的Error要用aerror()去抓 ~~

[jakan9]

tableupdate傳回值是.t. 沒有error,本地的local 有更新,但tableupdate ,mssql就是沒有動作,
我的程式在vfp6,執行新增,修改.刪除 ok,但用vfp 9 只可brow,不可新增,修改.刪除,我的view 的作法是

CREATE SQL VIEW "user_VIEW" ;
REMOTE CONNECT "conn_sql" ;
AS SELECT * FROM dbo.user WHERE user.userid = ?pID ORDER BY user.userid, user.compid

DBSetProp('user_VIEW', 'View', 'UpdateType', 1)
DBSetProp('user_VIEW', 'View', 'WhereType', 4)
DBSetProp('user_VIEW', 'View', 'FetchMemo', .T.)
DBSetProp('user_VIEW', 'View', 'SendUpdates', .T.)
DBSetProp('user_VIEW', 'View', 'UseMemoSize', 255)
DBSetProp('user_VIEW', 'View', 'FetchSize', 1000)
DBSetProp('user_VIEW', 'View', 'MaxRecords', -1)
DBSetProp('user_VIEW', 'View', 'Tables', 'dbo.user')
DBSetProp('user_VIEW', 'View', 'Prepared', .F.)
DBSetProp('user_VIEW', 'View', 'CompareMemo', .T.)
DBSetProp('user_VIEW', 'View', 'FetchAsNeeded', .F.)
DBSetProp('user_VIEW', 'View', 'FetchSize', 1000)
DBSetProp('user_VIEW', 'View', 'Comment', "")
DBSetProp('user_VIEW', 'View', 'BatchUpdateCount', 1)
DBSetProp('user_VIEW', 'View', 'ShareConnection', .T.)

DBSetProp('user_VIEW.userid', 'Field', 'KeyField', .T.)
DBSetProp('user_VIEW.userid', 'Field', 'Updatable', .T.)
DBSetProp('user_VIEW.userid', 'Field', 'UpdateName', 'dbo.user.userid')
DBSetProp('user_VIEW.userid', 'Field', 'DataType', "C(10)")

DBSetProp('user_VIEW.compid', 'Field', 'KeyField', .T.)
DBSetProp('user_VIEW.compid', 'Field', 'Updatable', .T.)
DBSetProp('user_VIEW.compid', 'Field', 'UpdateName', 'dbo.user.compid')
DBSetProp('user_VIEW.compid', 'Field', 'DataType', "C(1)")

在程式button click 下如下指令可是就是在tableudpate,無法更新後端

SELE user_view
REQUERY()
DELE ALL
TABLEUPDATE(1, .T.)
查vfp6與vfp9 dbsetprop用法 是一樣的

[syntech]

你可以使用 SQL Server Profiler 監視,
在 TABLEUPDATE(1, .T.) 時,是否產生正確的sql command

[jakan9]

[quote="syntech"]你可以使用 SQL Server Profiler 監視,
在 TABLEUPDATE(1, .T.) 時,是否產生正確的sql command[/quote]

我用這個方法監視做insert 的動作
在vfp9 出現
exec sp_executesql N'SELECT * FROM dbo.user WHERE user.userid = @P1 ORDER BY user.userid, user.compid', N'@P1 varchar(10)', '000000 '

exec sp_executesql N'INSERT INTO dbo.user (userid,compid) VALUES (@P1,@P2)', N'@P1 char(10),@P2 char(1)', '000000 ', 'A'

IF @@TRANCOUNT > 0 ROLLBACK TRAN


在vfp6 出現

exec sp_executesql N'SELECT * FROM dbo.user WHERE user.userid = @P1 ORDER BY user.userid, user.compid', N'@P1 varchar(10)', '000000 '

exec sp_executesql N'INSERT INTO dbo.user (userid,compid) VALUES (@P1,@P2)', N'@P1 char(10),@P2 char(1)', '000000 ', 'A'

IF @@TRANCOUNT > 0 COMMIT TRAN

終於找出不一樣的地方在最後一行,在vfp 6 出現commit 在vfp 9 出現 ROLLBACK 所以vfp 9 無法insert,可是都是一樣的指令,TABLEUPDATE(1, .T.),不知該如何

[syntech]

最後當然是因為 rollback 才會變成資料回復原狀.
問題應該是 insert 發生什麼事情,
才導致需要作 rollback

可能你需要想辦法攔截sql server 發生的錯誤

[jakan9]

實在找不出原因,改用ado 或 spt 方式來做,
因為tableupdate 不知道做了什麼,傳回.t. 值,又不能更新

[jakan9]

終於找到原因,真的很簡單,在vfp6 下tableudpate 即可,在vfp9 要在tableupdate
後,再下sqlcommit.

[goodnight]