您的位置:程序门 -> delphi -> 数据库相关



如何在删除listbox中item的同时删除数据库中的对应数据?


[收藏此页] [打印本页]选择字色:背景色:字体:[][][]


如何在删除listbox中item的同时删除数据库中的对应数据?
发表于:2007-05-24 16:11:47 楼主
listbox1   ,mulitselsct设置为true;

点击删除的时候

listbox1.deleteselected;
            with   adoquery1   do
    begin
            close;
            sql.clear;
            sql.add( 'delete   from   notices(content)   where   这里应该什么写 ');
            EXECsql;
    end
===================================================
或者哪位高手告诉我更好的写法     谢谢
发表于:2007-05-24 16:19:541楼 得分:0
sql.add( 'delete   from   notices(content)   where   treename= '+listbox1.deleteselected.text);
发表于:2007-05-24 21:59:202楼 得分:0
楼上的   这样不行啊!
发表于:2007-05-25 09:01:223楼 得分:0
你的表主键是什么?
发表于:2007-05-25 12:46:094楼 得分:0
问题已经解决!!!
procedure   tmain_1.button20click(sender:   tobject);
var   str:string;   i:integer;
begin
    for   i:=0   to   listbox1.count-1   do
    begin
        if   listbox1.selected[i]   then
        begin
      with   adoquery1   do
    begin
        close;
        sql.clear;
        str:= 'delete   from   notices   where   content= ' ' '+
            listbox1.items[i]+ ' ' ' ';
        showmessage(str);
        sql.add(str);
        EXECsql;
    end;
        end;
    end;
    listbox1.deleteselected;


快速检索

最新资讯
热门点击