請問各位! 我使用INTERBASE系統, 需要用到 IN 語法, 如果 我是直接指定 ....HEAD IN ('300','400','500') 可以通行, 或者 SQL.text:= ' ...HEAD IN (''' avar ''',' ''' bvar ''',' ''' cvar ''')' 也可以通行 但我必須以parameter方式代入 所以我下 sql.text:= '....HEAD IN (:instr) ' 然後利用code 把 '300','400','500' 代入 instr, 結果發生錯誤 Try to store a string of length 19 into a field that can only contain 3 HEAD 欄位為3BYTE 要如何設定才可以解決呢?

報告 P.D. 版主：     小弟觀察 '300','400','500' 剛好是 17個字元，會不會是用程式代入 instr 時直接被加上兩個單引號成為 19個字元的一個字串而出錯的？     若是小弟來寫的話有兩個想法，一個是     parameter.asstring := '''300'',''400'',''500''';     另一個是     parameter.asstring := '300' + ',' + '400' + ',' + '500';          然後我覺得第一個語法應該就會出錯，第二個在觀念上比較正確些，因 為我們是要傳入 3個數字，而不是 1個字串。     才疏學淺，以上只是我的猜測而已，提供您參考。    ========================

我要努力向上~~[/h5] ========================

引言: 報告 P.D. 版主： 小弟觀察 '300','400','500' 剛好是 17個字元，會不會是用程式代入 instr 時直接被加上兩個單引號成為 19個字元的一個字串而出錯的？ 若是小弟來寫的話有兩個想法，一個是 parameter.asstring := '''300'',''400'',''500'''; 另一個是 parameter.asstring := '300' ',' '400' ',' '500'; 然後我覺得第一個語法應該就會出錯，第二個在觀念上比較正確些，因 為我們是要傳入 3個數字，而不是 1個字串。 才疏學淺，以上只是我的猜測而已，提供您參考。 ========================

我要努力向上~~[/h5] ========================

這兩種我都試過, 還是錯, 因為在 in(xxx,xxx,xxx) 的 ，符號是一個區隔符號，如果我以paramter方式代入時"，"符號變成字串, 也就因為如此, 造成 電腦把 "xxx,xxx,xxx" 視為一個值代入, 就發生錯誤, 目前我的解決方法是 in (:i1, :i2, :i3, :i4, :i5) 改為五組參數代入就不會錯, 不過我還是希望 可以找到一種 in (:ihead) 的方法!

我以前也遇過相同的困擾,最後我的方法是將整行SQL指令動態指定 例如: sqlstr := '(''300'',''400'',''500'')'; TQuery1.SQL[1] := '...HEAD IN' sqlstr; 不知道這樣是不是可以解決你的問題

P.D版主, 您好!    應可用ftArray的方法來擬寫相關的程式碼, 針對各種不同的資料庫, 有些資料庫可支援如下兩種寫法, 有些資料庫只可支援一種, 請您分別試試看如下兩種方法:

Var
  Param : TParam;
begin
  Query1.Close;
  Query1.SQL.Text := '...HEAD in (:P)';
  Query1.Params.CreateParam(ftArray,'P',ptUnknown);
  Query1.ParamByName('P').DataType := ftArray;
  Query1.ParamByName('P').Value :='300,400,500';
  Query1.SQL.Text := ReplaceParams(Query1.SQL.Text);
  Query1.Params.Clear;
  Query1.Open;
end;

=====================================================================

begin
  Query1.Close;
  Query1.SQL.Text := '...HEAD in (:P)';
  Query1.ParamByName('ParamValue').Value := '"300","400","500"';
  Query1.Open;
end;

===================================================================== 參考看看! ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟