754
社区成员
发帖
与我相关
我的任务
分享数据库插入问题
我想在插入数据库表之前对xsfano字段的记录进行判断，如有与ya值相同的记录则不插入。
string ya,is_04,is_03
ya=billl
is_04=dw_1.getsqlselect()
is_03=is_04+"where"+"("+"xsfano"+"="+"'"+"ya"+"'"+")"
if dw_1.setsqlselect(is_03)=-1 then
insert into YFbill
(xsfano,xsdate,xscustname,xsqy,xskpr,xscpno,xscpname)
VALUES(:billl,:dateno,:billno,:custname,:makebill,:poudtno,:poud);
messagebox('提示','单据保存成功',question!,ok!)
else
messagebox("提示","单据号已经存在，不能保存")
end if
dw_1.settransobject(sqlca);
dw_1.retrieve();
不知错在哪，哪位高手还有别的办法吗？谢谢！！！
string ya,is_04,is_03
ya=billl
is_04=dw_1.getsqlselect()
is_03=is_04+"where"+"("+"xsfano"+"="+"'"+"ya"+"'"+")"
if dw_1.setsqlselect(is_03)=-1 then
insert into YFbill
(xsfano,xsdate,xscustname,xsqy,xskpr,xscpno,xscpname)
VALUES(:billl,:dateno,:billno,:custname,:makebill,:poudtno,:poud);
messagebox('提示','单据保存成功',question!,ok!)
else
messagebox("提示","单据号已经存在，不能保存")
end if
dw_1.settransobject(sqlca);
dw_1.retrieve();
不知错在哪，哪位高手还有别的办法吗？谢谢！！！
...全文
请发表友善的回复…
发表回复
klbt 2003-10-07
- 打赏
- 举报
出现的错误现象是什么？
eminena 2003-10-07
- 打赏
- 举报
用:
is_03=is_04+" where (xsfano='"+ya+"')"
is_03=is_04+" where (xsfano='"+ya+"')"
eminena 2003-10-07
- 打赏
- 举报
首先看一下: dw_1.getsqlselect() 的内容!
delphan2008 2003-10-07
- 打赏
- 举报
原则上将，应该先提取对应字段的值，比较相等与否，是，则加入；否则，提示记录存在。
athere_08 2003-10-07
- 打赏
- 举报
如有与ya值相同的记录则不插入。
用ls_str=getitemstring(,,)
if ls_str ='' then
else
end if
你的方法就不对吧。
用ls_str=getitemstring(,,)
if ls_str ='' then
else
end if
你的方法就不对吧。
佣工7001 2003-10-07
- 打赏
- 举报
setsqlselect(）之后，没有retrieve()怎知道，有没有重复呢？
