Question

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

注意 不是在checklistbox中插入删除 是改变数据库内容 从而改变checklistbox内容

Answer 1

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;

Answer 2

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;

Answer 3

基本没明白你说的啥意思
改变数据库内容 从而改变checklistbox内容 那重新加载数据不就行了

追问

就是选中checklistbox1里面的项，把它删除，并把删掉的项显示在checklistbox2中 这个删除不仅仅是在checklistbox里消失，同时数据库里也要改变 这样问题明白了吗