▲▲▲▲有没有这样的控件？？？▲▲▲▲

Question

想将ClientDataSet1中的数据一条条的导入到一个数据库的表中，它们的结构相同，请问如何导最简单，有没有这样的控件？？？
谢谢！！~

Answer 1

写SQL语句不就可以啦！
何必那么辛苦？

Answer 2

一定要一条一条的导吗？如果一条一条的导的话，好实现var
  vIndex : Integer;
  vStr , vFieldName,vFieldValue : String;
begin
  ...
  ///vStr := 
  with TADOQuery(DataSet) do
  begin
    for vIndex := 0 to CDS.Fiels.Count - 1 do
      if vIndex = 0 then
      begin
        vFieldName := vFieldName + CDS.Fields[vIndex].FieldName ;
        if vFields[vIndex].DataType = dtString then
           vFieldValue := vFieldValue + '''' + CDS.Fields[vIndex].AsString + '''' else
           vFieldValue := vFieldValue + CDS.Fields[vIndex].AsString;
      end else
      begin
        vFieldName := vFieldName + CDS.Fields[vIndex].FieldName ;
        if vFields[vIndex].DataType = dtString then
           vFieldValue := vFieldValue + ',''' + CDS.Fields[vIndex].AsString + '''' else
           vFieldValue := vFieldValue + ',' + CDS.Fields[vIndex].AsString; 
      end;
      vStr :=  'Insert into TableName(' + vFieldName + ') Values(' + vFieldValue + ')';
    SQL.Add(vStr);
    ExecSQL;
  end;
end;你也可以进行批量导入，很简单
CDS映射成文本数据库
然而
  Select * From TableName where Insert into TableNameFor_CDSTableName where 1=1_____________________________________________________________________暮春三月,羊欢草长,天寒地冻,问谁饲狼?人心怜羊,狼心独怆,天心难测,世情如
霜……

Answer 3

代码没有在Delphi下试过，但应该不会出错；你可调试的 :-)_____________________________________________________________________暮春三月,羊欢草长,天寒地冻,问谁饲狼?人心怜羊,狼心独怆,天心难测,世情如
霜……