万分火急，在线等待，高手请进

Question

一个表中有三个字段，一个是company,字符型的，一个是num,double型的，一个是日期型的dt，现在我从Excel表中读出三个值，ExcelID.cells[2,1].value（对应company），ExcelID.cells[2,2].value ，对应num，ExcelID.cells[2,3].value，（对应dt），如何把这三个值存到表中，
query1.close; 
query1.sql.clear;
query1.sql.add('insert into tablename (company, num, dt) values(怎么写？)');
query1.execsql;

Answer 1

参考下面：n=Query1.recordcount;
   
 For I:=1 to n do
    begin
      Append;
      fieldByName('company').AsString:=ExcelID.cells[2,1].value[I-1];
      fieldByName('num').AsString:=ExcelID.cells[2,2].value [I-1];
      fieldByName('dt').AsString:=ExcelID.cells[2,3].value[I-1];
      post;
    end;  end;

Answer 2

query1.sql.add('insert into tablename (company, num, dt) values(') +
query1.sql.add(QutedStr(ExcelID.cells[2,1].value) + ',' 
   + ExcelID.cells[2,2].value + ',' 
   + QutedStr(ExcelID.cells[2,3].value)
   + ')');