delphi checklistbox中选中的项 怎么插入或删除到数据库
注意不是在checklistbox中插入删除是改变数据库内容从而改变checklistbox内容...
注意 不是在checklistbox中插入删除 是改变数据库内容 从而改变checklistbox内容
展开
3个回答
展开全部
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;
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;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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;
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;
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
基本没明白你说的啥意思
改变数据库内容 从而改变checklistbox内容 那重新加载数据不就行了
改变数据库内容 从而改变checklistbox内容 那重新加载数据不就行了
追问
就是选中checklistbox1里面的项,把它删除,并把删掉的项显示在checklistbox2中 这个删除不仅仅是在checklistbox里消失,同时数据库里也要改变 这样问题明白了吗
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询