[VB6 ] ADO Commnad會有side effect嗎?

看板Visual_Basic作者 (喲)時間13年前 (2012/05/25 23:52), 編輯推噓1(105)
留言6則, 2人參與, 最新討論串1/1
各位好. 最近遇到一個情況,覺得好像發現到ADO物件會遇到Side Effect. 平台是VB6 + SQL Server 2000, ADO程式庫版本大概是2.8吧. 預存程序是希望給一個可省略的參數,所以寫成這樣: create proc some_proc( ..., @d datetime = null ) begin insert into table1 ( ..., d ) values ( ..., @d ) end VB6程式中,是將Command物件包起來做: public sub update_some( ..., optional d as string = "" ) ... set global_module.cmd = new Command ... if d <> "" then global_module.cmd.parameters("@d") = d global_module.cmd.execute update_some = global_module.parameters("@RETURN_VALUE") end sub 內容主要是說, update_some 函數引用了外部Command物件, 並且參數 @d 是 在需要的時候才給值. 我不曉得在這裏如果 @d 參數沒給值是否如我所想的 是一個預設值. 所發現的問題是,我有個迴圈呼叫 update_some 這個函數好多次,而每次給的參數 都是獨立的參數: for i = 1 to N ... dim d as string d = lstData.ListItem(i).SubItem(k) ... update_some( ..., d) ... next i 一般較多時候 d 是空字串所以沒事. 不過,當 d 拿到一個日期文字時,這整個迴圈 執行之後,發現資料庫中填的 d 欄位值,從放入了 d 日期值之後,接下來放進去的 其他筆記錄的 d 日期值全都是同樣那個日期值. 看樣子像是 side effect. 這是 side effect 嗎? -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 59.112.231.66

05/26 12:20, , 1F
if d <> "" then ...... <-- 檢查一下這一行吧...
05/26 12:20, 1F

05/26 19:17, , 2F
沒錯,因為我有時沒有給值; 但我想不出為何沒有給值,預存程序
05/26 19:17, 2F

05/26 19:17, , 3F
執行的結果就是複製之前執行過的參數.明明Command物件是新的
05/26 19:17, 3F

05/26 19:18, , 4F
迴圈中提供的d值也都是新的.
05/26 19:18, 4F

05/26 19:19, , 5F
後來我的確是修改了if d<> "" then那邊的程式,使它若不拿到
05/26 19:19, 5F

05/26 19:20, , 6F
日期值就拿到NULL.但主要的問題:它有沒有side-effect,仍未解
05/26 19:20, 6F
文章代碼(AID): #1FlwhJ36 (Visual_Basic)