yangqb 发表于 2007-6-29 04:49

ASA数据库数据保存成功后又丢失

    我使用ASA8.0，pb6.5，当在数据窗口中更新数据成功，查询已显示是更新后的数据，但过一会后数据又返回到更新前的状态，是什么造成的啊，恳求高手帮助。<BR>   语句如下：<BR>long li<BR>li=messagebox("","是否提交数据?",exclamation!,YesNoCancel!)<BR>if li=1 and dw_1.update() =1 then<BR>    messagebox("提交","提交成功")<BR>    commit;<BR>else<BR>    messagebox("提交","提交失败")<BR>    rollback;<BR>end if

路過 发表于 2007-6-29 08:03


<P>long ll_mod,ll_del,ll_total</P>
<P>// 將未寫入Buffer的資料寫入<BR>IF This.AcceptText() = 1 THEN<BR>    // 計算修改和刪除的筆數<BR>    ll_mod = This.ModifiedCount( )<BR>    ll_del = This.DeletedCount( )<BR>    ll_total = ll_mod + ll_del<BR>    // 檢查資料是否有異動,判斷是否存檔成功<BR>    IF ll_total &gt;= 1 AND This.Update(TRUE, FALSE) &gt; 0 THEN    <BR>        COMMIT USING SQLCA;<BR>        This.ResetUpdate()        <BR>        This.Object.DataWindow.ReadOnly="Yes"<BR>        //**** 存檔成功 (ib_save=True)  ****//<BR>        ib_save = true<BR>    ELSE        <BR>        ROLLBACK USING SQLCA;<BR>        //**** 存檔失敗 (ib_save=False) ****//<BR>        ib_save = false <BR>        MessageBox("存檔失敗!!", "存檔失敗 , 請重新確認資料是否有更新!",StopSign!)<BR>    END IF<BR>    <BR>//***2000/03/15加上，因為accepttext()傳回值不為1,造成存檔時失敗時,menu仍會改變***<BR>ELSE<BR>    //**** 存檔失敗 (ib_save=False) ****//<BR>    ib_save = false <BR>    MessageBox("存檔失敗!!", "存檔失敗 , 請重新確認資料是否有更新!",StopSign!)<BR>END IF</P>

sam2080 发表于 2007-6-29 12:22

If dw_1.modifiedcount() + dw_1.deletedcount() &gt; 0 Then<BR>    If messagebox("系统提示","是否提交数据?",Question!,YesNoCancel!) = 1 Then<BR>        If dw_1.update() = 1 then<BR>            commit;<BR>            messagebox("提交","提交成功")<BR>        else<BR>            rollback;<BR>            messagebox("提交","提交失败")<BR>        End If<BR>    Else<BR>        ......<BR>    end if<BR>End If

赖蛤蟆 发表于 2007-6-29 15:25

[em17]

yangqb 发表于 2007-6-30 23:27

多谢各位高手大哥！

页: [1]

编程论坛