判斷資料表裡無資料？ |
|
答題得分者是：領航天使
|
|
challenge
一般會員   發表：14 回覆：41 積分：11 註冊：2002-10-08 發送簡訊給我 |
begin
case choose.ItemIndex of
0: with query1 do
begin
if Query1.Fields[0].Asstring='' then
//假設資料表現在為空的…為何做了這個
判斷會沒反應…而直接顯示"資料已存在"
呢！若改為<>''則會去insert…
可這樣邏輯就怪怪的？
謝謝^^或是有更好的方法可以去
判斷資料表裡是否有資料？
begin
DatabaseName:='mysql';
close;
sql.Clear;
query1.sql.add('insert QUES_TEA_STA(TEA_ID, QUES_ID, QS_NO, RESULT, QS_SUM1,');
query1.sql.add('QS_SUM2, QS_SUM3, QS_SUM4, QS_SUM5, DEP_ID)');
query1.sql.add('select tea.TEA_ID, tea.QUES_ID, tea.QS_NO ,');
query1.sql.add('sum(tea.RESULT) / count(QS_NO) as ''RESULT''');
query1.sql.add(',sum(tea.QS_SUM1)as''QS_SUM1'',sum(tea.QS_SUM2)as''QS_SUM2'',');
query1.sql.add('sum(tea.QS_SUM3)as''QS_SUM3'',sum(tea.QS_SUM4)as''QS_SUM4'',');
query1.sql.add('sum(tea.QS_SUM5)as''QS_SUM5''');
query1.sql.add(', course.DEP_ID');
query1.sql.add('from QUES_CRS_STA tea, COURSE_DETAIL course');
query1.sql.add('where tea.CRS_ID = course.CRS_ID and course.MDEP = ''1''');
query1.sql.add('group by course.DEP_ID, tea.TEA_ID, tea.QUES_ID, tea.QS_NO');
prepare;
Query1.ExecSQL;
showmessage('資料已正確存檔');
end
else
begin
showmessage('資料已存在');
end;
end;
end;
end;
|
|
領航天使
站長   發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
|
|
challenge
一般會員 發表：14 回覆：41 積分：11 註冊：2002-10-08 發送簡訊給我 |
|
|
領航天使
站長 發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
|
|
challenge
一般會員 發表：14 回覆：41 積分：11 註冊：2002-10-08 發送簡訊給我 |
發表時間：2002-10-16 18:16:18
IP:211.74.xxx.xxx 未訂閱
系統時間：2024-07-01 20:23:53
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |