Re: [VB6 ] 用ADO語法更新資料庫裡面的資料

看板Visual_Basic作者NotFunny (不好笑啦)時間16年前 (2010/01/05 09:00)推噓1(1推 0噓 3→)

留言4則, 2人參與討論串2/2 (看更多)

※ 引述《wolfsiyb (阿B)》之銘言： : Time1 = Format(Now, "yyyy/mm/dd") : SQL1 = "Update 會員資料 Set 餘額 =" + Str(Money) + " Where 會員編號=" + Str(k) : SQL2 = "Update DVD資料表 Set 出租次數 = 出租次數 + 1 Where ID=" : SQL3 = "Update DVD資料表 Set 歸還時間 = " + Time1 + " Where ID=" : Connstr = "Provider=Microsoft.Jet.OLEDB.3.51;" & _ : "Data Source=C:\Documents and Settings\mibi\My Documents\rfid.mdb" : conn.Open Connstr : Set cmd.ActiveConnection = conn : cmd.CommandText = SQL1 : Set rs = cmd.Execute : conn.Close : conn1.Open Connstr : Set cmd2.ActiveConnection = conn1 : Set cmd1.ActiveConnection = conn1 : For i = 1 To n : cmd2.CommandText = SQL3 + Str(x(i)) : Set rs2 = cmd2.Execute(, Time1) : cmd1.CommandText = SQL2 + Str(x(i)) : Set rs1 = cmd1.Execute : Next i : conn1.Close : 以上是我要將資料庫內的資料更新 : 其中SQL1是更新可用餘額 SQL2是原值+1 SQL3是將"現在時間"更新進去 : 單跑SQL1沒有問題加跑SQL2也沒有問題 : 可是SQL3會出現 : 執行階段錯誤 '-2147217887 (80040e21)' : 無法更新歸還時間；欄位不能更新 : 不知道有沒有大大能幫忙看看卡一個下午了我的經驗是在資料庫端出問題你可以把 SQL3 執行時的實際語法貼到資料庫去執行也就是說 SQL3 的語法是有問題的改成這樣試試: SQL3 = "Update DVD資料表 Set 歸還時間 = '" + Time1 + "' Where ID=" (加二個單引號) -- 我的Facebook: http://0rz.tw/v70Uy 有玩餐城的話可以加我交換食材 (雖然可能已經加過了XD) -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 220.136.38.162

推

wolfsiyb

01/05 13:42, , 1^F

01/05 13:42, 1^F

→

wolfsiyb

01/05 13:43, , 2^F

01/05 13:43, 2^F

→

wolfsiyb

01/05 13:45, , 3^F

01/05 13:45, 3^F