請問delphi + sql 的問題

[阿強]

請問在delphi 如何下以下sql語法
例:
select *
from xx
where id like 'a%'
我用的是query物件,希望用人能告訴我，在此先說聲謝謝!!
對了以上sql語法只要輸入a關於a開頭的英文字都會在dbgrid物件顯示出來!!
--
* Origin: ★ 交通大學資訊科學系 BBS ★ <bbs.cis.nctu.edu.tw: 140.113.23.3>

[後來..]

《 在 a24...@cis.nctu.edu.tw (阿強) 的大作中提到: 》
: 請問在delphi 如何下以下sql語法

: 例:
: select *
: from xx
: where id like 'a%'
: 我用的是query物件,希望用人能告訴我，在此先說聲謝謝!!
: 對了以上sql語法只要輸入a關於a開頭的英文字都會在dbgrid物件顯示出來!!

在Query物件的屬性SQL中, 將上述SQL語法填入
拉一個Datasource元件, 將其DataSet指到Query物件
再拉一個DBGrid元件, 將其DataSource指到Datasource1

在程式中, 執行SQL

Query1.Open;

如此DBGrid中就有資料啦

--
[1;33m鳳翱翔於千仞兮 非梧不棲
士伏處於一方兮 非主不依
樂躬耕於隆畝兮 吾愛草廬
聊寄傲於琴書兮 以待天時
臥龍

[m [1;32m※ 來源:‧蛋捲廣場 bbs.tku.edu.tw‧[FROM: 163.30.222.198] [m

[阿強]

==> 在 dky...@bbs.tku.edu.tw (後來..) 的文章中提到:

> 《 在 a24...@cis.nctu.edu.tw (阿強) 的大作中提到: 》
> : 請問在delphi 如何下以下sql語法
> : 例:
> : select *
> : from xx
> : where id like 'a%'
> : 我用的是query物件,希望用人能告訴我，在此先說聲謝謝!!
> : 對了以上sql語法只要輸入a關於a開頭的英文字都會在dbgrid物件顯示出來!!
> 在Query物件的屬性SQL中, 將上述SQL語法填入
> 拉一個Datasource元件, 將其DataSet指到Query物件
> 再拉一個DBGrid元件, 將其DataSource指到Datasource1
> 在程式中, 執行SQL
> Query1.Open;
> 如此DBGrid中就有資料啦

這我知道，但如果我要以button物件上執行呢?
procedure TForm1.FormCreate(Sender: 行，並在button物件先加一行 例 :
a:=inputbox('','',''); 之後只要按button物件輸入文字只要有關係後了文
字都會在dbgrid顯示出來。(就是最上面sql的文法，看得懂吧)。
這問題夠難了吧!!誠心拜託有心人士幫我解答，在此先說聲謝謝!!t

[飛鴻片爪....]

《 在 a24...@cis.nctu.edu.tw (阿強) 的大作中提到: 》
: ==> 在 dky...@bbs.tku.edu.tw (後來..) 的文章中提到:

那就將SQL Command寫成動態產生囉
Query1.Close;
Query1.SQL.Clear;
Query1.Add('select * from xx where id like :A0');
Params[0].AsString := a + '%';
SQL.Open;

--
[1;33m鳳翱翔於千仞兮 非梧不棲
士伏處於一方兮 非主不依
樂躬耕於隆畝兮 吾愛草廬
聊寄傲於琴書兮 以待天時
臥龍

[m [1;31m※ 來源:‧蛋捲廣場 bbs.tku.edu.tw‧[FROM: 163.30.230.149] [m

[阿強]

> 那就將SQL Command寫成動態產生囉
> Query1.Close;
> Query1.SQL.Clear;
> Query1.Add('select * from xx where id like :A0');
> Params[0].AsString := a + '%';
> SQL.Open;

程式是不是應該改成這樣，但還是有錯啊!!包括上面那個也一樣不行。
能不能在提供給我意見呢?
procedure TForm1.Button1Click(Sender: TObject);
var
a:string;
begin

a:=inputbox('','','');

query1.close;
query1.SQL.clear;
query1.sql.add('select * from a1 where aa like : A0 ');
query1.params[0].asstring :=a+'%';
query1.open;
end;
end.

[阿強]

==> 在 ardy...@bbs.cs.nthu.edu.tw (魔王) 的文章中提到:
> ※ 引述《a24...@cis.nctu.edu.tw (阿強)》之銘言：

> > procedure TForm1.Button1Click(Sender: TObject);
> > var
> > a:string;
> > begin
> > a:=inputbox('','','');
> > query1.close;
> > query1.SQL.clear;
> query1.sql.add('select * from a1 where aa like :A0 ');

> query1.ParamByName('A0').AsString := a+'%';
> > query1.open;
> > end;
> > end.
> 試試這樣啦...

還是不行喔，這麼辦? ?可否在給詳細資料呢??