請教一個SQL的查詢問題： 若有語法如下， Select * from Tabel where 性別=sex and 年級=degree and 科系=Major 上面有三個變數sex,degree,和Major 其中sex={F,M},degree={1,2,3,4},major={A,B,C,D,E} 這語法可讓我們找到符合Sex=F,degree=3,major=C的資料.. 可是若我們想找到所有一年級男生的資料，不限科系的話， 則Major變數的值要如何設，才能得到我們想要的資料... 意即讓此語法，只藉由參數的設定... 而能有等同如下命令的效力... Select * from Tabel where 性別=sex and 年級=degree

可以改成 Select * from Tabel where 性別=sex and 年級=degree and 科系 IN (A,B,C,D,E)

Hi avalokita,    

SQL Command：
Select  *
from    Tabel
where   (sex = :p_sex or :p_sex is null)
and     (degree = :p_degree or :p_degree is null)
and     (Major = :p_major or :p_major is null)    程式碼：
procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.Close;
  Query1.ParamByName('p_sex').Value := Edit1.Text;
  Query1.ParamByName('p_degree').Value := Edit2.Text;
  Query1.ParamByName('p_major').Value := Edit3.Text;
  Query1.Open;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

引言: Hi avalokita,

SQL Command：
Select  *
from    Tabel
where   (sex = :p_sex or :p_sex is null)
and     (degree = :p_degree or :p_degree is null)
and     (Major = :p_major or :p_major is null)    程式碼：
procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.Close;
  Query1.ParamByName('p_sex').Value := Edit1.Text;
  Query1.ParamByName('p_degree').Value := Edit2.Text;
  Query1.ParamByName('p_major').Value := Edit3.Text;
  Query1.Open;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ---------------------------------- < face="Verdana, Arial, Helvetica"> 謝謝Fisherman的回覆！ 可是我還是有一些疑問， 就是如何將值傳給變數，使它得到我們想要的效果呢？ 如命題所示， Query1.ParamByName('p_sex').Value := Edit1.Text; Query1.ParamByName('p_degree').Value := Edit2.Text; Query1.ParamByName('p_major').Value := Edit3.Text; 我們可設為Edit1.Text:=F;Edit2.Text:=1; 那Edit3.Text:=?? 才可得到不限科系的效果呢？

引言: 可以改成 Select * from Tabel where 性別=sex and 年級=degree and 科系 IN (A,B,C,D,E)

謝謝cxg的答覆！ 您的語法我還得再試試，才知道是否能得到效果？ 可是怎麼沒有看到科系的變數呢？ 是不是這樣一來的話，就不能再找 性別=F,年級=1,科系=B的資料了呢??

[quote] [quote] Hi avalokita,    

SQL Command：
Select  *
from    Tabel
where   (sex = :p_sex or :p_sex is null)
and     (degree = :p_degree or :p_degree is null)
and     (Major = :p_major or :p_major is null)    程式碼：
procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.Close;
  Query1.ParamByName('p_sex').Value := Edit1.Text;
  Query1.ParamByName('p_degree').Value := Edit2.Text;
  Query1.ParamByName('p_major').Value :=Edit3.Text;
  Query1.Open;
end;

關於

procedure TForm1.Button1Click(Sender: TObject);
var SQLStr:String;
begin
  SQLStr:='Select  * from    Tabel WHERE 1=1 ";
  If Edit1.Text<>'' then
  SQLStr:=SQLStr   ' AND SEX ='   Edit1.text;
  If Edit2.Text<>'' then
  SQLStr:=SQLStr   ' AND degree ='   Edit2.text;
  If Edit3.Text<>'' then
  SQLStr:=SQLStr   ' AND Major ='   Edit3.text;
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add(SQLStr);
  Query1.Open;
end;

TRY TRY SEE

Hi avalokita,    

引言: 謝謝Fisherman的回覆！ 可是我還是有一些疑問， 就是如何將值傳給變數，使它得到我們想要的效果呢？ 如命題所示， Query1.ParamByName('p_sex').Value := Edit1.Text; Query1.ParamByName('p_degree').Value := Edit2.Text; Query1.ParamByName('p_major').Value := Edit3.Text; 我們可設為Edit1.Text:=F;Edit2.Text:=1; 那Edit3.Text:=?? 才可得到不限科系的效果呢？

將 edit3.text 的值清空試試看 或不行則改用以下方法再試試：

SQL Command：
Select  *
from    Tabel
where   (sex = :p_sex or :p_sex = '')
and     (degree = :p_degree or :p_degree = '')
and     (Major = :p_major or :p_major = '')    程式碼：
procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.Close;
  Query1.ParamByName('p_sex').AsString := Edit1.Text;
  Query1.ParamByName('p_degree').AsString := Edit2.Text;
  Query1.ParamByName('p_major').AsString := Edit3.Text;
  Query1.Open;
end;

ps:事實上，這兩種方法我用 BDE 試過都可行 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------