各位前輩：     我有兩個資料表： A資料表 編號 字 1    的 2    是 3    不    B資料表 詞碼  詞條  首字字碼 1     我們    2     的確     1    我想做的是，查出B.詞條的首字和A.字的對應，然後再算出B.詞條的首字出現了多少漢字。我的做法是用query1讀A，query2讀B，A先跑迴圈，找後B跑迴圈找出首字：

var i, j: integer;
begin
  adoconnection1.Connected := false;
  adoconnection1.Connected := true;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Text := 'select * from A';
  adoquery1.Active := true;
  for i := 1 to adoquery1.RecordCount do
  begin
    adoquery2.sql.clear;
    adoquery2.SQL.Text := 'select * from B';
    adoquery2.Active := true;
    for j := 1 to adoquery2.RecordCount do
    begin
      if copy(adoquery2.fieldbyname('詞條').AsString, 1, 2) = adoquery1.FieldByName('字').AsString then
      begin
        adoquery2.Edit;
        adoquery2.FieldByName('首字字碼').AsInteger := adoquery1.FieldByName('編號').AsInteger;
      end;
      adoquery2.Next
    end;
    adoquery1.next
  end;
  showmessage('轉好了');
end;

程式沒問題，只是非常非常慢，因為我A的table有5000筆，B的table有6萬筆。不知道有什麼簡易又有效率的寫法？因為我一直覺得我的寫法繞了一大圈，所以來請教各位前輩。謝謝！ －－－ 從問中學 ^^

bookworm 你好: 我手邊沒有資料庫可試, 試試一個 SQL 是否可達成你要的: Update B set 首字字碼=(select 編號 from A where 字=substring(B.詞條,1,2))

Hi, 看起來應該是下達一道指令就可以完成的工作, 如下, 若是 access 資料庫可用 update b inner join a on left(b.詞條, 1) = a.字 set b.首字字碼 = a.編號 若是 MSSQL 資料庫可用 update b set b.首字字碼 = a.編號 from b inner join a on left(b.詞條, 1) = a.字 若是其他資料庫也可以參考上面的方式組出對應的 sql command!!

謝謝兩位前輩這麼快的回應。我用的是access， 試了一下，還是不行。是不是不能將這段SQL command用adoquery1.sql.text或adoquery1.sql.add直接加入呢？ Mickey前輩： (select 編號 from A where 字=substring(B.詞條,1,2))運行出錯了，說是語法錯誤。 timhuang前輩： 會出現left(b.詞條, 1) = a.字 set b.首字字碼 = a.編號 少了運算元。 麻煩前輩再次賜教！ 這兩段的SQL讓我受益非常多，尤其是timhuang前輩的，這都是書上很少說的地方，謝謝！ －－－ 從問中學 ^^

Sorry !! 請容小弟放肆，在此插一下花！    將 Micky 版大之語法修改如下試試：    Update B set 首字字碼=(select 編號 from A where 字=Left(B.詞條,1)) ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

Hi, 弟有實際測試過(在 access 2003 上)是 ok 才 post 上來, 為確認沒有問題, 弟又在 access xp 上測試也 ok, 再用 delphi 配合 ADOConnection 及 ADOQuery 來操作也都 ok, 沒有問題, 不知你使用的 access 的版本為何呢?

三位前輩： 感謝熱心相助，我用timhuang的程式終於可以了，非常感謝！原因好像是本來用中文的欄位名，不知道是衝碼還是什麼，換成英文的就可以了。這些程式碼都是書上很少教的，讓我這個自學者受益匪淺，再次謝謝！ －－－ 從問中學 ^^