delphi checklistbox中选中的项 怎么插入或删除到数据库

注意不是在checklistbox中插入删除是改变数据库内容从而改变checklistbox内容... 注意 不是在checklistbox中插入删除 是改变数据库内容 从而改变checklistbox内容 展开
 我来答
bfmabc123
推荐于2016-08-03 · 超过46用户采纳过TA的回答
知道小有建树答主
回答量:70
采纳率:0%
帮助的人:75.8万
展开全部
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
begin
for i := CheckListBox1.Items.Count - 1 downto 0 do
begin
if CheckListBox1.Checked[i] then
begin
CheckListBox2.Items.Add(CheckListBox1.Items[i]);
CheckListBox1.Items.Delete(i);
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('删除语句');
ExecSQL;
end;
end;
end;
end;
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
改润0iT58e
2013-11-19 · TA获得超过721个赞
知道小有建树答主
回答量:823
采纳率:80%
帮助的人:530万
展开全部
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
begin
for i := CheckListBox1.Items.Count - 1 downto 0 do
begin
if CheckListBox1.Checked[i] then
begin
CheckListBox2.Items.Add(CheckListBox1.Items[i]);
CheckListBox1.Items.Delete(i);
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('删除语句');
ExecSQL;
end;
end;
end;
end;
追问
我就是这么写的   写到SQL语句时卡住了   那个语句不会写  删除添加都需要   谢谢
追答
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('delete from [表] where [字段] = '''+CheckListBox1.Items[i]+''' ');
ExecSQL;
end;

with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('insert into [表] values ([参数1], [参数2], '''+CheckListBox1.Items[i]+''') ');
ExecSQL;
end;
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友0c098a9b0
2013-11-19 · TA获得超过167个赞
知道小有建树答主
回答量:483
采纳率:0%
帮助的人:319万
展开全部
基本没明白你说的啥意思
改变数据库内容 从而改变checklistbox内容 那重新加载数据不就行了
追问
就是选中checklistbox1里面的项,把它删除,并把删掉的项显示在checklistbox2中   这个删除不仅仅是在checklistbox里消失,同时数据库里也要改变   这样问题明白了吗
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式