熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

保存數據當ADO循環刪除數據時需要注意的問題

2013-11-23 17:42:57  來源: Delphi編程 
    ——此文章摘自《Delphi開發經驗技巧寶典》定價 特價 購買>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

    使用賦值方式保存數據

    本例通過ADO賦值方式把員工的信息存入到數據庫中主要代碼如下
    procedure TFrmTransBtnSaveClick(Sender: TObject);
    begin
      with ADODataSet do
      begin
       FieldByName(Number)AsString := Trim(EDNumberText);
       FieldByName(Name)AsString := Trim(EDNameText);
       FieldByName(Old)AsInteger := StrToIntDef(Trim(EdOldText) );
       if CBxSexText = then
        FieldByName(Sex)AsInteger :=
       else
        FieldByName(Sex)AsInteger := ;
        FieldByName(TelePhone)AsString := Trim(EdTelePhoneText);
        FieldByName(DepartMent)AsString := Trim(CBXdePartMentText);
        FieldByName(JoinDate)AsDateTime := DTPJoinDateDate;
        Post;
      end;
      ADODataSetRequery();
      GBxListEnabled := False;
      BtnSaveEnabled := False;
      BtnNewEnabled := True;
      ShowMessage(數據保存成功);
    end;

    當ADO循環刪除數據時需要注意的問題

    當使用ADO循環刪除數據時在循環中不要使用ADONext方法因為在ADOdelete刪除數據後光標自動移動到下一行如果使用ADONext方法光標將繼續向下移動這樣會出現隔行刪除的情況代碼如下
    while not ADODataSetEOF do
    begin
      ADODataSetDelete;
      //ADODataSetNext;   記錄集不手動向下移動
    end;


From:http://tw.wingwit.com/Article/program/Delphi/201311/24943.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.