利用ADO獲取DELETE 後所影響的記錄數

    ——此文章摘自《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;
    end;
    {把雙擊要刪除的記錄號添加到列表中}
    procedure TFrmOrderByDBGListDblClick(Sender: TObject);
    begin
      MemoLinesAdd(ADODataSetFieldByName(id)AsString);
    end;

From:http://tw.wingwit.com/Article/program/Delphi/201311/24960.html