Record Key Deleted 無法繼續運作 請問各位前輩如何改寫 SQL |
|
答題得分者是：tuga
|
|
K1086
初階會員   發表：63 回覆：148 積分：42 註冊：2007-04-09 發送簡訊給我 |
[code delphi] SQL_QryAuto.ClOSE; SQL_QryAuto.SQL.CLEAR; SQL_QryAuto.SQL.ADD('DELETE FROM KG539Auto_Num'); SQL_QryAuto.ExecSQL; if UP_Tab1.Active = False then UP_Tab1.Active := True; UP_Tab1.Edit; UP_Tab1.Append; UP_Tab1.FieldByName('Nums').AsString := IntTostr(TS_01); UP_Tab1.Append; UP_Tab1.FieldByName('Nums').AsString := IntTostr(TS_02); UP_Tab1.Append; UP_Tab1.FieldByName('Nums').AsString := IntTostr(TS_03); UP_Tab1.Append; UP_Tab1.FieldByName('Nums').AsString := IntTostr(TS_04); UP_Tab1.Append; UP_Tab1.FieldByName('Nums').AsString := IntTostr(TS_05); UP_Tab1.Append; UP_Tab1.FieldByName('Nums').AsString := IntTostr(TS_06); UP_Tab1.Append; UP_Tab1.FieldByName('Nums').AsString := IntTostr(TS_07); UP_Tab1.Append; UP_Tab1.FieldByName('Nums').AsString := IntTostr(TS_08); UP_Tab1.Append; UP_Tab1.FieldByName('Nums').AsString := IntTostr(TS_09); UP_Tab1.Append; UP_Tab1.FieldByName('Nums').AsString := IntTostr(TS_10); UP_Tab1.Append; UP_Tab1.FieldByName('Nums').AsString := IntTostr(TS_11); UP_Tab1.Append; UP_Tab1.FieldByName('Nums').AsString := IntTostr(TS_12); UP_Tab1.Append; UP_Tab1.FieldByName('Nums').AsString := IntTostr(TS_13); UP_Tab1.Append; UP_Tab1.FieldByName('Nums').AsString := IntTostr(TS_14); UP_Tab1.Append; UP_Tab1.FieldByName('Nums').AsString := IntTostr(TS_15); UP_Tab1.Append; UP_Tab1.FieldByName('Nums').AsString := IntTostr(TS_16); UP_Tab1.Append; UP_Tab1.FieldByName('Nums').AsString := IntTostr(TS_17); UP_Tab1.Append; UP_Tab1.FieldByName('Nums').AsString := IntTostr(TS_18); UP_Tab1.Append; UP_Tab1.FieldByName('Nums').AsString := IntTostr(TS_19); UP_Tab1.Append; UP_Tab1.FieldByName('Nums').AsString := IntTostr(TS_20); UP_Tab1.Append; UP_Tab1.FieldByName('Nums').AsString := IntTostr(TS_21); UP_Tab1.Append; UP_Tab1.FieldByName('Nums').AsString := IntTostr(TS_22); UP_Tab1.Append; UP_Tab1.FieldByName('Nums').AsString := IntTostr(TS_23); UP_Tab1.Append; UP_Tab1.FieldByName('Nums').AsString := IntTostr(TS_24); UP_Tab1.Append; UP_Tab1.FieldByName('Nums').AsString := IntTostr(TS_25); UP_Tab1.Append; UP_Tab1.FieldByName('Nums').AsString := IntTostr(TS_26); UP_Tab1.Append; UP_Tab1.FieldByName('Nums').AsString := IntTostr(TS_27); UP_Tab1.Append; UP_Tab1.FieldByName('Nums').AsString := IntTostr(TS_28); UP_Tab1.Append; UP_Tab1.FieldByName('Nums').AsString := IntTostr(TS_29); UP_Tab1.Append; UP_Tab1.FieldByName('Nums').AsString := IntTostr(TS_30); UP_Tab1.Post; UP_Tab1.Next; end; [/code] 請問各位前輩 問題是因為要清空舊 Tab 資料 再更新的 Tab 資料 所以先清空 Tab 就出現 Record Key Deleted 錯誤訊息 並當掉了 請問各位前輩教導如何修改 SQL 語法才能正常運作 謝謝!!! Table 欄位 只有 nums 一個 Type 是 string |
|
tuga
高階會員 發表：16 回覆：109 積分：120 註冊：2002-07-13 發送簡訊給我 |
|
|
K1086
初階會員 發表：63 回覆：148 積分：42 註冊：2007-04-09 發送簡訊給我 |
|
|
K1086
初階會員 發表：63 回覆：148 積分：42 註冊：2007-04-09 發送簡訊給我 |
發表時間：2018-05-19 17:29:05
IP:1.165.xxx.xxx 未訂閱
系統時間：2024-12-04 1:28:08
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |