pb删除数据库记录代码的问题

发布时间:2024-11-30 16:35

对于U盘,可以直接使用内置的文件历史记录功能恢复删除的数据。 #生活技巧# #数码产品使用技巧# #数据恢复工具使用#

我想做个删除的功能,首先查询出数据库中的一条记录,然后删除

这是主窗口的代码
String xsb
declare cursor1 cursor for select 名称 from bmjj;
//定义一个游标名称为CURSOR1
Open cursor1;
Fetch cursor1 into :xsb;
Do while sqlca.sqlcode=0
ddlb_1.Additem(xsb)
Fetch cursor1 into:xsb;
Loop
Close cursor1;
cb_5.enabled=false
sle_6.displayonly=true
sle_7.displayonly=true
sle_8.displayonly=true
sle_9.displayonly=true
sle_10.displayonly=true

这是查询控件的事件代码
String xsb
declare cursor1 cursor for select 名称 from bmjj;
//定义一个游标名称为CURSOR1
Open cursor1;
Fetch cursor1 into :xsb;
Do while sqlca.sqlcode=0
ddlb_1.Additem(xsb)
Fetch cursor1 into:xsb;
Loop
Close cursor1;
cb_5.enabled=false
sle_6.displayonly=true
sle_7.displayonly=true
sle_8.displayonly=true
sle_9.displayonly=true
sle_10.displayonly=true

这是删除控件的事件代码
String xm,name,xsb
name=Trim(ddlb_1.text)
delete from bmjj where 名称=:name;
select 名称 into:name from bmjj where 名称=:name;
if xm<>"" then
MessageBox("提示","删除失败")
Else
MessageBox("提示","删除成功!")
sle_6.text=""
sle_7.text=""
sle_8.text=""
sle_9.text=""
sle_10.text=""
cb_5.enabled=false
ddlb_1.Reset()
declare cursor1 cursor for select distinct 名称 from bmjj;
//定义一个游标名称为CURSOR1
Open cursor1;
Fetch cursor1 into :xsb;
Do while sqlca.sqlcode=0
ddlb_1.Additem(xsb)
Fetch cursor1 into:xsb;
Loop
Close cursor1;
End if

现在ddlb_1里有内容,我可以找到数据库中相应的东西,但是一点查询,其他的东西查不出来,所以也删除不了,这些代码有什么问题吗??

网址:pb删除数据库记录代码的问题 https://www.yuejiaxmz.com/news/view/325737

相关内容

问题记录
Oracle数据库数据安全面面观
MySQL 快速删除大量数据(千万级别)的几种实践方案——附源码
Oracle 大表数据删除/清理方法小结
如何在生产环境mysql删除亿万级数据解并且不影响数据库主从延迟的解决方案
SQL Server大表如何快速删除数据
旧手机转手,怎么彻底删除数据?
达梦数据库
旧手机转手,如何彻底删除手机数据?
Excel批量删除行技巧:快速清理数据的四种方法

随便看看