利用ADO获取DELETE 后所影响的记录数

发布日期：2024/6/29

——此文章摘自《Delphi开发经验技巧宝典》定价￥特价￥购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

本例实现的是双击要删除的记录添加到列表中单击删除列表中的记录按钮遍历删除列表中的全部记录通过@@rowcount全局变量返回DELETE 后所影响的记录数并显示在对话框上如图所示

http://developcsaicn/delphi/images/jpg>

图利用ADO获取DELETE 后所影响的记录数

主要代码如下

{遍历删除列表中的数据}

procedure TFrmOrderByBtnOrderClick(Sender: TObject);

var

SQLStr: String;

i: integer;

begin

if MemoLinesCount = then

exit;

SQLStr := DELETE FROM TB_Worker where id in(;

for i := to MemoLinesCount do

begin

SQLStr := SQLStr + MemoLines[i] + ;

end;

if Pos( SQLStr) > then

SQLStr := Copy(SQLStr Length(SQLStr) ) + ) ;

SQLStr := SQLStr + select @@rowcount;

with AQuery do

begin

Close;

SQLClear;

SQLAdd(SQLStr);

Open;

ADODataSetRequery();

MemoLinesClear;

ShowMessage(删除 + Fields[]AsString + 条记录);

end;

{把双击要删除的记录号添加到列表中}

procedure TFrmOrderByDBGListDblClick(Sender: TObject);

begin

MemoLinesAdd(ADODataSetFieldByName(id)AsString);

end;