用SQL語句可以彈出消息框麼 |
|
答題得分者是：timhuang
|
|
dengguo
一般會員   發表：41 回覆：49 積分：23 註冊：2004-01-09 發送簡訊給我 |
|
|
deity
尊榮會員  發表：90 回覆：876 積分：678 註冊：2003-05-09 發送簡訊給我 |
|
|
dengguo
一般會員 發表：41 回覆：49 積分：23 註冊：2004-01-09 發送簡訊給我 |
deity:think you!
我是想利用SQL的消息機制彈出提示框...只是不知如何下手..下面是我寫的SQL語句...現在沒有ELSE那一句..可以執行,我想加入ELSE那句然後彈出提 示框,不知可否做到?
---------------------------------------------------------------------
DataModule1.ADOQuery12.close;
DataModule1.ADOQuery12.sql.clear;
DataModule1.ADOQuery12.sql.text:='if not exists(select * from bom_title where bom_jzxh='''+edit2.text+''' and bom_bb='''+edit4.text+''') begin insert into bom_title(bom_jzxh,bom_gg,bom_bb,bom_ecn,bom_zdrq,bom_xdrq,bom_zdz) values('''+edit2.Text+''','''+edit3.Text+''','''+edit4.Text+''','''+edit5.Text+''','''+edit6.Text+''','''+edit7.Text+''','''+edit8.Text+''') insert into bom_base select * from ecn_temp else ...... end';
DataModule1.ADOQuery12.execsql; ###############################
初學delphi,請各位多多提點!謝謝!
###############################
|
|
timhuang
尊榮會員 發表：78 回覆：1815 積分：1608 註冊：2002-07-15 發送簡訊給我 |
可以使用 RAISEERROR 配合 delphi 的 try except 來作, 試試看..
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('if(....) begin .... end else begin RAISERROR (''data duplicated!.'', 16, 1) end');
try
ADOQuery1.ExecSQL;
except
on E: Exception do
begin
ShowMessage(e.Message);
end;
end;
end;
|
|
dengguo
一般會員 發表：41 回覆：49 積分：23 註冊：2004-01-09 發送簡訊給我 |
發表時間：2004-08-18 10:38:51
IP:61.145.xxx.xxx 未訂閱
系統時間：2024-11-23 13:22:54
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |