通过SQLDataSet建表

Question

怎么通过SQLDataSet、
        DataSource、
        ClientDataSet
       DataSetProvider、
       SQLConnection
这些控件，用代码实现创建一个数据表，插入列，更新数据等操作。

Answer 1

procedure TDMMain.BuildDataSet(Acds: TClientDataSet);
  procedure _AddFieldDef(AName: String; ADataType: TFieldType; ASize: Integer=0);
  begin
    with Acds.FieldDefs.AddFieldDef do
    begin
      Name     := AName;
      DataType := ADataType;
      Size     := ASize;
    end;
  end;
begin
  with Acds do
  begin
    if Active then
    begin
      EmptyDataset;
      Active:=false;
    end;
    FieldDefs.Clear;
    _AddFieldDef('ID',ftInteger);
    _AddFieldDef('name',ftString,64);
    _AddFieldDef('Type',ftString,64);
    _AddFieldDef('Authority',ftInteger);    CreateDataSet;
    LogChanges := False;
    
    if not qTemp.Active then qTemp.Open;
    qTemp.First;
    while not qTemp.EOF do
    begin
      Append;
      Fields[0].Value := qTemp.FieldValues['ID'];
      Fields[1].Value := qTemp.FieldValues['name'];
      Fields[2].Value := qTemp.FieldValues['Type'];
      Fields[3].Value := qTemp.FieldValues['Authority'];
      Post;
      qTemp.Next;
    end;
  end;end;

Answer 2

你操作的应该是ClientDataSet，SQLDataSet只是负责提交ClientDataSet的数据处理请求