這到底是怎麼回事呀?

2021-09-08 06:36:55 字數 3322 閱讀 9425

這到底是怎麼回事呀? delphi / windows sdk/api

怎麼我寫了一段程式,刪除滿足條件的記錄!  

我已經把requestlive屬性設計有true   ;怎麼回事!!!  

哪位大蝦幫下忙!!非常感謝!!!  

下面是程式的一小段**:  

//按棟刪除學生!  

if   radiobutton6.checked   =   true   then  

begin  

if   edit6.text   =   ''   then  

begin  

showmessage('請輸入棟號!')   ;  

abort   ;  

end   ;  

i   :=   0   ;  

query1.close   ;  

query1.sql.clear   ;  

query1.sql.add('select   *   from   building   ,   house   ,   bed')   ;  

query1.sql.add('   where   building.building_no   =   house.building_no     and   house.house_no   =   bed.house_no   ')   ;  

query1.sql.add('   and   building.building_no   =   :para_building_no')   ;  

query1.parambyname('para_building_no').asstring   :=   trim(edit6.text)   ;  

query1.open   ;  

if   query1.recordcount   >=   1   then  

begin  

while   not   query1.eof   do  

begin  

if   query1.fieldbyname('s_no').asstring   <>   ''   then  

begin  

s_no[i]   :=   query1.fieldbyname('s_no').asstring   ;  

i   :=   i   +   1   ;  

query2.close   ;  

query2.sql.clear   ;  

query2.sql.add('select   *   from   bed   where   s_no   =   :para_s_no')   ;  

query2.parambyname('para_s_no').asstring   :=   query1.fieldbyname('s_no').asstring   ;  

query2.open   ;  

if   query2.recordcount   >=   1   then  

begin  

query2.edit   ;  

query2.fieldbyname('s_no').asstring   :=   ''   ;  

query2.fieldbyname('bed_state').asstring   :=   '不到'   ;  

query2.post   ;  

end   ;  

end   ;  

query1.next   ;  

end   ;  

i   :=   i   -   1   ;  

while   i   >=   0   do  

begin  

query1.close   ;  

query1.sql.clear   ;  

query1.sql.add('select   *   from   student   where   s_no   =   :para_s_no')   ;  

query1.parambyname('para_s_no').asstring   :=   s_no[i]   ;  

query1.open   ;  

if   query2.recordcount   >=   1   then  

begin  

query1.edit   ;  

query1.delete   ;  

query1.post   ;  

end   ;  

i   :=   i   -   1   ;  

end   ;  

showmessage('刪除操作成功!共刪除'   +   inttostr(i+1)   +   '條記錄!')   ;  

end  

else  

showmessage(edit6.text   +   '棟不存在!')   ;  

end   ;

query1.edit   ;  

query1.delete   ;  

query1.post   ;  

delete   後不用post

謝謝!  

但是還是出現同樣的錯誤!!!  

奇怪,到底是**出現的問題?  

真是找不出???   哪位大峽幫下???急呀!!!

query的readonly   的屬性設為false看看  

query有readonly屬性嗎?  

還是不行!

但是還是出現同樣的錯誤!!!  

奇怪,到底是**出現的問題?  

真是找不出???   哪位大峽幫下???急呀!!!

你的資料庫是唯讀的吧?  

或者連線資料的使用者名稱沒有許可權刪除這個表.

應該不是這的原因!  

我按照別的(比如說按照學號)就可以刪除,所以不是你所說的那個原因!!!  

真的不知道是什麼緣故???  

??懷疑是query1中的語句得到的檢視,在你刪除它中記錄時,無法判斷該刪除的記錄,所以會提示說唯讀的,你換一下方法,將你要刪除的表放到query1中,其他的字段另想辦法吧

怎麼還是不行呀?  

這是怎麼回事呀?真搞不懂!!!

建議你的刪除語句也用sql語句寫,這樣就可以不必理會資料集的狀態了。

我用了sql語句寫了,還是不行!!  

哎!這是咋的?

如果用sql語句寫了都不行,應該是資料庫自身的原因。

還是沒有解決????

query1.requestlive   設定為true   !

炒股到底是怎麼回事?

到底是怎麼回事?很久就聽說 有人賺死,有人虧死。只是聽別人說,自己沒多大興趣,因為聽說風險太大,並且虧的可能性很大,呵呵,誰願意去做八成可能虧的買賣呢?但昨天在sohu上看到一條新聞,引起我對它的興趣,所以今天了解了一下。其實我覺得道理好像很簡單,就是你拿一部分錢跟你兄弟說 兄弟,咱們合夥搞一莊生意...

記憶體對齊到底是怎麼回事?

記憶體對齊問題是各種開發類面試中最熱門的問題,面試管一般認為這個問題可以考察被面試者對記憶體細節的了解情況,確實這個問題對於c 初學者來說是個十足的難題因為它不僅涉及了pragma pack n 設定的記憶體對齊係數還涉及了相關記憶體分配的細節。記憶體對齊 我們知道現代計算機體系中cpu按照雙字 字...

隨機種子 seed()到底是怎麼回事。

讓我們先來看一段 熟悉一下seed 的使用 import numpy as np num 0 while num 5 np.random.seed 1 print np.random.random num 1 print num1 0 np.random.seed 2 while num1 5 pr...