Clientdataset数据保存到数据库问题

Question

procedure TForm1.Button2Click(Sender: TObject);
begin
   DataSetProvider1.DataSet :=self.ADOQuery1 ;
   ClientDataSet1.ProviderName :='DataSetProvider1';
   DBgrid1.DataSource := DataSource1;
   DataSource1.DataSet :=Clientdataset1;
   Adoquery1.Active :=True; 
   with Clientdataset1 do
     Begin
   with FieldDefs.AddFieldDef do
    begin
      DataType:= ftString;
      Name:= 'col1';
       Size:= 100;
    end;
    CreateDataSet;
     while not AdoQuery1.Eof do  //这里要获取数据，以便DBGRID里面有不止一行数据
      Begin
        append;
        Fieldbyname('col1').AsString :=AdoQuery1.fieldbyname('******').AsString ;
        post;
        AdoQuery1.Next ;
      end;
    End;
end;
首先要创建一个表
Create table table_
(coll varchar(100)
)
问题：在那里保存可以一次保存数据到数据库表-请高手赐教，最好以代码形式，本人刚学习Clientdateset这个控件所以，，，

Answer 1

Clientdateset1.ApplyUpdates(-1);
即可