sql查詢問題? |
|
尚未結案
|
|
paa
初階會員   發表：50 回覆：101 積分：30 註冊：2005-02-01 發送簡訊給我 |
|
|
paa
初階會員 發表：50 回覆：101 積分：30 註冊：2005-02-01 發送簡訊給我 |
var
s:string;
begin
s:='Select * from tt ';
// if ((edit4.Text<>'')and(edit5.Text<>'')and(edit6.Text<>''))then
// showmessage('請填字');
// exit;
if edit5.Text <> '' then
s:=s 'where';
if edit5.Text <> '' then
s:=s ' a ' ' like "' edit5.Text '%"';
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add(s);
Edit7.Text:=adoquery1.FieldByName('c').AsString;
Edit8.Text:=adoquery1.FieldByName('a').AsString;
Edit9.Text:=adoquery1.FieldByName('b').AsString;
ExecSQL;
end;
label1.Caption:=s;
end;
|
|
Stallion
版主 發表：52 回覆：1600 積分：1995 註冊：2004-09-15 發送簡訊給我 |
var
s:string;
begin
s:='Select * from tt ';
if edit5.Text <> '' then
s:= s ' where a like ''%' edit5.Text '%''';
else
exit;
label1.Caption:=s;
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add(s);
ExecSQL;
end with
if adoquery1.recordcount > 0 then
begin
while not adoquery1.eof do
begin
{
Edit7.Text:=adoquery1.FieldByName('c').AsString;
Edit8.Text:=adoquery1.FieldByName('a').AsString;
Edit9.Text:=adoquery1.FieldByName('b').AsString;
}
adoquery1.next;
//依據條件，資料集可能不只一個，整個顯示介面應該要重新設計，例如加上前一筆，後一筆，最首筆，最末筆等。
end;
end;
end;
-------------------
學，然後知不足。
|
|
paa
初階會員 發表：50 回覆：101 積分：30 註冊：2005-02-01 發送簡訊給我 |
|
|
tb1836
一般會員  發表：5 回覆：5 積分：2 註冊：2005-03-29 發送簡訊給我 |
發表時間：2005-07-12 12:22:25
IP:210.70.xxx.xxx 未訂閱
系統時間：2024-06-27 22:18:53
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |