Delphi使用ADODataSet如何能够清空Access数据库，急

用delete可以删除一条，可是连续删除就出错。使用用  
  AdODataSet1.Recordset   :=   ADOCommand.Excute   ；  
  AdoDataSEt1.DeleteRecords;  
  时说数据库不能够多选什么的.  
  请教如何删除、清空。最好有源码，还有Recordset，DeleteRecords是怎么用的。 问题点数：40、回复次数：8Top

1 楼luoweicaisd（笑三少）回复于 2002-08-02 09:31:47 得分 0

与其这样用，还不如直接用adoquery好.改用adoquery吧。Top

2 楼SherlockMei（有风）回复于 2002-08-02 09:37:03 得分 0

那用adoquery怎样删除呢？一样有recoredset的问题Top

3 楼li_zhifu（东北人）回复于 2002-08-02 09:38:14 得分 0

用SQL语句  
  Delete   *   From   TableTop

4 楼s_cube（竹子）回复于 2002-08-02 09:40:55 得分 0

用     Delete   *   From   Table  
   
  执行用   ExecSQL  
  Top

5 楼leo555（狮子555）回复于 2002-08-02 11:06:29 得分 0

delete   from   tableTop

6 楼h_huajun（阿华）回复于 2002-08-02 13:36:44 得分 20

procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
          I:Integer;  
  begin  
          with   ADODataSet1   do  
          begin  
                    Close;  
                    CommandText:='Select   *   From   tabDept';  
                    Open;  
                    if   RecordCount>0   then  
                    for   I:=0   to   RecordCount-1   do  
                    begin  
                            Delete;  
                            Next;  
                    end;  
          end;  
  end;Top

7 楼h_huajun（阿华）回复于 2002-08-02 13:37:41 得分 20

上面代码已经测试过，绝对可以Top

8 楼qqcxg（爱谁谁）回复于 2002-08-02 14:23:22 得分 0

把楼上的代码调整了一下，这样应该更好一些吧！  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
          with   ADODataSet1   do  
          begin  
                    Close;  
                    CommandText:='Select   *   From   tabDept';  
                    Open;  
    while   not   EOF   do  
    begin  
                            Delete;  
                            Next;  
                    end;  
          end;  
  end;Top

相关问题

• adodataset
• 删除
• adoquery
• delete
• do begin

• 帖主：SherlockMei
• h_huajun
• h_huajun

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载