listbox1 ,mulitselsct设置为true;点击删除的时候ListBox1.DeleteSelected;
with adoquery1 do
begin
close;
sql.clear;
sql.add('delete from notices(content) where 这里应该什么写');
execsql;
end
===================================================
或者哪位高手告诉我更好的写法 谢谢
with adoquery1 do
begin
close;
sql.clear;
sql.add('delete from notices(content) where 这里应该什么写');
execsql;
end
===================================================
或者哪位高手告诉我更好的写法 谢谢
解决方案 »
- ADOQuery
- 在人事系统中,如何做合同期到期的提醒功能(如本月合同到期的人数、今天合同到期的人数)?
- 帮忙解决一下SQLSERVER2000里image字段如何存放图片
- MRP II程序设计意见征评(全部分数)
- 如何在mdi父窗体中创建不带边框的子窗体?
- 向数据库添加记录成功但delphi7会报错,怎么回事啊
- 有谁知道如何解除 程序员管理器v1.03 对电脑的限制?
- 如何格式化出补零的字符串?
- 关于Resource等API函数的问题
- 请问:adoquery不支持@@identity操作吗?
- 怎样下载象http://www.abc.cn/down.asp?name=computer.doc这样的文件,delphi代码怎样写.
- delphi6+sqlserver2000 数据库阻塞问题!
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;