Clientdataset数据保存到数据库问题
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这个控件所以,,,