| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1761 人关注过本帖
标题:为什么UPDATE没更新起,又没报错?
只看楼主 加入收藏
SingleLove
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2006-3-10
收藏
 问题点数:0 回复次数:10 
为什么UPDATE没更新起,又没报错?

integer li_return
decimal{4} ldc_concume_money
string ls_room_code,ls_check_no

ls_check_no = is_check_no
ls_room_code = trim(sle_room_code.Text)

if dw_card_consume.GetRow() = 0 then
MessageBox("出错", "当前没有客人消费信息!", Exclamation!)
Return
end if


ldc_concume_money = dw_card_consume.GetItemDecimal(dw_card_consume.GetRow(), "consume_sum")
if ldc_concume_money <= 0 then
MessageBox("提示", "消费金额必须大于零!", Exclamation!)
Return
end if

li_return = f_dw_save(dw_card_consume)
if li_return = -1 then
MessageBox("失败", "房卡消费失败!", Exclamation!)
Return
else
//更新表POS_CHECK_DETAIL的remark字段,放入房间号
update POS_CHECK_DETAIL
set remark = :ls_room_code
where check_no = :ls_check_no
using g_trans;

if g_trans.sqlcode = 0 then
Commit Using g_trans;
else
rollback using g_trans;
MessageBox("出错", "数据库更新失败!", StopSign!)
Return
end if
end if

MessageBox("成功", "房卡消费成功!")
CloseWithReturn(Parent, ldc_concume_money)

整个按钮脚本都贴出来了~为什么update就更新不起????执行也不出错,debug也找不出来 why ?????高手快来解释下!!!!!!!!!!!!!!!!!!!!!!

搜索更多相关主题的帖子: UPDATE 
2006-03-29 11:42
︷順⑦?zì繎
Rank: 1
等 级:新手上路
帖 子:255
专家分:0
注 册:2006-3-28
收藏
得分:0 
以下是引用SingleLove在2006-3-29 11:42:00的发言:

//更新表POS_CHECK_DETAIL的remark字段,放入房间号
update POS_CHECK_DETAIL
set remark = :ls_room_code
where check_no = :ls_check_no
using g_trans;

if g_trans.sqlcode = 0 then
messagebox("","") //看一下执行到这儿了没?
Commit Using g_trans;
else
rollback using g_trans;
MessageBox("出错", "数据库更新失败!", StopSign!)
Return
end if
end if

MessageBox("成功", "房卡消费成功!")
CloseWithReturn(Parent, ldc_concume_money)

汗..我还一直都用sqlca呢..你强!!!
我介绍我常用的一种方法吧.我就是判断他upata执行成功了没?
就是用messagebox("","")输出为空
来判断sqlca.sqlcode = 0 成立不?

2006-03-29 11:49
SingleLove
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2006-3-10
收藏
得分:0 
你这种方法跟我那句好象没什么区别吧,我前面就象你跟着g_trans.SQLcode = 0 后面写了MessageBox但是也没查出来问题~能报错早就报了~!

[此贴子已经被作者于2006-3-29 13:38:56编辑过]


2006-03-29 13:17
SingleLove
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2006-3-10
收藏
得分:0 

按你的方法做了弹了个空的MessageBox对话框,说明是成功了的哦。。。。。可为什么还是没更新起呢?

2006-03-29 13:47
︷順⑦?zì繎
Rank: 1
等 级:新手上路
帖 子:255
专家分:0
注 册:2006-3-28
收藏
得分:0 

执行到了messagebox()?


2006-03-29 13:50
SingleLove
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2006-3-10
收藏
得分:0 
对的执行到了~没报错~!
2006-03-29 14:05
︷順⑦?zì繎
Rank: 1
等 级:新手上路
帖 子:255
专家分:0
注 册:2006-3-28
收藏
得分:0 
我也是才学..不晓得!!

2006-03-29 14:46
SingleLove
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2006-3-10
收藏
得分:0 
..............
这个问题郁闷我好久了~找又找不到原因!!
2006-03-29 15:14
SingleLove
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2006-3-10
收藏
得分:0 

为何PB论坛这么冷清哦~~没几个高手在!

2006-03-30 17:38
wqk1111
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-4-2
收藏
得分:0 
update POS_CHECK_DETAIL
set remark = :ls_room_code
where check_no = :ls_check_no
using g_trans;

你的写法没有问题!

看看 条件 "where check_no = :ls_check_no" 是不是有问题
你可以 把这个SQL单独EXEC一下,并调试一下 "ls_check_no"的取值,
2006-04-02 14:52
快速回复:为什么UPDATE没更新起,又没报错?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.030195 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved