全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:732
推到 Plurk!
推到 Facebook!

在sqlserver中參數傳遞問題

尚未結案
ed_yxb
一般會員


發表:11
回覆:5
積分:3
註冊:2005-03-07

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-07-18 09:56:24 IP:219.130.xxx.xxx 未訂閱
我現在的想法是把一個條件作為一個參數傳遞進來 delphi: s: 'a.field1<>b.field1' sqlserver: @s varchar(800) select a.field1,b.field1 from table1 a inner join table2 on (a.id=b.id) where @s 這樣怎么不行.
JustinShen
中階會員


發表:22
回覆:104
積分:80
註冊:2003-09-20

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-07-19 08:38:27 IP:61.173.xxx.xxx 未訂閱
在您执行这个sql语句的Tquery这类组件中,使用 select a.field1,b.field1 from table1 a inner join table2 on (a.id=b.id) where :s 然后,query.paramers[i].asstring:=s; 这样可以将Delphi中的变量传递进去。 或者让 query.sql.text:='select ... where ' QuotedStr(s) 也可以 Justin Shen ================================= 如果能帮到您,我会很开心;如果能得到您的帮助,是我的荣幸 =================================
------
====================
我为一切作努力!
Justin Shen

ed_yxb
一般會員


發表:11
回覆:5
積分:3
註冊:2005-03-07

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-07-23 08:48:29 IP:219.130.xxx.xxx 未訂閱
[quote] 在您执行这个sql语句的Tquery这类组件中,使用 select a.field1,b.field1 from table1 a inner join table2 on (a.id=b.id) where :s 然后,query.paramers[i].asstring:=s; 这样可以将Delphi中的变量传递进去。 或者让 query.sql.text:='select ... where ' QuotedStr(s) 也可以 Justin Shen ================================= 如果能帮到您,我会很开心;如果能得到您的帮助,是我的荣幸 ================================= Justin Shen 你好,我的Select 語句是一個存儲過程 在Delphi中只能傳遞參數: if CheckBox1.Checked then s:=' and (a.fgyswlmc<>b.fwlmc'; if CheckBox4.Checked then begin if s<>'' then s:=s ' or a.fgyswlkd<>b.fwlkd' else s:=' and (a.fgyswlkd<>b.fwlkd'; end; if CheckBox2.Checked then begin if s<>'' then s:=s ' or substring(a.fgyswlbh,1,9)<>substring(b.fhgbh,1,9)' else s:=' and (a.fgyswlbh<>substring(b.fhgbh,1,9)'; end; if CheckBox3.Checked then begin if s<>'' then s:=s ' or a.fgyshtdw<>b.fhtdw' else s:=' and (a.fgyshtdw<>b.fhtdw'; end;
JustinShen
中階會員


發表:22
回覆:104
積分:80
註冊:2003-09-20

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-07-23 23:22:31 IP:221.225.xxx.xxx 未訂閱
阿,好怪的存储过程呀! 您生成的参数好像是以and开头的,可能不行吧? 为什么不直接使用TADOStoreProc呢?这样就可以直接把CheckBox1,CheckBox2作为两个参数传进去了。既然是StoreProc就写的完整点吧。 Justin Shen ============================================= 如果能帮到您,我会很开心;如果能得到您的帮助,是我的荣幸 =============================================
------
====================
我为一切作努力!
Justin Shen

系統時間:2024-07-05 9:13:19
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!