請問各位大哥: 我在做csv檔案資料匯入,必須檢查是否有key值重覆的問題,我原先的方法是一筆要插入之前先把要插入的key值先做查詢,如無查詢值的話,才做insert的動作,不過這樣一來的話,資料一多就變的牛步,請問各位大哥有其他的思考邏輯可供小弟參考的嗎? 謝謝

慢在可能是你用同一個COMMAND或QUERY來存取資料庫吧！因此使得PERFORMANCE掉下來，試試看由一個QUERY負責查詢結果，由另一個COMMAND來新增資料看看！ ---------------------------------- Creation is the fundation of promotion.

与Access以及其它资料库不同, csv檔案本身并不存放Index, 所以对csv做查詢基本上是逐个比较.    如果进行大量查詢, 可以试试用Delphi的TStringList(Sorted)来提高效率.    

var
  i, j: integer;
  new_keys: TStringList;
  old_keys: TStringList;
  ......
begin
  ......
  old_keys := TStringList.Create;
  new_keys := TStringList.Create;
  ......
  // 将csv中所有的key存入old_keys
  with query do
  begin
    SQL.Add('select key from ...');
    Open;
    while not Eof do
    begin
      old_keys.Add(FieldByName('key').AsString);
      Next;
    end;
    Close;
  end;      old_keys.Sort;
  new_keys.Sorted := True;
  
  // 对old_keys做查詢, insert新的資料
  for i := 1 to ... do
    if (not old_keys.Find(待查的key, j))
    and (not new_keys.Find(待查的key, j)) then
    begin
      //做insert的動作
      .....
      //将刚刚insert的key存入new_keys, 以防止重复insert相同的key
      new_keys.Add(待查的key);
    end;
  ......
  new_keys.Free;
  old_keys.Free;

_________________________ Programming is a passion

謝謝兩位大哥回應,兩位的方法都提供了小弟不同的思考面向,不過只能一位得分,我在此向你說聲抱歉.