表操作：

对于同一表的的操作；如下：  
  id       name         id2  
  1           a             1  
  1           b             1  
  1           c             1  
  我要添加数据  
  id       name         id2  
  1           a             2  
  1           b             2  
  1           c             2  
  然后保存。  
  求快速的方法：  
   
  问题点数：0、回复次数：4Top

1 楼huyongxiao（）回复于 2005-03-02 13:54:02 得分 0

直接用SQL   insert语句好了Top

2 楼zhangzefeng0816（）回复于 2005-03-02 13:55:45 得分 0

你是说先查出记录然后循环insert   这样太慢了。特别是数据量大时！Top

3 楼qiuzhijun（軍）回复于 2005-03-02 14:39:55 得分 0

ADOQuery1.SQL.Add('select   *   from   表");  
  data1.ADOQuery.Open;  
  for   I:=0   to   ADOQuery1..RecordCount-1     do  
    begin  
      ADOQuery2.Clear;  
      ADOQuery2.SQL.Add("insert   into     表   (ID1,name,id2)   values   (ADOQuery1.FieldByName   ('ID1'),'''+ADOQuery1.FieldByName('ID1')+''',2)   ");  
      ADOQuery2.Execsql  
      ADOQuery1.Next;  
  end;Top

4 楼StyxExtraditer（周超）回复于 2005-03-02 15:24:16 得分 0

现在怎么都流行用ADO啊！！  
  呵呵！！  
  clientdataset.close;  
  clientdataset.commandtext:='insert   into     表   (ID1,name,id2)   values'+        
                                                  (clientdataset2.FieldByName('ID1')+    
                                                  ','''+clientdataset2.FieldByName('ID1')+')''';  
  clientdataset.open;Top

相关问题

• adoquery
• clientdataset
• fieldbyname
• insert

• 帖主：zhangzefeng0816

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