excel导入到sql server 数据如何筛选判断啊

Question

 For i:=2 to row do
      begin
        query1.Append;
        For j:=1 to col do
            if j <=query1.FieldCount  then
               begin
                            if  query1.FieldByName('keyval').AsString<>worksheet.cells[i,2].value
                            then
                            begin
           query1.FieldByName('datatype').AsInteger :=strtoint(worksheet.cells[i,1].value);
           query1.Fields[j-1].Value:=worksheet.cells[i,j].value;
                  query1.post;
                              end
                              else
                              begin
                              showmessage('有重复准考证号')  ;
                              break   ;
                              end;
                  end;      end;这断代码该怎么改啊，把keyval相同的数据过滤掉，不导入

Answer 1

好像你是代码已经过滤了啊if  query1.FieldByName('keyval').AsString <>worksheet.cells[i,2].value 

Answer 2

把数据库中表的这个字段keyval设置成唯一键，这样有重复自动进行约束检查。

Answer 3

是有点问题，问一下楼下，你是想只要有一个有重复准考证号的就不导了呢，还是继续下一条，我理解应该是继续下一条吧,不知道你的 EXCEL的格式是什么样子的格式
  For i:=2 to row do
  begin
    For j:=1 to col do
    if j <=query1.FieldCount  then
    begin
      if  query1.FieldByName('keyval').AsString <>worksheet.cells[i,2].value then
      begin
        query1.Append;
        query1.FieldByName('datatype').AsInteger :=strtoint(worksheet.cells[i,1].value);
        query1.Fields[j-1].Value:=worksheet.cells[i,j].value;
        query1.post;
      end else
      begin
        showmessage('有重复准考证号')  ;
        break  ;//这里是不是应该是continue继续循环
      end;
    end;
  end;

Answer 4

  For i:=2 to row do
       begin
      if   not  query1.eof  then
      begin         if  query1.FieldByName('keyval').AsString<>worksheet.cells[i,2].value  then
      begin
           query1.Append;
       query1.FieldByName('datatype').AsInteger :=strtoint(worksheet.cells[i,1].value);
        For j:=2 to col do
  if j <=query1.FieldCount  then
 query1.Fields[j-1].Value:=worksheet.cells[i,j].value;         query1.post   ;
       end
      else
           begin
           showmessage('有重复数据') ;
           continue ;
           end;
           query1.Next  ;
         end;
     end;
这个代码
如果碰到一条无重复的数据，在有重复的数据，再无重复的数据（第三条）就导不进了
还有什么地方有语法错误啊